Question

Microsoft VBScript 运行时错误 '800a0005' 无效的过程调用或参数: 'Right' \List.asp, line 55

Dim pic_dy,cid
'=======================================================================
pic_dy=lcase(HTMLEncode(Rs("Content")))
pic_dy=left(pic_dy,instr(pic_dy,"[/img]")+2)
pic_dy=right(pic_dy,len(pic_dy)-4-instr(pic_dy,"[/img]"))第55行
Response.Write"<li><a href=""context.asp?id="&Rs("ID")&"""><img src="""&pic_dy&""" alt="""&Rs("title")&"""><br>"&Rs("title")&"</a></li>"
Rs.movenext

Answer 1

len(pic_dy)-4-instr(pic_dy,"[/img]") 最好先打印出这个数字看看，是否小于0了，，语法没错，唯一可能应该是这个了吧

追问

怎么判断是否小于0？我都熬了快两天都不会，真的谢谢

追答

pic_dy=left(pic_dy,instr(pic_dy,"[/img]")+2)

'这边先打印值看看
temprightlen = len(pic_dy)-4-instr(pic_dy,"[/img]")

response.write(temprightlen)

response.end()
if temprightlen <0 then
temprightlen = xxxx '重新赋值
end if
pic_dy=right(pic_dy ,temprightlen) '截取字段

追问

出现这种情况了

而且点进去没有内容

追答

pic_dy证明你这个地址有问题，打印出来看看，实际和你保存图片的地址对比看看是多了或者少了什么。。在去修改