网站前台代码都是好用的,只是后台我添加或者更改任何信息时都提示这个:
Microsoft VBScript 运行时错误 '800a01fa'
类没有被定义: 'upload_5xSoft'
\wwwroot\manage\InfoCenter\Editinfoupdate_InfoCenter.asp, line 15
以下是Editinfoupdate_InfoCenter.asp 代码:(哪位大哥帮个忙吧,悬赏10分)
"http://" then Response.Write CheckHttp(ICI_Url,"链接地址")
if ICI_Title"" then
if ICI_starttime"" and ICI_endtime"" then
if formatdatetime(Dateadd("m",2,formatdatetime(ICI_starttime)))>=formatdatetime(ICI_endtime) then
editinfoupdate()
else
Response.Redirect "success.asp?showcontent="&server.URLEncode("操作出错!
出错原因:促销时间长于2个月或者起始时间晚于停止时间!请检查!
提示:如实际促销时间长于2个月,请在2个月后再行发布!")&"&backurl=editinfo_InfoCenter.asp?BcgID="&Bcg_ID&"&BcgName="&Bcg_Name&"&That_BcgID="&That_BcgID&"&showimage=!.gif&IciID="&ICI_ID
end if
else
editinfoupdate()
接着上边的代码:(刚才没写下)
end if
else
Response.Redirect "success.asp?showcontent="&server.URLEncode("操作出错!
出错原因:没有输入相关信息!")&"&backurl=editinfo_InfoCenter.asp?BcgID="&Bcg_ID&"&BcgName="&Bcg_Name&"&That_BcgID="&That_BcgID&"&showimage=!.gif&IciID="&ICI_ID
end if
set upload=nothing
' 更新数据库
sub editinfoupdate()
' 上传图片
timeName=makefilename() '生成当前时间的文件名
set file=upload.file("ICI_Image")
extName=GetExtendName(file.FileName)
imagesize = file.Filesize
if imagesize>0 then
''如果 FileSize > 0 说明有文件数据
if file.FileSize>FileMaxSize*1000 then back("图片不能大于"&isize&"K!") '文件超大
'if inStr(FileType,"."&extName&".")<1 then '检查文件类型
'conn.close
'set conn=nothing
'call back("上传的文件类型错误!")
'response.End()
'end if
'save_name=file.FileName''保留原文件名
save_name=timeName&"."&extName