asp中,为什么mid()函数在循环中语句老是出错?

来源:百度知道 编辑:UC知道 时间:2024/06/18 12:11:58
1.asp中,为什么mid()函数在循环中语句老是出错?

我的语句是这样的
pos1=1
do while pos1 > 0
%>
<%
pos1 = InStr(1, strContent, "<", vbTextCompare)
pos2 = InStr(1, strContent, ">", vbTextCompare)
title = Mid( strContent, pos1, pos2 - pos1+1 )
strContent=Replace(strContent,title,"")

%>
<%
loop
%>

去调do while loop就是正常的,即不循环的时候允许是正常
但是加上循环就出错
出错内容如下:
错误类型:
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'Mid'
/zhuaqu1.asp, 第 53 行

谢谢各位帮我解决下
2.replace只能替换一个
我是想实现replace替换所有符合条件的地方,该怎么实现

Mid函数是从第一个字符开始取值的
如果 pos1 = InStr(1, strContent, "<", vbTextCompare) 这句话得到的POS1小于1的话,程序Mid函数当然就会报错了

感觉你在网上,下载来的代码
一步一步的测试,看错在那里