请教一个简单的问题，在线恭候各位高见

tingod 2003-12-04 02:22:50

我是做jsp的，对asp的细节知之甚少，今日遇到这样一个问题：

Microsoft VBScript 运行时错误错误 '800a0005'

无效的过程调用或参数: 'instr'

/gbook/ubb.asp，行17

用google亦不得解，唯有请各位asp高手帮忙解释一下，出现这种错误的原因是什么呢？

...全文

45 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

tingod 2003-12-05

打赏
举报

csdn的asp版中可还有高手能指点一下此问题么？

tingod 2003-12-04

打赏
举报

wsqsoft(Qing)
可是即便取消了所有更改也依然无事呀
同时，运行在另外服务器上的同样程序同样数据却没有这种情况，会不会是服务器的问题呢？

tingod 2003-12-04

打赏
举报

依然无效……

wsqsoft 2003-12-04

打赏
举报

instr是vbscript内制的函数，但你改的程序是不是自已也定制了一个此函数，而你一的个参数值为空？

jiank 2003-12-04

打赏
举报

把RE那三行去掉再试

tingod 2003-12-04

打赏
举报

jiank(一钱不值) ：本程序无注释；我看到的re丁一直是前面的RegExp，无其他地方。至于您所说的错误可能不在instr上，我表示同意。本程序是留言查看页面，并非所有留言都看不到，只是有一篇带有日文字符的文章看不到。

flying310(林林) ：按照您所说的方式错误变化了，如下
------------
Microsoft VBScript 运行时错误错误 '800a0005'

无效的过程调用或参数: 'instr'

/gbook/ubb.asp，行28
-------------

28行是同17行修改千个是相同的代码，同样的还有十几处之多，我想不可能都改掉吧？

flying310 2003-12-04

打赏
举报

if instr(strContent,"[IMG]")>0 then
end if
试试.

jiank 2003-12-04

打赏
举报

把RE的定义以及注释贴出来，不一定是INSTR出问题

tingod 2003-12-04

打赏
举报

谢谢 jiank(一钱不值) 与 zlm18691859() 两位同志，然而按照您们的方法更改后，依然是那个错误

zlm18691859 2003-12-04

打赏
举报

if instr(1,strContent,"[IMG]")>0 then

试试

jiank 2003-12-04

打赏
举报

改为if instr(1,strContent,"[IMG]",vbTextCompare)>=0 then再试试

tingod 2003-12-04

打赏
举报

那么，何谓无效的过程调用或参数呢？之前也有该函数被调用且未提示错误呀

ratnight 2003-12-04

打赏
举报

instr(start,string,string2)
start开始位置，最小为1
string为字符串
string2为要查找的字符串

返回查找的字符串的位置

tingod 2003-12-04

打赏
举报

if instr(1,strContent,"[IMG]",1)>0 then

此句为第17行

tingod 2003-12-04

打赏
举报

<%
function UBBCode(strContent)

dim re,i
strContent=encodestr(strContent)

strContent=funkillWord(strContent)
UbbCode=strContent
if (instr(strContent,"[")=0 or instr(strContent,"]")=0) and instr(strContent,"http://")=0 then
exit function
end if

Set re=new RegExp
re.IgnoreCase =true
re.Global=True

if instr(1,strContent,"[IMG]",1)>0 then
re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
if imgUbb then
strContent=re.Replace(strContent,"<a href=""$2"" target=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>500)this.width=500""></a> ")
else
strContent=re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a href=""$2"" target=_blank>$2</a> ")
end if
end if

————————————————————————————————
以上为出错文件第1到第24行的代码

tingod 2003-12-04