这个asp代码怎么改?谢谢!
<!--#include file="conn.asp"-->
<%
if request("classid")="" then
response.write"<center><br><br><font color=red>您所专题不是报刊专题!</font><br><br>"
else
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select topicid,topicname from topic where classid = " & request("classid") &"order by topicid desc"
rs1.open sql,conn,1,1
set rs = server.CreateObject ("Adodb.recordset")
sql="select title from article where topicid="&("rs1(topicid)")&" order by id desc"
rs.open sql,conn,1,1
for i = 1 to 15
if RS.EOF then exit for
%>
<li><a href=/news/topiclist.asp?topid=<%=rs1("topicid")%> ><%=rs1("topicname")%></a><br>
<%
rs.MoveNext()
next
rs.close
set rs = nothing
end if
rs1.close
set rs1=nothing
end if
%>