杭州交通信息网战争有声小说:怎样给for next 设定循环周期时间
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 19:45:36
objRegExp1.Pattern = "(<iframe src=)(.+?)(</iframe>)"
Set Matches1 = objRegExp1.Execute(str)
For i=0 To Matches1.Count-1
ss=Matches1(i).Value
response.write ""&ss&""
Next
这个是我调试的程序从目标的表单中提取<iframe src=)(.+?)(</iframe>)"之间的条件，提取出来的结果是""&ss&""，显示的时候我想没隔10秒执行一次循环
Set Matches1 = objRegExp1.Execute(str)
For i=0 To Matches1.Count-1
ss=Matches1(i).Value
response.write ""&ss&""
Next
这个是我调试的程序从目标的表单中提取<iframe src=)(.+?)(</iframe>)"之间的条件，提取出来的结果是""&ss&""，显示的时候我想没隔10秒执行一次循环
思路:先从取出数据放入数组,再在客户端进行循环显示
<%objRegExp1.Pattern = "(<iframe src=)(.+?)(</iframe>)"
Set Matches1 = objRegExp1.Execute(str)
dim ss(Matches1.Count-1)
response.write "<script>"
response.write "var s=new Array();"
For i=0 To Matches1.Count-1
ss(i)=Matches1(i).Value
response.write "s["&i&"]="&ss(i)&""
Next
response.write </script>%>
<!--客户端显示-->
<script>
var m=0;
function show(){
if(m>=<%=Matches1.Count-1%>)m=0
document.write(s[m])
m+=1;
setTimeout("show()",10000);}
show();
</script>