asp最有意思的迷宫，求解! - 编程论坛

#2

adsdomain2008-05-26 18:38

运行错误！

Microsoft VBScript 编译器错误 (0x800A03FC)
缺少 'Next'
/asptest/mig.asp, 第 26 行

第26行代码
end if

#3

boyfuture2008-05-26 18:42

是啊，是有问题，这个问题我已经晕了，搞不清咋弄，有解决方案吗？

#4

yms1232008-05-26 19:13

<%
  For i=0 to rs.recordcount
        if i<rs.recordcount then
           Do Until rs.EOF
                  Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
                 Response.Write(""&rs("sendtime")&"")
                Response.Write("###")
               rs.MoveNext
        Loop
  else if i=rs.recordcount then
           Do Until rs.EOF
                 Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
                 Response.Write(""&rs("sendtime")&"")
                 Response.Write("")
                 rs.MoveNext
            Loop
       End if
  End if
Next
  %>

#5

dhdhzzw2008-05-27 09:08

For i=0 to rs.recordcount
   if i<rs.recordcount then
  Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("###")
rs.MoveNext
   Loop
else if i=rs.recordcount then
Do Until rs.EOF
Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
Response.Write(""&rs("sendtime")&"")
Response.Write("")
rs.MoveNext
   Loop
end if
end if
next

#6

sylknb2010-02-08 17:18

Response.Write(escape(rs("sender").Value + "@@@" + rs("target").Value+ "@@@" + rs("sendcontent").Value+ "@@@"))
此句中escape()是javascript函数，在用vbscript脚本书写的ASP中可以用吗？