📄 index.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="head.asp"--><HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2726.2500" name=GENERATOR></HEAD>
<BODY background=image/sfbg.gif>
<P>
<TABLE height=340 cellSpacing=1 cellPadding=0 width=650 align=center
bgColor=#999999>
<TBODY>
<TR bgColor=#ffffff>
<TD> 酷站推荐 ↓ </TD>
<TR bgColor=#ffffff height=300>
<TD>
<TABLE cellSpacing=0 cellPadding=3 align=center border=0><!--#include file="conn.asp"--><%
dim rs
dim sql
dim row
msg_per_page = 25
set rs=server.createobject("adodb.recordset")
sql="select * from link where yanzheng='ok' order by id DESC"
rs.cursorlocation = 3
rs.pagesize = msg_per_page
rs.open sql,conn,0,1
if err.number<>0 then
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then
totalrec = RS.RecordCount
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage
rowcount = rs.pagesize
while not rs.eof and rowcount>0
if therow mod 5 = 0 then
response.write("<tr>")
end if
%>
<TBODY>
<TR>
<TD align=middle width=110 height=60>
<TABLE height=60 cellSpacing=1 cellPadding=0 width=100
bgColor=#cccccc>
<TBODY>
<TR bgColor=#ffffff height=40>
<TD align=middle><A href="<%=rs(" url?)%>" target=_blank>
<IMG src="<%=rs(" imgurl?)%>" border=0 alt="<%=rs("readme")%>"
width=88 height=31> </A>
<TR bgColor=#ffffff>
<TD align=middle><B><%=therow+1%></B>.<%=rs("site")%>
</TR></TBODY></TABLE><%
therow=therow+1
rowcount=rowcount-1
rs.MoveNext
wend
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if therow mod 5<>0 then
for i=1 to 5-(therow mod 5)
response.write("<td width=110 height=60> ")
next
end if
%></TR></TBODY></TABLE><BR>
<TABLE align=center border=0>
<TBODY>
<TR>
<TD vAlign=center
align=middle><%call listPages()%></TD></TR></TBODY></TABLE><%
sub listPages()
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%><B><A href="<%=request.ServerVariables(" script_name?)%>?page=<%=i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</A></B></FONT>
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%><B><A href="<%=request.ServerVariables(" script_name?)%>?page=<% =i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</A></B>
<%next%><FONT class=my3><B>当前页:<%=currentpage%> <%=msg_per_page%>个网站/页
总网站数:<%=totalrec%></B></FONT> <%end sub%></TD>
<TR bgColor=#ffffff>
<TD align=right>>>> <A href="ing.asp">待验证站点</A>
>>> <A href="flase.asp">验证不合格站点</A>
</TD></TR></TBODY></TABLE>
<P><!--#include file="foot.asp"-->
<P><FONT color=#32cd32></FONT></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -