急！请高手帮帮忙，小弟在线等，我这个代码为什么一运行就进死循环？

♀鈊亂ゞ鎵伙 · 发表于 2010-1-13 03:57:48

<% set rs=server.createobject("adodb.recordset") sql="select * from guestbook order by 日期 desc" rs.open sql,conn,2,3 %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <title>Class 10 GuestBook</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <base target="_self"> <script language="JavaScript">  </script> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">  <div align="center"> <table id="__01" width="780" height="600" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3"> <img src="images/index_01.gif" width="780" height="200" alt=""></td> </tr> <tr> <td colspan="3" width="780" height="27"> <a href="#write">留言填写</a> </td> </tr>  <%while not rs.EOF%> <tr> <td colspan="3" background="images/index_03.gif" width="780" height="7"> </td> </tr> <tr> <td rowspan="6" background="images/index_04.gif" width="5" height="147"> </td> <td width="770" height="17"> <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2"> <tr> <td>来自<%=rs("来自")%>的<%=rs("作者")%>说：</td> <td> <p align="right">日期：<%=rs("日期")%></td> </tr> </table> </td> <td rowspan="6" background="images/index_06.gif" width="5" height="147"> </td> </tr> <tr> <td> <img src="images/index_07.gif" width="770" height="7" alt=""></td> </tr> <tr> <td width="770" height="60" valign="top" > <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4"> <tr> <td><%=rs("内容")%></td> </tr> </table> </td> </tr> <tr> <td> <img src="images/index_09.gif" width="770" height="20" alt=""></td> </tr> <tr> <td width="770" height="38"> <%if rs("站长回复")="" then%> 请等待站长给您回复^_^ <%if session("longin")=1 then%> <a target="_blank" href="rep.asp?id=<%=rs("id")%>">给他回复</a> <a href='javascript:go("save.asp?action=del&id=<%=rs("id")%>","您确定要删除吗？")'>删除该留言</a> <%end if%> <%else%> <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1"> <tr> <td>站长回复：</td> <td> <p align="right">回复日期：<%=rs("回复日期")%></td> </tr> <tr> <td colspan="2"><%=rs("站长回复")%></td> </tr> </table> <%end if%> </td> </tr> <tr> <td> <img src="images/index_11.gif" width="770" height="5" alt=""></td> </tr> <% rs.movenext wend %>  <tr> <td colspan="3" width="780" height="219" valign="top"> <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3"> <tr> <td>　</td> </tr> </table> <a name="write"></a> <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table5"> <tr> <td> <form method="POST" action="save.asp?action=save"> <table border="0" width="100%" cellspacing="0" cellpadding="0" id="table6"> <tr> <td>你的名字：<input type="text" name="name" size="20"></td> <td>来自：<input type="text" name="from" size="20"></td> </tr> <tr> <td colspan="2">留言内容：</td> </tr> <tr> <td colspan="2"> <textarea rows="10" name="nr" cols="108"></textarea></td> </tr> </table> <p align="center"> <input type="submit" value="OK，就这样" name="B1">          <input type="reset" value="不行，我要重写" name="B2"></p> <script for="B1" event="on click" language="vbscript"> name=name.value from=from.value nr=nr.value if name="" then MsgBox"你是无名大侠？" else if from="" then MsgBox"火星人还是地球人？" else if nr="" then MsgBox"小子想灌水？" end if </script> </form> <%if session("longin")<>1 then%><p align="right"><a href="admin.asp">站长登陆</a><%end if%> <%if session("longin")=1 then%><p align="right"><a href="admin.asp?action=logout">退出登陆</a><%end if%> </td> </tr> </table> </td> </tr> </table> </div>  </body> </html>

依ing梦 · 发表于 2010-1-13 03:57:51

附上conn.asp <% dim sz dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("date/date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr %>

火箭筒︻$▅ · 发表于 2010-1-13 03:57:55

各位大哥哥，小弟已经找到错误了，让大家浪费了点时间，对不起

唏唏鉿鉿HJP · 发表于 2010-1-13 03:58:03

建议调试时不要用on error resume next 这样有错误都看不到!

		自动登录	找回密码
密码			注册

急！请高手帮帮忙，小弟在线等，我这个代码为什么一运行就进死循环？

浏览过的版块