ASP取字节的错误

来源:百度知道 编辑:UC知道 时间:2024/05/25 10:42:53
<%
do while tt
title=mid(t1,i,1)
if asc(title)>=0 then
i=i+1
else
i=i+2
end if

title=title & stmp

if i>=20 or i>=len(t1) then
tt=flase
end if

loop

response.write title
rs.movenext
j=j+1
loop

end if
rs.close
set rs=nothing
%>

错误原因:Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/index.asp,行 192

end if
^

if i>=20 or i>=len(t1) then
tt=flase
end if

loop

response.write title
rs.movenext
j=j+1
loop

end if

多了一句loop和end if 把"response.write title "上面的一句loop和最下面的end if去掉

两个loop,只有一个do,当然是少了个do while了.
自己检查下吧