UC知道'loop' 语句缺少 'do' 最后的地方
来源：百度知道 编辑：UC知道 时间：2024/05/25 15:07:15
<%
call aspsql()
Page=request("page")
Keywords=trim(request("keywords"))
if Keywords<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from key where keywords='"&keywords&"'"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
else
rs.addnew
rs("keywords")=keywords
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
title="搜索 <font color=red>"&Keywords&"</font> 商品"
sqlprod="select * from product where online=true and (ProdName like '%"&keywords&"%' or ProdDisc like '%"&keywords&"%') order by AddDate desc"
else '高级搜索
title="商品高级搜索"
sqlprod=request.cookies("web300")(&q
call aspsql()
Page=request("page")
Keywords=trim(request("keywords"))
if Keywords<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from key where keywords='"&keywords&"'"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
else
rs.addnew
rs("keywords")=keywords
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
title="搜索 <font color=red>"&Keywords&"</font> 商品"
sqlprod="select * from product where online=true and (ProdName like '%"&keywords&"%' or ProdDisc like '%"&keywords&"%') order by AddDate desc"
else '高级搜索
title="商品高级搜索"
sqlprod=request.cookies("web300")(&q
在
if rsprod.bof and rsprod.eof then
response.write "<table><tr><td height=100 align=center>对不起，没有相关商品</td></tr></TABLE>"
else
后面加上
do while not rsprod.eof