📄 flase.asp
字号:
<html>
<head>
<STYLE type=text/css>A:link {
COLOR: #006600; TEXT-DECORATION: none
}
A:visited {
COLOR: #006600; TEXT-DECORATION: none
}
A:active {
COLOR: #FF6600; TEXT-DECORATION: none
}
A:hover {
COLOR: #FF6600; TEXT-DECORATION: none
}
BODY {scrollbar-face-color: #DFDFDF; scrollbar-shadow-color: #666666;
scrollbar-highlight-color: #e4c59a; scrollbar-3dlight-color: #e4c59a;
scrollbar-darkshadow-color: #e4c59a; scrollbar-track-color: #e4c59a;
scrollbar-arrow-color: #666666}
td{FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#666666;letter-spacing : 1pt ;line-height :14pt}
input,textarea{border:1px solid #cccccc;font-family:verdana;font-size:8pt;color:#999999;background-color:#e4c59a}
</STYLE>
<title>==个人主页＝＝友情链接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base target="_blank">
</head>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#E4C59A" height="75">
<tr>
<td height="33">
<p align="center">｜<a href="index.asp">链接首页</a>｜<a href="add.asp">现在加入</a>｜<a href="ing.asp">待验证站点</a>｜<a href="flase.asp">不合格站点</a>｜<a href="admin_login.asp">管理入口</a>｜</td>
</tr>
<tr>
<td height="21">非常抱谦，以下网站不符合本站的连接要求 ↓</td>
</tr>
</table>
<table style="border:1px dotted #666666" width=630 cellspacing=0 cellpadding=0 bgcolor=#999999 align=center border="0">
<tr bgcolor=#e4c59a height=300>
<td>
<table border=0 cellspacing=0 cellpadding=3 align=center>
<!--#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='flase' 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
%>
<td align=center width=110 height=60> <table width=100 height=60 cellspacing=1 cellpadding=0 bgcolor=#cccccc>
<tr bgcolor=#e4c59a height=40>
<td align=center> <img src="<%=rs("imgurl")%>" border=0 width=88 height=31>
<tr bgcolor=#e4c59a>
<td align=center><b><%=therow+1%></b>.<%=rs("site")%>
</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
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle">
<%call listPages()%>
</td>
</tr>
</table>
<%
sub listPages()
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">[</a><b><a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">
<% =i*msg_per_page+j %>
</a></b><a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">]</a>
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">[</a><b><a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">
<% =i*msg_per_page+j %>
</a></b><a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">]</a>
<%next%>
<font class=my3> 当前页:<b><%=currentpage%> <%=msg_per_page%></b>个网站/页<b>
</b>总网站数:<b><%=totalrec%></b></font>
<%end sub%>
</td>
</table>
<!--#include file="foot.asp"-->
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -