急求助MicrosoftVBScript运行时错误错误'800a000d'类型不匹配:'[string:""]'

作者：简写青春 | 来源：互联网 | 2023-06-02 17:34

Default.asp?y2&id157&Web0&pagepage没有值时就出现这种错误怎么回事呢？MicrosoftVBScript运行时错误

/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,num
w=Request.COOKIEs("w")
h=Request.COOKIEs("h")
if w="" then w=240
if h="" then h=0
num=Request.COOKIEs("num")
if num="" then num=2
if w=128 then

Response.write("预览:小图-中图-大图-原图")
elseif w=176 then
Response.write("预览:小图-中图-大图-原图")
elseif w=240 then
Response.write("预览:小图-中图-大图-原图")
elseif w=0 or h=0 then
Response.write("预览:小图-中图-大图-原图")
else
Response.write("预览:小图-中图-大图-原图")
end if

Response.write("
快速设置显示:1.2.3.5.8张
")
Dim rspicview,Rspicdow,s,d,c,PageSize,gopage,page,picCount,pagecount,i,picc
Set rspicview=Server.CreateObject("ADODB.Recordset")
rspicview.open "Select * from picview where ID="& id &"",conn,1,1
If Not rspicview.eof Then
flid=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 then
Response.write ""&rspicview("name")&"
"
else
Response.write ""&rspicview("name")&"

"
end if

set Rspicdow=Server.CreateObject("ADODB.Recordset")
rspicdow.open "select * from picdow where picviewid="& id &" order by id asc",conn,1,1
If Not rspicdow.eof Then
PageSize=num
gopage="Default.asp?y="&y_picview&"&id="&id&"&Web="&Web&"&"
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1
picCount=rspicdow.recordcount
pagecount=(picCount+pagesize-1)\pagesize
if page>pagecount then page=pagecount
rspicdow.move(pagesize*(page-1))
For i=1 To PageSize
If rspicdow.eof Then Exit For
call BuildSmallPic(rspicdow("picurl"), w, h, 2)
Response.write "
"
picc=replace("/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&"","http://"&request.ServerVariables("Server_NAME")&"","")
Dim IPAdd
IPAdd=address(Request.ServerVariables("REMOTE_ADDR"))
if InStr(IPAdd,"电信") or InStr(IPAdd,"联通") then
response.write "发送.下载.原图.编辑
"
else
response.write "下载.原图.涂鸦.推荐.推荐
"
end if
rspicdow.moveNext
Next
end if
rspicdow.close
set rspicdow=nothing

if tiao=0 then
if Request.COOKIEs("page")="" then
response.COOKIEs("page")=1
else
response.COOKIEs("page")=Request.COOKIEs("page")+1
end if
if Request.COOKIEs("page") mod 2 = 0 and page>1 then
response.redirect "linkto.asp?CUD="&CUD&"&web="&web&""
end if
end if

response.write "[共"&picCount&"张/"&pageCount&"页/第"&page&"页]
"
if page下一页尾页"
if page>1 then response.write "上一页首页"
rspicview.close
set rspicview=nothing
end if
response.write "推("&s&")/顶("&d&")/踩("&c&")
"

Dim rsxz
set 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,1
if rsxz.recordcount>0 then
Response.write "下组"&rsxz("name")&""
end if
rsxz.close
set rsxz=nothing
Response.write "
"

Dim rssz
set 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,1
if rssz.recordcount>0 then
Response.write "上组"&rssz("name")&""
end if
rssz.close
set rssz=nothing
response.write "
---------------
"
if ve=1 then
Response.write "[网站首页]>[列表]>[详情]
"
else
Response.write "[网站首页]>[列表]>[详情]

"
end if

end function
%>

7 个解决方案

#1

int 是取整函数，但不带类型转换

你用 cint 转换，或者转换前用 isnumeric 判断，就不出错了

#2

类型不匹配: 'cint'

#3

楼上maybe正解.

#4

把这句page=int(request.QueryString ("page"))改成多句避免错误：

page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)