急 Microsoft VBScript 运行时异常 异常 '800a000d' 类型不匹配: '[string: ""]'

<%
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("预览:小图-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=176&amp;ok=1&amp;Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=240&amp;ok=1&amp;Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=0&amp;ok=1&amp;Web="&Web&""">原图</a>")
elseif w=176 then
Response.write("预览:<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=128&amp;ok=1&amp;Web="&Web&""">小图</a>-中图-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=240&amp;ok=1&amp;Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=0&amp;ok=1&amp;Web="&Web&""">原图</a>")
elseif w=240 then
Response.write("预览:<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=128&amp;ok=1&amp;Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=176&amp;ok=1&amp;Web="&Web&""">中图</a>-大图-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=0&amp;ok=1&amp;Web="&Web&""">原图</a>")
elseif w=0 or h=0 then
Response.write("预览:<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=128&amp;ok=1&amp;Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=176&amp;ok=1&amp;Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=240&amp;ok=1&amp;Web="&Web&""">大图</a>-原图")
else
Response.write("预览:<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=128&amp;ok=1&amp;Web="&Web&""">小图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=176&amp;ok=1&amp;Web="&Web&""">中图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=240&amp;ok=1&amp;Web="&Web&""">大图</a>-<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;ww=0&amp;ok=1&amp;Web="&Web&""">原图</a>")
end if

Response.write("<br/>快速设置显示:<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;num=1&amp;Web="&Web&""">1</a>.<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;num=2&amp;Web="&Web&""">2</a>.<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;num=3&amp;Web="&Web&""">3</a>.<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;num=5&amp;Web="&Web&""">5</a>.<a href=""Default.asp?y="&y_phone&"&amp;id="&id&"&amp;num=8&amp;Web="&Web&""">8</a>张<br/>")
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")&"<br/>"
else
Response.write "<div class=""mtt05"">"&rspicview("name")&"</div>"
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&"&amp;id="&id&"&amp;Web="&Web&"&amp;"
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 "<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 IPAdd
IPAdd=address(Request.ServerVariables("REMOTE_ADDR"))
if InStr(IPAdd,"电信") or InStr(IPAdd,"联通") then
response.write "<a href='linkto.asp?CUD="&CUD&"&amp;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&"&amp;web="&web&"'>编辑</a><br/>"
else
response.write "<a href='/picview/Temp/"&w&"x"&h&"/"&getfilename(rspicdow("picurl"))&"'>下载</a>.<a href='"&rspicdow("picurl")&"'>原图</a>.<a href='Default.asp?y="&y_picdiy&"&amp;id="&id&"&amp;picc="&picc&"&amp;Web="&Web&"'>涂鸦</a>.<a href=""Default.asp?y="&y_tjsave&"&amp;id="&id&"&amp;v="&y_picview&"&amp;Web="&Web&""">推荐</a>.<a href='linkto.asp?CUD="&CUD&"&amp;web="&web&"'>推荐</a><br/>"
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&"页]<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.close
set rspicview=nothing
end if
response.write "<a href='Default.asp?y="&y_tjsave&"&amp;id="&id&"&amp;vote=1&amp;v="&y_picview&"&amp;Web="&Web&"'>推</a>("&s&")/<a href='Default.asp?y="&y_vote&"&amp;id="&id&"&amp;vote=2&amp;v="&y_picview&"&amp;Web="&Web&"'>顶</a>("&d&")/<a href='Default.asp?y="&y_vote&"&amp;id="&id&"&amp;vote=3&amp;v="&y_picview&"&amp;Web="&Web&"'>踩</a>("&c&")<br/>"

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 "下组<a href=""Default.asp?y="&y_picview&"&amp;id="&rsxz("id")&"&amp;Web="&Web&""">"&rsxz("name")&"</a>"
end if
rsxz.close
set rsxz=nothing
Response.write "<br/>"

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 "上组<a href=""Default.asp?y="&y_picview&"&amp;id="&rssz("id")&"&amp;Web="&Web&""">"&rssz("name")&"</a>"
end if
rssz.close
set rssz=nothing
response.write "<br/>---------------<br/>"
if ve=1 then
Response.write "<a href='Default.asp?y="&web&"&amp;Web="&Web&"'>[网站首页]</a>><a href='Default.asp?y="&y_piclist&"&amp;flid="&flid&"&amp;Web="&Web&"'>[列表]</a>>[详情]<br/>"
else
Response.write "<div class=""mtt05""><a href='Default.asp?y="&web&"&amp;Web="&Web&"'>[网站首页]</a>><a href='Default.asp?y="&y_piclist&"&amp;flid="&flid&"&amp;Web="&Web&"'>[列表]</a>>[详情]</div>"
end if

end function
%>