我的程序是wap，由于该程序有2个版本，一个有文件下载功能，比较旧版！
一个新版，没有文件下载功能，所以我只好把旧版的下载功能整合到新版上！
文件功能倒是没有出错，但是图片功能却出错了！晕~
所以我又把图片功能一些文件覆盖到新版上！
但是访问 图片频道就出错！
是：<p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2>错误 '800a000b'</font>
<p>
<font face="宋体" size=2>被零除</font>
<p>
<font face="宋体" size=2>/pic.asp</font><font face="宋体" size=2>，行 48</font>
总之源文件的代码是绝对没错的，我刚刚也把旧版上传到另外一个空间上，测试了没错！
就是新版有错，所以代码是绝对没错的！
我估计应该是有些文件没覆盖！
但是我覆盖的都覆盖了!其它的我都不知道那个是图片功能的文件！
哎~
错误地址是： http://3gley.host88.itpz.cn/pic.asp?cid=8&sid=null 【请用wap模式器访问】
模式器地址是: http://www.ggg.cn/MaxEwb.htm
这个无错的: http://xyq163.kongse.com/pic.asp?cid=8&sid=
源代码是：
<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->
<%Call Head()
dim add,sql,classname
add=request.QueryString("cid")
if add="" or IsNumeric(add)=False then
Call Error("<card title=""ID无效""><p>ID无效！")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from wjclass where id="&add
rs.open sql,conn,1,1
if rs.eof then
rs.close
set rs=Nothing
Call Error("<card title=""ID无效""><p>ID无效！")
end if
classname=rs("name")
rs.close
set rs=Nothing
response.write"<card title='"&classname&"'><p>"
'-------A登录信息
if myid=0 then
Response.write "欢迎您:<a href='login.asp?url="&Replace(Replace(R_url(),"sid=","o="),"sid=","o=")&"'>登陆/注册</a><br/>----------<br/>"& chr(13)
else
'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
newguest = ForNewGuest(myid)
END IF
if newguest > 0 then
Response.write "<a href='bbs/msgview.asp?url="&Replace(Replace(R_url(),"sid=","o="),"sid=","o=")&"&sid="&sid&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
end if
'---------------------------
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from wjlist where id="&add&" order by pid asc"
rs.open sql,conn,1,1
If Not rs.eof Then
Dim PageSize,i
PageSize=picnum
Dim Count,page,pagecount,gopage
gopage="soft.asp?class="&add&"&cid="&add&"&sid="&sid&"&"
Count=rs.recordcount
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1
pagecount=(count+pagesize-1)\pagesize
if page>pagecount then page=pagecount
rs.move(pagesize*(page-1))
For i=1 To PageSize
If rs.eof Then Exit For
response.write"<a href='pic_list.asp?class="&rs("lid")&"&cid="&add&"&p="&page&"&sid="&sid&"'>"&i+(page-1)*PageSize&"."&UBB(rs("name"))&"</a><br/>"
rs.moveNext
Next
if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">[GO]</a><br/>"
Else
response.write"暂时没有栏目！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"----------<br/>"
'response.write"<anchor>返回上级<prev/></anchor><br/>"
response.write"<a href='index.asp?sid="&sid&"'>返回首页</a>"
response.write"</p></card></wml>"
%>
麻烦大家帮帮我！谢谢~