急求助 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: '[string: ""]'
/Default.asp?y=2&id=157&Web=0&page=
page没有值时就出现这种错误
怎么回事呢？
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/inc/functionpicview.asp，行 47
47行是 page=int(request.QueryString ("page"))
<%function picview()dim w,h,numw=Request.Cookies("w")h=Request.Cookies("h")if w="" then w=240if h="" then h=0num=Request.Cookies("num")if num="" then num=2if w=128 thenResponse.write("预览:小图-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=176&ok=1&Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=240&ok=1&Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=0&ok=1&Web="&Web&""">原图</a>")elseif w=176 thenResponse.write("预览:<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=128&ok=1&Web="&Web&""">小图</a>-中图-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=240&ok=1&Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=0&ok=1&Web="&Web&""">原图</a>")elseif w=240 thenResponse.write("预览:<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=128&ok=1&Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=176&ok=1&Web="&Web&""">中图</a>-大图-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=0&ok=1&Web="&Web&""">原图</a>")elseif w=0 or h=0 thenResponse.write("预览:<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=128&ok=1&Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=176&ok=1&Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=240&ok=1&Web="&Web&""">大图</a>-原图")elseResponse.write("预览:<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=128&ok=1&Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=176&ok=1&Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=240&ok=1&Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&id="&id&"&ww=0&ok=1&Web="&Web&""">原图</a>")end ifResponse.write("<br/>快速设置显示:<a href=""Default.asp?y="&y_phone&"&id="&id&"&num=1&Web="&Web&""">1</a>.<a href=""Default.asp?y="&y_phone&"&id="&id&"&num=2&Web="&Web&""">2</a>.<a href=""Default.asp?y="&y_phone&"&id="&id&"&num=3&Web="&Web&""">3</a>.<a href=""Default.asp?y="&y_phone&"&id="&id&"&num=5&Web="&Web&""">5</a>.<a href=""Default.asp?y="&y_phone&"&id="&id&"&num=8&Web="&Web&""">8</a>张<br/>")Dim rspicview,Rspicdow,s,d,c,PageSize,gopage,page,picCount,pagecount,i,piccSet rspicview=Server.CreateObject("ADODB.Recordset")rspicview.open "Select * from picview where ID="& id &"",conn,1,1If Not rspicview.eof Thenflid=rspicview("flid")s=rspicview("s")d=rspicview("d")c=rspicview("c")Conn.Execute("UPDATE picview SET hit=hit+1,hitsj='"&now()&"' WHERE id='"&rspicview("id")&"'")hit=rspicview("hit")gxsj=rspicview("gxsj")if ve=1 thenResponse.write ""&rspicview("name")&"<br/>"elseResponse.write "<div class=""mtt05"">"&rspicview("name")&"</div>"end ifset Rspicdow=Server.CreateObject("ADODB.Recordset")rspicdow.open "select * from picdow where picviewid="& id &" order by id asc",conn,1,1If Not rspicdow.eof ThenPageSize=numgopage="Default.asp?y="&y_picview&"&id="&id&"&Web="&Web&"&"page=int(request.QueryString ("page"))if page<=0 or page="" then page=1picCount=rspicdow.recordcountpagecount=(picCount+pagesize-1)\pagesizeif page>pagecount then page=pagecountrspicdow.move(pagesize*(page-1))For i=1 To PageSizeIf rspicdow.eof Then Exit Forcall BuildSmallPic(rspicdow("picurl"), w, h, 2)Response.write "<img src=""http://"&ubb(tpym)&"/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&""" alt=""图片加栽中请稍候...""/><br/>"picc=replace("/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&"","http://"&request.ServerVariables("Server_NAME")&"","")Dim IPAddIPAdd=address(Request.ServerVariables("REMOTE_ADDR"))if InStr(IPAdd,"电信") or InStr(IPAdd,"联通") thenresponse.write "<a href='linkto.asp?CUD="&CUD&"&web="&web&"'>发送</a>.<a href='/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&"'>下载</a>.<a href='"&rspicdow("picurl")&"'>原图</a>.<a href='linkto.asp?CUD="&CUD&"&web="&web&"'>编辑</a><br/>"elseresponse.write "<a href='/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&"'>下载</a>.<a href='"&rspicdow("picurl")&"'>原图</a>.<a href='Default.asp?y="&y_picdiy&"&id="&id&"&picc="&picc&"&Web="&Web&"'>涂鸦</a>.<a href=""Default.asp?y="&y_tjsave&"&id="&id&"&v="&y_picview&"&Web="&Web&""">推荐</a>.<a href='linkto.asp?CUD="&CUD&"&web="&web&"'>推荐</a><br/>"end ifrspicdow.moveNextNextend ifrspicdow.closeset rspicdow=nothingif tiao=0 thenif Request.Cookies("page")="" thenresponse.Cookies("page")=1elseresponse.Cookies("page")=Request.Cookies("page")+1end ifif Request.Cookies("page") mod 2 = 0 and page>1 thenresponse.redirect "linkto.asp?CUD="&CUD&"&web="&web&""end ifend ifresponse.write "[共"&picCount&"张/"&pageCount&"页/第"&page&"页]<br/>"if page<pageCount then response.write "<a href="""&gopage&"page="&page+1&""">下一页</a> <a href="""&gopage&"page="&pagecount&""">尾页</a>"if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上一页</a> <a href="""&gopage&"page=1"">首页</a>"rspicview.closeset rspicview=nothingend ifresponse.write "<a href='Default.asp?y="&y_tjsave&"&id="&id&"&vote=1&v="&y_picview&"&Web="&Web&"'>推</a>("&s&")/<a href='Default.asp?y="&y_vote&"&id="&id&"&vote=2&v="&y_picview&"&Web="&Web&"'>顶</a>("&d&")/<a href='Default.asp?y="&y_vote&"&id="&id&"&vote=3&v="&y_picview&"&Web="&Web&"'>踩</a>("&c&")<br/>"Dim rsxzset rsxz=server.createobject("adodb.recordset")rsxz.open "select top 1 * from picview where flid=(select flid from picview where id="&id&") and id<"&id&" order by id desc",conn,1,1if rsxz.recordcount>0 thenResponse.write "下组<a href=""Default.asp?y="&y_picview&"&id="&rsxz("id")&"&Web="&Web&""">"&rsxz("name")&"</a>"end ifrsxz.closeset rsxz=nothingResponse.write "<br/>"Dim rsszset rssz=server.createobject("adodb.recordset")rssz.open "select top 1 * from picview where flid=(select flid from picview where id="&id&") and id>"&id&" order by id asc",conn,1,1if rssz.recordcount>0 thenResponse.write "上组<a href=""Default.asp?y="&y_picview&"&id="&rssz("id")&"&Web="&Web&""">"&rssz("name")&"</a>"end ifrssz.closeset rssz=nothingresponse.write "<br/>---------------<br/>"if ve=1 thenResponse.write "<a href='Default.asp?y="&web&"&Web="&Web&"'>[网站首页]</a>><a href='Default.asp?y="&y_piclist&"&flid="&flid&"&Web="&Web&"'>[列表]</a>>[详情]<br/>"elseResponse.write "<div class=""mtt05""><a href='Default.asp?y="&web&"&Web="&Web&"'>[网站首页]</a>><a href='Default.asp?y="&y_piclist&"&flid="&flid&"&Web="&Web&"'>[列表]</a>>[详情]</div>"end ifend function%>