您所在位置：主题：提示我的loop语句缺少DO
dreamart
[专家分：0] 发布于 2008-01-24 02:27:00
因为我不太懂ASP，所以请各位高手能直接告诉我在哪里修改，怎么修改，非常感谢！
错误提示：
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/search01.asp，行101
loop
^
整页程序：
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
key=strgl(trim(request.QueryString("keyword")))
set rs=server.CreateObject("adodb.recordset")
searchkey=split(key," ")
max=ubound(searchkey)
for i=0 to max
sql=sql& "(title like '%" & keywordlist(i) & "%' or content like '%" & keywordlist(i) & "%' or url like '%" & keywordlist
(i) & "%')"
if i<max then sql=sql&" and " end if
next
sql="select * from web where " & sql& " and verify=0 order by id desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<title><%=WebSite_Title%>-<%=keyword%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body vlink="#990000" alink="#00CC00" leftmargin="5" topmargin="0" marginwidth="0" marginheight="5"><center>
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="760" valign="top"> <ol>
<span class="search">
<%
if rs.eof and rs.bof then
response.write "<br><table width=""100%"" border=0><tr><td vAlign=top colSpan=2 class=content>没有找到相关信息，建议您：
<ol><li>请您检查输入的文字有无错误，或换另一个关键词查询；<br><br></li><li>请查看<a href=help.asp target=_blank>搜索帮助信息
</a>，学习使用本搜索系统；</li></ol></td></tr></table></br>"
else
page=Request("page")
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/10
pageCount=int(pageCount)
if (RecordCount mod 10)>0 then
PageCount=PageCount +1
end if
do while pos<(page-1)*10
pos=pos+1
rs.moveNext
loop
x=0
do while x<10 and not rs.eof
dim id,title,content,language,url,sort_path,sort_id,add_time
set id=rs("id")
set title=rs("title")
set content=rs("content")
set language=rs("language")
set url=rs("url")
set sort_path=rs("sort_path")
set sort_id=rs("sort_id")
set add_time=rs("time")
for i=0 to max
response.write "<li><span class='title'><a href='http://"&url&"' target='_blank'>"&replace(title,searchkey(i),"<font
color='#FF0000'>"&searchkey(i)&"</font>")&"</a></span>"
response.write " <font class='url'>["&language&"]</font>"
if rs("ad")="是" then
response.write "<font color='#ff0000'>荐</font>"
else
end if
response.write "</span><br>"
response.write "<span class='content'>"&replace(content,searchkey(i),"<font color='#FF0000'>"&searchkey(i)&"</font>")
&"</span><br>"
response.write "<span class='url'>"&replace(url,searchkey(i),"<font color='#ff0000'>"&searchkey(i)&"</font>")&"</span>"
response.write " - <a href='show.asp?keyword="&searchkey(i)&"&url=http://"&url&"' target='_blank'>网站快照</a>"
response.write " - <a href='list.asp?sort_id="&sort_id&"' target='_self'>类似网站</a>"
response.write "</span><br><br><br>"
x=x+1
rs.movenext
loop
response.write "</li>"
response.write "</ol>"
response.write "<table width='100%' height='25' border='0' cellpadding='0' cellspacing='0' bgcolor='#f5f5f5'>"
response.write "<tr>"
response.write "<td height='25' align='center' class='search'>"
if page=1 then
else
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=page-1%>' class='search'>上一页</a>"
end if
y=1
do while y<pagecount+1
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=y%>' class='search'><%=y%></a>"
y=y+1
loop
if pagecount-page=0 then
else
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=page+1%>' class='search'>下一页</a>"
end if
response.write "页次:<%if page="" then%>1"
else
response.write "<%=page%>/<%=pageCount%>页</td>"
end if
response.write "</tr>"
response.write "</table>"
end if
rs.close
%>
</td>
</tr>
</table>
</center>
</html>
<%
rs.close
set rs=Nothing
conn.close
set conn=Nothing
connstr.close
set connstr=Nothing
%>
错误提示：
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/search01.asp，行101
loop
^
整页程序：
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
key=strgl(trim(request.QueryString("keyword")))
set rs=server.CreateObject("adodb.recordset")
searchkey=split(key," ")
max=ubound(searchkey)
for i=0 to max
sql=sql& "(title like '%" & keywordlist(i) & "%' or content like '%" & keywordlist(i) & "%' or url like '%" & keywordlist
(i) & "%')"
if i<max then sql=sql&" and " end if
next
sql="select * from web where " & sql& " and verify=0 order by id desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<title><%=WebSite_Title%>-<%=keyword%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body vlink="#990000" alink="#00CC00" leftmargin="5" topmargin="0" marginwidth="0" marginheight="5"><center>
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="760" valign="top"> <ol>
<span class="search">
<%
if rs.eof and rs.bof then
response.write "<br><table width=""100%"" border=0><tr><td vAlign=top colSpan=2 class=content>没有找到相关信息，建议您：
<ol><li>请您检查输入的文字有无错误，或换另一个关键词查询；<br><br></li><li>请查看<a href=help.asp target=_blank>搜索帮助信息
</a>，学习使用本搜索系统；</li></ol></td></tr></table></br>"
else
page=Request("page")
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/10
pageCount=int(pageCount)
if (RecordCount mod 10)>0 then
PageCount=PageCount +1
end if
do while pos<(page-1)*10
pos=pos+1
rs.moveNext
loop
x=0
do while x<10 and not rs.eof
dim id,title,content,language,url,sort_path,sort_id,add_time
set id=rs("id")
set title=rs("title")
set content=rs("content")
set language=rs("language")
set url=rs("url")
set sort_path=rs("sort_path")
set sort_id=rs("sort_id")
set add_time=rs("time")
for i=0 to max
response.write "<li><span class='title'><a href='http://"&url&"' target='_blank'>"&replace(title,searchkey(i),"<font
color='#FF0000'>"&searchkey(i)&"</font>")&"</a></span>"
response.write " <font class='url'>["&language&"]</font>"
if rs("ad")="是" then
response.write "<font color='#ff0000'>荐</font>"
else
end if
response.write "</span><br>"
response.write "<span class='content'>"&replace(content,searchkey(i),"<font color='#FF0000'>"&searchkey(i)&"</font>")
&"</span><br>"
response.write "<span class='url'>"&replace(url,searchkey(i),"<font color='#ff0000'>"&searchkey(i)&"</font>")&"</span>"
response.write " - <a href='show.asp?keyword="&searchkey(i)&"&url=http://"&url&"' target='_blank'>网站快照</a>"
response.write " - <a href='list.asp?sort_id="&sort_id&"' target='_self'>类似网站</a>"
response.write "</span><br><br><br>"
x=x+1
rs.movenext
loop
response.write "</li>"
response.write "</ol>"
response.write "<table width='100%' height='25' border='0' cellpadding='0' cellspacing='0' bgcolor='#f5f5f5'>"
response.write "<tr>"
response.write "<td height='25' align='center' class='search'>"
if page=1 then
else
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=page-1%>' class='search'>上一页</a>"
end if
y=1
do while y<pagecount+1
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=y%>' class='search'><%=y%></a>"
y=y+1
loop
if pagecount-page=0 then
else
response.write "<a href='search.asp?keyword=<%=keyword%>&page=<%=page+1%>' class='search'>下一页</a>"
end if
response.write "页次:<%if page="" then%>1"
else
response.write "<%=page%>/<%=pageCount%>页</td>"
end if
response.write "</tr>"
response.write "</table>"
end if
rs.close
%>
</td>
</tr>
</table>
</center>
</html>
<%
rs.close
set rs=Nothing
conn.close
set conn=Nothing
connstr.close
set connstr=Nothing
%>
