ASP友情链接

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:19:01
网站共有5个友情链接分类：如list.asp?ids=1[门户] list.asp?ids=2[游戏] list.asp?ids=3[图铃]。。。。。新站注册加盟时，会在所选择的分类里面出现待审的样式，现在我想把所有分类里面的待审网站全站在一个页面里显示。。。。。。因为我不多分了，又很急，所以请各位好心人帮下这个忙

以下是list.asp的代码
<%
ids=request.QueryString("ids")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

set rsad=Server.CreateObject("ADODB.Recordset")
rsadstr="select * from [ad] where classid=" & ids
rsad.open rsadstr,conn,1,2

set rsn=Server.CreateObject("ADODB.Recordset")
rsstrn="select * from [class] where ClassID=" & ids & " order by [ClassID] " & action
rsn.open rsstrn,conn,1,2
%>
<card title='<%=rsn("ClassName")%>'>
<p>
<%
if rsad.recordcount > 0 then
ad=1
do while not rsad.eof
%>
<a href="<%=rsad("adurl")%>"><%=rsad("adtitle"

<%
ids=request.QueryString("ids")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

set rsad=Server.CreateObject("ADODB.Recordset")
rsadstr="select * from [ad] where classid=" & ids
rsad.open rsadstr,conn,1,2

set rsn=Server.CreateObject("ADODB.Recordset")
rsstrn="select * from [class] where ClassID=" & ids & " order by [ClassID] " & action
rsn.open rsstrn,conn,1,2
%>

<card title='<%=rsn("ClassName")%>'>
<p>
<%
if rsad.recordcount > 0 then
ad=1
do while not rsad.eof
%>
<a href="<%=rsad("adurl")%>"><%=rsad("adtitle")%></a><br/>
<%
ad=ad+1
rsad.movenext
loop
end if

set rs=Server.CreateObject("ADODB.Recordset")
'rsstr="se