关于ASP的。小弟求助了!!
来源:百度知道 编辑:UC知道 时间:2024/05/25 03:16:12
我按着这个页面上的代码来做,但显示出来的是乱码。很郁闷,不知是什么原因,请各位帮帮忙!
错误类型:
ADODB.Stream (0x800A0BBC)
写入文件失败。
/IISHelp/myasp/bsk/图片上传/upload_5xsoft.inc, 第 161 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; MAXTHON 2.0)
网页:
POST 2166 ??? /IISHelp/myasp/bsk/图片上传/upfile.asp
POST Data:
错误 '80020009'
发生意外。
/iisHelp/common/500-100.asp,行 219
太复杂了,换一个.
文件一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")
s