Microsoft VBScript 运行时错误 错误 '800a01fa'我用的是IIS 别的页面都没问题 但是这个页面出问题了<!--#include file="../include/connstr.asp"-->
<!--#include file="../Include/CnpvUpFile.inc"-->
<!--#include file="../include/DefFunction.asp"-->
<%
dim upload,file1,formName,formPath,T_comment,fso
set upload=new upload_5xSoft ''建立上传对象
formPath="../UploadFile/ProductFile"'得到上传目录
if right(formPath,1)<>"/" then formPath=formPath&"/" ''在目录后加(/) set file1=upload.file("T_ProductPic") ''生成一个文件对象
FileName1=makefilename()&"_Pic."&GetExtendName(file1.FileName)
'--------------------------------------------删除无用的文件或图片
Set fso = CreateObject("Scripting.FileSystemObject")
arrUploadFiles=split(upload.form("UploadFile"),"$")
UploadFile=""
for intTemp=0 to ubound(arrUploadFiles)
if instr(upload.form("Content"),arrUploadFiles(intTemp))<=0 then
strRubbishFile=server.MapPath("../UploadFile/ProductFile/" & arrUploadFiles(intTemp))
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
end if
else
if intTemp=0 then
UploadFile=arrUploadFiles(intTemp)
else
UploadFile=UploadFile & "$" & arrUploadFiles(intTemp)
end if
end if
next
if file1.FileSize>0 then file1.SaveAs Server.mappath(formPath&FileName1) else FileName1="" ''如果 FileSize > 0 说明有文件数据,保存文件
set file1=nothing conn.execute("insert into tvideo(Title,url) values('"&MyRequest(upload.form("T_Title"))&"','"&FileName1&"')") response.write "<script>alert('恭喜您,产品已经成功发布,按确定返回!');location.replace('ProductManageAdd.asp?S_CateID="&upload.form("S_CateID")&"');</script>"
set upload=nothing%>
<!--#include file="../Include/CnpvUpFile.inc"-->
<!--#include file="../include/DefFunction.asp"-->
<%
dim upload,file1,formName,formPath,T_comment,fso
set upload=new upload_5xSoft ''建立上传对象
formPath="../UploadFile/ProductFile"'得到上传目录
if right(formPath,1)<>"/" then formPath=formPath&"/" ''在目录后加(/) set file1=upload.file("T_ProductPic") ''生成一个文件对象
FileName1=makefilename()&"_Pic."&GetExtendName(file1.FileName)
'--------------------------------------------删除无用的文件或图片
Set fso = CreateObject("Scripting.FileSystemObject")
arrUploadFiles=split(upload.form("UploadFile"),"$")
UploadFile=""
for intTemp=0 to ubound(arrUploadFiles)
if instr(upload.form("Content"),arrUploadFiles(intTemp))<=0 then
strRubbishFile=server.MapPath("../UploadFile/ProductFile/" & arrUploadFiles(intTemp))
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
end if
else
if intTemp=0 then
UploadFile=arrUploadFiles(intTemp)
else
UploadFile=UploadFile & "$" & arrUploadFiles(intTemp)
end if
end if
next
if file1.FileSize>0 then file1.SaveAs Server.mappath(formPath&FileName1) else FileName1="" ''如果 FileSize > 0 说明有文件数据,保存文件
set file1=nothing conn.execute("insert into tvideo(Title,url) values('"&MyRequest(upload.form("T_Title"))&"','"&FileName1&"')") response.write "<script>alert('恭喜您,产品已经成功发布,按确定返回!');location.replace('ProductManageAdd.asp?S_CateID="&upload.form("S_CateID")&"');</script>"
set upload=nothing%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货