Question

请教高手 ASP if not rs.eof then语句

这段代码我想找到第一条记录和最后结束循环语句。要怎么改！
set rs=server.createobject("adodb.recordset")
sql="select [name],[url] from web_keywords order by [time] desc"
rs.open(sql),cn,1,1
if not rs.eof then
do while not rs.eof

if rs("url")="" then
name_url=web_url&"/Search/index.asp?q="&rs("name")
else
name_url=rs("url")
end if

a_content=replace(a_content,rs("name"),"<a href='"&name_url&"' target='_blank'><strong>"&rs("name")&"</strong></a>")
rs.movenext
loop
end if
rs.close
set rs=nothing
end if
我想达到的效果是当找到第一条记录后执行a_content=replace(a_content,rs("name"),"<a href='"&name_url&"' target='_blank'><strong>"&rs("name")&"</strong></a>")执行完这条语句后结束循环。不要再执行RS.MOVENEXT了。

Answer 1

set rs=server.createobject("adodb.recordset")
sql="select top 1 [name],[url] from web_keywords order by [time] desc"
rs.open sql,cn,1,1
if not rs.eof then
    if rs("url")="" then
        name_url=web_url&"/Search/index.asp?q="&rs("name")
    else
        name_url=rs("url")
    end if
    a_content=replace(a_content,rs("name"),"<a href='"&name_url&"' target='_blank'><strong>"&rs("name")&"</strong></a>")
end if
rs.close
set rs=nothing

追问

哥！你这执行不过呀。好像不对哦！

前面还有一段代码忘 COPY了。不好意思。麻烦您再帮我看一下。感谢。这段代码在刚才那段上面的
'替换关键字
if a_keywords_yes=1 then
set rs_1=server.createobject("adodb.recordset")
sql="select [web_theme],web_url from web_settings "
rs_1.open(sql),cn,1,1
if not rs_1.eof then
Theme_Folder=rs_1("web_theme")
web_url=rs_1("web_url")
end if
rs_1.close
set rs_1=nothing