Question

Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'Right' /class.asp，行 39

Function cname(c_id,c_name)
if c_id<>"" then
w=Len(c_id)
d=Len(c_name)
h=InStr(c_name,"'"&c_id&"'")
var_c=Right(c_name,d-(h+w+2))（提示39行出错，这是第39行）
d1=InStr(var_c,",")
cname=Left(var_c,d1-1)
else
cname=""
end if
End Function

Answer 1

看了下代码，还真没找到有无效的过程调用或参数不对的。

经调试，语法是应该没错误的，但实时运行中 Right 的第2个参数，可能会由于运算得不到正确的结果而导致错误。 

请单独运行以下代码：

MsgBox Right("dddddd",-2)

运行后，弹出的错误提示：

追问

你看这段代码和这关联吗。"" then%>因为我要调用二级分类。

追答

从代码看，rs("sclass") 和 sclass 这两个参数在运行过程中的值，代入到 cname 函数中，如果不符合运算规则，就会产生错误。