急!!!!asp中上传图片代码文件

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:11:11
哪位好人提供一个asp中上传显示图片代码,最好是一个被包含的文件upload_5xsoft.inc
简单说下:
表中字段fileurl(图片)
/admin/tu.asp(图片上传)
上传的文件部分代码:
<!--#include FILE="../../inc/upload_5xsoft.inc"-->
...
if file.FileSize>0 then
file.SaveAs Server.mappath(formPath&file.FileName)
end if
...
麻烦高手提供upload_5xsoft.inc文件,先谢在给分.

复制下面代码保存成upload_5xsoft.inc

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim Data_5xsoft

Class upload_5xsoft

dim objForm,objFile,Version

Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function

Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function

Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
'Version="化境HTTP上传程序 Version 2.0"
set objForm=Server.CreateObject("Scripting.Dictionary")
set o