为什么提示我的loop语句缺少do

主题：为什么提示我的loop语句缺少do

stoneghgh [专家分：0] 发布于 2009-12-27 20:39:00

本公司网站打不开好几天了一直找不到解决办法，错误提示如下，忘大家相助了。
Microsoft VBScript 编译器错误错误 '800a040e'
'loop' 语句缺少 'do'
/index.asp，行 52
Loop
^
现我把25-60 行代码公示如下，其中52行是 loop
</table>
               <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                 <tr>
                   <td><img src="Images/gonggao.gif" width="228" height="25"></td>
                 </tr>
                 <tr>
                   <td bgcolor="#CACDDC"><table width="100%" border="0" align=center cellpadding="0" style="border-collapse: collapse">
<tr><td height=5></td></tr>
<tr><td>
<div id=design style="OVERFLOW: hidden; WIDTH: 220px; HEIGHT: 95px">
<div id=design1 style="OVERFLOW: hidden">
  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                             <tr>
                               <td width="12%" height="20" valign="middle" class="font3"> </td>
                               <td width="88%" class="font3"> </td>
                                do while not rs.eof
%>

                               <tr>
<td width="12%" height="20" valign="middle" class="font3"><%=rs("xxx")%></td>
<td width="88%" class="font3"><%=rs("xxx")%></td>

                             </tr>      <%
            rs.MoveNext
             loop
---^

            rs.Close
            %>
                           </table>
         </div>
            rs.Close

本帖地址： http://bbs.pfan.cn/post/314484.html

回复列表（共3个回复）

沙发

stoneghgh [专家分：0] 发布于 2009-12-28 11:13:00

请高手给指点了，现将1-70行代码复制如下，我将每行加上数字更利于查看。

1    <%@ Language=VBScript%>
2    <%
3    Response.Buffer=true
4    Response.Expires=0
5    pageno = replace(request("pageno"),"'","")
6    %>
7    
8    <%
9    set cn=server.CreateObject("ADODB.Connection")
10    set rs=server.CreateObject("ADODB.Recordset")
11    cn.Open mycnstr
12
13    %>
14    
15    </script>
16    <link href="font.css" rel="stylesheet" type="text/css">
17    <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
18    <table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333">
19      <tr>
20        <td  bgcolor="#FFFFFF">
21        
22    <table width="1002" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333333">
23      <tr>
24        <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
25            <tr>
26              <td width="245" rowspan="2" align="center" valign="top" background="Images/leftbj.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
27                  <tr>
28                    <td></td>
29                  </tr>
30                </table>
31                <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
32                  <tr>
33                    <td height="12"></td>
34                  </tr>
35                </table>
36                   <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
37                     <tr>
38                       <td><img src="Images/gonggao.gif" width="228" height="25"></td>
39                     </tr>
40                     <tr>
41                       <td bgcolor="#CACDDC"><table width="100%" border="0" align=center cellpadding="0" style="border-collapse: collapse">
42    <tr><td height=5></td></tr>
43    <tr><td>
44    <div id=design style="OVERFLOW: hidden; WIDTH: 220px; HEIGHT: 95px">
45    <div id=design1 style="OVERFLOW: hidden">
46    <%
47                sql="select top 6 id,title from news where ppid=17 and cnflag=1 and pid = 51 order by editdate desc"
48                rs.Open sql,cn,1,1
49                do while not rs.EOF
50                %>
51                               <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
52                                 <tr>
53                                   <td width="12%" height="20" valign="middle" class="font3"><div align="center">
54                                     <div align="center"><img src="Images/dian.gif" width="3" height="3"></div>
55                                   </div></td>
56                                   <td width="88%" class="font3"><a href="env_info.asp?keyno=<%=rs("id")%>">
57                <%=cutstr(chkstr(rs("title"),1),12,0)%>
58    </a></td>
59                                 </tr>      <%
60                rs.MoveNext
61                loop
62                rs.Close
63                %>
64                               </table>
65             </div>
66    <div id=design2>
67    </div>
68    </div>
69    <script>
70    var speed=65

板凳

wuruxiang [专家分：60] 发布于 2010-04-02 11:40:00

你应该把整个文件的代码都发上来。谁知道你下面的语句里是不是多写了个 loop

3 楼

lx99cool [专家分：50] 发布于 2010-04-27 20:38:00

晕晕的............

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：为什么提示我的loop语句缺少do

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：为什么提示我的loop语句缺少do

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）