upload_5xsoft.inc 这个文件怎么获得，谁能指点一下？

来源：百度知道 编辑：UC知道 时间：2024/05/17 08:57:06
我现在想实现上传功能，可现在缺upload_5xsoft.inc文件，我也不太清楚，那位高手能帮我解决一下，非常感谢！
linyilsl你好：就是把你给的代码粘贴到记事本里，另存为.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("Scrip