<% '============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2007-12-16 13:28 ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <% dim rs,sql,add,rss,sqll add=request.Querystring("class") Set rss=Server.CreateObject("ADODB.Recordset") sqll="Select * from [linkclass] where classid="&add rss.open sqll,conn,1,1 if not rss.eof then classname=rss("class") end if call rssClose()%>

<%Response.write "=" &classname&"网站=
"%> <%Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from [link] where classid="&add&" And [Active] =0 and del=0 order by YD_time desc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=15 Dim Count,page,pagecount,gopage gopage="list.asp?class="&ADD&"&" Count=conn.execute("Select count(ID) from [link] where classid="&add&"")(0) page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For Response.write ""&i+(page-1)*PageSize&"." Response.write ""&usb(rs("name"))&"(出"&rs("YD_out")&"/入"&rs("YD_in")&")
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>
" Else %> 暂时没有友链！
<%end if%> <%call lasts()%><%call ALLClose()%>