Question

ASP友情链接

网站共有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")%></a><br/>
<%
ad=ad+1
rsad.movenext
loop
end if

set rs=Server.CreateObject("ADODB.Recordset")
'rsstr="select * from [urls] where classid=" & ids & "and check=1 and show=0 order by hftime desc"
rsstr="select * from [urls] where classid=" & ids & "and show=0 order by hftime desc"
rs.open rsstr,conn,1,2

set rsc=Server.CreateObject("ADODB.Recordset")
rsstrc="select * from [urls] where classid=" & ids & " and check=0"
rsc.open rsstrc,conn,1,2

maxpage=int((rs.recordcount-1)/10)+1
if p>maxpage then p=maxpage

if rs.recordcount = 0 and rsc.recordcount = 0 then response.write("暂无网站！<br/>")

if rs.recordcount > 0 or rsc.recordcount > 0 then
response.write("本类共" & rs.recordcount & "个网站，" & rsc.recordcount & "个待审网站<br/>")
response.write("－－－－－<br/>")

if rs.recordcount > 0 then
rs.Move((p-1)*10)
dim j
j=1

do while ((not rs.EOF) and j<=10)
if not rs("check")=0 then
%>
<%=((p-1)*10+j)%>.<a href='view.asp?ids=<%=ids%>&p=<%=p%>&wid=<%=rs("wid")%>'><%=rs("site")%></a>(<%=rs("count")%>点)<br/>
<%
else
%>
<%=((p-1)*10+j)%>.<%=rs("site")%>[待审]<br/>
<%
end if
rs.MoveNext
j=j+1
loop
end if
end if

if p*10<rs.recordcount then response.write("<a href='list.asp?ids=" & ids & "&action=" & action & "&p=" & p+1 & "'>[下页]</a> ")
if p>1 then response.write("<a href='list.asp?ids=" & ids & "&action=" & action & "&p=" & p-1 & "'>[上页]</a> ")
if p*10<rs.recordcount or p>1 then response.write("(" & p & "/" & (int((rs.recordcount-1)/10)+1) & ")<br/>")
%>
<%if p*10<rs.recordcount or p>1 then%>
<input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="4" value="<%if p>=maxpage then response.write(p-1) else response.write(p+1)%>"/>
<anchor>[跳转页面]
<go href="list.asp?ids=<%=ids%>" accept-charset='utf-8'>
<postfield name="p" value="$(page)"/> </go></anchor><br/>
<%end if%>
－－－－－<br/>
<a href="/">[返回首页]</a><br/><br/>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

Answer 1

<%
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="select * from [urls] where classid=" & ids & "and check=1 and show=0 order by hftime desc"
rsstr="select * from [urls] where classid=" & ids & "and show=0 order by hftime desc"
rs.open rsstr,conn,1,2

set rsc=Server.CreateObject("ADODB.Recordset")
rsstrc="select * from [urls] where classid=" & ids & " and check=0"
rsc.open rsstrc,conn,1,2

maxpage=int((rs.recordcount-1)/10)+1
if p>maxpage then p=maxpage

if rs.recordcount = 0 and rsc.recordcount = 0 then response.write("暂无网站！<br/>")

if rs.recordcount > 0 or rsc.recordcount > 0 then
response.write("共" &rsc.recordcount & "个待审网站<br/>")
response.write("－－－－－<br/>")

if rs.recordcount > 0 then
rs.Move((p-1)*10)
dim j
j=1

do while ((not rs.EOF) and j<=10)
if not rs("check")=0 then
else
%>
<%=((p-1)*10+j)%>.<%=rs("site")%>[待审]<br/>
<%
end if
rs.MoveNext
j=j+1
loop
end if
end if

if p*10<rs.recordcount then response.write("<a href='list.asp?ids=" & ids & "&action=" & action & "&p=" & p+1 & "'>[下页]</a> ")
if p>1 then response.write("<a href='list.asp?ids=" & ids & "&action=" & action & "&p=" & p-1 & "'>[上页]</a> ")
if p*10<rs.recordcount or p>1 then response.write("(" & p & "/" & (int((rs.recordcount-1)/10)+1) & ")<br/>")
%>
<%if p*10<rs.recordcount or p>1 then%>
<input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="4" value="<%if p>=maxpage then response.write(p-1) else response.write(p+1)%>"/>
<anchor>[跳转页面]
<go href="list.asp?ids=<%=ids%>" accept-charset='utf-8'>
<postfield name="p" value="$(page)"/> </go></anchor><br/>
<%end if%>

－－－－－<br/>
<a href="/">[返回首页]</a><br/><br/>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

Answer 2

那应该就在显示友情链接的页面上边，你可以把页面下载下来，复制友情链接的图片名称，或文字信息，Ctrl+F 查找一下，是否有这两个图片或文字，删掉就可以了，或者也有可能用的方式，包含了友情链接文件``