Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数:
MicrosoftVBScript运行时错误错误'800a0005'无效的过程调用或参数:'left'D:\WWWROOT\JINGLUN\WEB\A8857\INC\....
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
我一点也不懂，麻烦大虾告诉我如何解决。要解决办法，是如何造成的我也不不明白。要个解决办法就行了。 展开
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
我一点也不懂，麻烦大虾告诉我如何解决。要解决办法，是如何造成的我也不不明白。要个解决办法就行了。 展开
展开全部
很有可能你的查询结果中一条记录也没有,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
照着改
rs.close : set rs=nothing
On Error Resume Next
getTags=left(getTags,len(getTags)-1)
If Err.Number<>0 Then getTags = ""
End Function
更多追问追答
追问
那该如何解决这个问题呢
追答
照我上面的改
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
苏州蓝晓生物科技有限公司_
2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品：公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线，年产分离介质50000L，产品质量稳定并达到国际领先水平。核心优势：公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经...
点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
