后台传图片时出个错高手帮帮忙

dh0433sl · 发表于 2009-12-14 13:44:52

后台传图片时出个错高手帮帮忙 Microsoft VBScript 运行时错误 '800a01f4' 变量未定义: 'sjCat_Upload' \web\admin\ziupok.asp, line 18 Host by NetBox Version 2.8 Build 4128

源代码帮帮看哪错了？


<%Server.ScriptTimeOut=5000%>


<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if
%>
<%
dim upload,file,formElement,formFile,iCount,fileExt,xxid,username,huitype,formPath,rs,sql,filename
iCount=0
set upload = new sjCat_Upload
Set file = upload.file("file1")
username=upload.form("username")
xxid=upload.form("xxid")
if file.filesize<1 then
  response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
fileExt=lcase(right(file.filename,4))
if fileEXT<>".gif" and fileEXT<>".jpg" and fileEXT<>".bmp" then
  response.write "<font size=2>文件格式不对　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
if file.filesize>1024000 then '这是1000K的图片大小数据
  response.write "<font size=2>图片大小超过了限制(不大于100K)　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&fileExt
if file.FileSize>0 then
file.Save2File Server.mappath("..\newsupfiles") & "\" & FileName
iCount=iCount+1
end if
set file=nothing
set upload=nothing
if xxid="" then
Response.Write"<li>您操作参数错误！"
response.end
end if
  if username="" then
Response.Write"<li>您操作参数错误！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "select xinxipic,xxid,username from FOX_zixun where username='"&username&"' and xxid='"&xxid&"'"
rs.open sql,conn,1,3
if session("addzixun")<>"" then
  if DateDiff("s",session("addzixun"),Now())<180 then
  response.write "<script>alert('系统保护：你提交数据太快，系统中止运行，请等待180秒钟！！');history.go(-1);</SCRIPT>"
  response.end
  end if
  end if
if not rs.eof or not rs.bof then
  if trim(rs("xxid"))=xxid then
Response.Write"<li>您操作参数错误！"
response.end
end if
else
rs.addnew
rs("username")=username
rs("xxid")=xxid
rs("xinxipic")=filename
rs.update
end if
rs.close
set rs=nothing
if huitype=1 then
set rs=server.createobject("adodb.recordset")
sql = "select dxb from FOX_user where username='"&username&"'"
rs.open sql,conn,1,3
rs("dxb")=rs("dxb")-tdxb
rs.update
rs.close
set rs=nothing
end if
closedb
response.write "图片成功上传！"
response.write "<a target='_blank' href='../newsupfiles/"&FileName&"'>查看</a>"
%>
不懂代码谢谢了~~~~~~~~

anctea · 发表于 2009-12-14 15:19:59

set upload = new sjCat_Upload

sjCat_Upload 这个类的头文件有没有引进来

dh0433sl · 发表于 2009-12-14 15:48:26

<%Server.ScriptTimeOut=5000%>


不是吗。我不太懂

dh0433sl · 发表于 2009-12-14 15:51:12

2# anctea



<%Server.ScriptTimeOut=5000%>


不是吗。我不太懂

dh0433sl · 发表于 2009-12-14 16:08:31

对了.还得说明一下.我没用IIS.用的是ASP调试器.

小忆 · 发表于 2009-12-15 08:47:45

看看上传组件。遇到这样的问题八成都是上传组件的问题。
很可能是你在本机调试的时候用的是简易IIS调试器吧。一般这样调试上传组件都会出错。放在服务器里用IIS调试不会有这样的错误！
你测试下。如果还有问题。在发帖。我来给你解决！

dh0433sl · 发表于 2009-12-16 11:11:04

6# 小忆 感谢您。问题就您说的，谢谢啦。

LAIFU886 · 发表于 2009-12-16 12:53:00

看看上传组件。遇到这样的问题八成都是上传组件的问题。
很可能是你在本机调试的时候用的是简易IIS调试器吧。一般这样调试上传组件都会出错。放在服务器里用IIS调试不会有这样的错误！
你测试下。如果还有问题。 ...
小忆发表于 2009-12-15 08:47

正解

关注微信公众号

侵权投诉：

意见建议：

后台传图片时出个错高手帮帮忙

精彩评论7

优秀管理者勋章

爱心大使勋章

风雨同舟勋章

搜虎精品社区贡献奖杯

搜虎帅哥勋章

特殊贡献勋章

优秀虎友勋章

搜虎优秀督察员

终身成就勋章

杰出虎友勋章

优秀管理者勋章

爱心大使勋章

风雨同舟勋章

搜虎精品社区贡献奖杯

搜虎帅哥勋章

特殊贡献勋章

优秀虎友勋章

搜虎优秀督察员

终身成就勋章

杰出虎友勋章

TikTok电商学长Ethan·TikTok电商变现实战

【全套完整教程】AI绘画大师班 Midjourney

ThinkPHP+uniapp全开源仿小红书圈子系统全

小狐狸ChatGPT付费创作系统智能问答小程序

爆火的AI全自动剪辑批量剪辑去重混剪软件视

抖音买的十几种课程（5T）：含基本全赛道+

狮子鱼社区团购v18.1去后门全开源独立版：

AI行业最新资料大全（391份）

抖音权重查询源码修复版：内置更稳定的API

关于我们

帮助中心

服务指南

侵权投诉处理

点击这里投诉侵权

反馈建议/违规信息举报