Question

Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数:

Microsoft VBScript 运行时错误错误 '800a0005'无效的过程调用或参数: 'left'D:\WWWROOT\JINGLUN\WEB\A8857\INC\../../inc/AspCms_CommonFun.asp，行 1439

Function getTags(tagID)
dim sql,rs
if isnul(tagID) then exit function
sql="select * from {prefix}Tag where TagID in("&replace(replace(replace(tagID,"}{",","),"{",""),"}","")&")"
set rs=conn.exec(sql,"r1")
do while not rs.Eof
getTags=getTags&rs("TagName")&","
rs.movenext
loop
rs.close : set rs=nothing
getTags=left(getTags,len(getTags)-1) [这是第1439行]
End Function
我一点也不懂，麻烦大虾告诉我如何解决。要解决办法，是如何造成的我也不不明白。要个解决办法就行了。

Answer 1

很有可能你的查询结果中一条记录也没有,getTags的长度为0,那么,你再减1就出错了.

照着改

rs.close : set rs=nothing
On Error Resume Next

getTags=left(getTags,len(getTags)-1)
If Err.Number<>0 Then getTags = ""

End Function

追问

那该如何解决这个问题呢

追答

照我上面的改

追问

服死你了，高手就是高手，立即见效。