UC知道ASP网站代码错误 Microsoft VBScript 编译器错误 错误 '800a040e'
来源：百度知道 编辑：UC知道 时间：2024/05/29 20:07:50
从网站上下载了个B2B网站程序，在企业会员管理项出现错误，显示如下：
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/admin/yp/yp.asp，行 208
loop
^
调用文件为 manage.asp，代码下面跟帖，请高手帮我看下是哪里的错误，谢谢！！
我没有多少分，只是希望找个师傅，可以偶尔教我下的，谢谢你！！！
刚才我说错了，应该是YP/YP.ASP文件，我把代码贴出来请各问大哥看下，帮我分析下，告诉我下怎么修改，谢谢了！
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/admin/yp/yp.asp，行 208
loop
^
调用文件为 manage.asp，代码下面跟帖，请高手帮我看下是哪里的错误，谢谢！！
我没有多少分，只是希望找个师傅，可以偶尔教我下的，谢谢你！！！
刚才我说错了，应该是YP/YP.ASP文件，我把代码贴出来请各问大哥看下，帮我分析下，告诉我下怎么修改，谢谢了！
找到
<tr align=center height=22>
<td><%=n%></td>
修改如下
<%
do while not rs.eof%>
<tr align=center height=22>
<td><%=n%></td>
说明的不是很清楚吗？
循环语句loop开头缺do啊
1038 800A040E 'loop' 没有 'do'
全部代码地址：http://zhidao.baidu.com/question/46237020.html
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla1<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End
end if%>
<%cha=request("cha")
if request("Submit")="删 除" then '共删除 13 项
id=replace(request("id")," ","