📄 index.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>==== 个人主页 ====</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="Microsoft FrontPage 6.0" name="GENERATOR">
<meta content="FrontPage.Editor.Document" name="ProgId">
<style type="text/css">body { scrollbar-arrow-color: #b78c68; scrollbar-track-color: #582410;
scrollbar-base-color: #582410; scrollbar-dark-shadow-color:
#582410 }
</style>
<style title type="text/css">td { font-weight: normal; font-size: 9pt; line-height: normal; font-style: normal;
font-variant: normal }
a { color: #471b0a; text-decoration: none }
a:link { color: #471b0a; text-decoration: none }
a:visited { color: #471b0a; text-decoration: none }
a:active { text-decoration: none }
a:hover { color: #471b0a; text-decoration: underline }
</style>
<bgsound src loop="infinite">
<base target="_blank">
</head>
<body text="#471b0a" vlink="#471b0a" link="#471b0a" bgcolor="#67331f" background="../img/dnacebg2.jpg" topmargin="0">
<div align="center">
<center>
<table height="245" cellspacing="10" cellpadding="0" width="614" background="../img/dnacebg3.jpg" border="0">
<tbody>
<tr>
<td valign="center" width="634" background="../img/dnacebg.jpg" height="245">
<div align="center">
<table cellspacing="0" cellpadding="0" width="600" border="0" height="330" bgcolor="#E4C59A">
<tbody>
<tr>
<td width="600" height="108">
<p align="center">
<img border="0" src="../img/bgtop.jpg" width="580" height="100"></p>
</td>
</tr>
<center></center>
<center>
<tr>
<td width="600" height="37">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" align="center"></td>
<td width="12%" align="center"><a href="../index.htm"><img border="0" src="../img/index.gif" align="left" width="50" height="20"></a></td>
<td width="12%" align="center"><a href="../pic/"><img border="0" src="../img/xc.gif" align="left" width="50" height="20"></a></td>
<td width="12%" align="center"><a href="../music/"><img border="0" src="../img/y.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center"><a href="../diary/"><img border="0" src="../img/rj.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center"><a href="../guestbook/"><img border="0" src="../img/gb.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center"><a href="http://www.moudu.com/123/" target="_blank"><img border="0" src="../img/bbs.gif" align="left" width="50" height="20"></a></td>
<td width="13%" align="center"><a href="./"><img border="0" src="../img/link.gif" align="left" width="50" height="20"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" height="40">
<p align="right"><div align="right">｜<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>｜</div>
</td>
</tr>
<tr>
<td align="center" height="70">
<table border=0 align=center cellpadding=0 cellspacing=0>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim row
msg_per_page = 30
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 6 = 0 then
response.write("<tr>")
end if
%>
<td align=center height=30> <table height=20 border="0" cellpadding=3 cellspacing=0 bgcolor="#E4C59A">
<tr bgcolor=#e4c59a height=30>
<td height="30" align=center><a href="<%=rs("url")%>" target=_blank>
<img src="<%=rs("imgurl")%>" border=0 alt="<%=rs("readme")%>" width=88 height=31></a>
</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 6<>0 then
for i=1 to 6-(therow mod 6)
response.write("<td width=110 height=60> ")
next
end if
%>
</table>
<%call listPages()%>
<%
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 %>">[
<% =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 %>">[
<% =i*msg_per_page+j %>
]</a>
<%next%>
<font class=my3> 当前页:<%=currentpage%> <%=msg_per_page%>个网站/页
总网站数:<%=totalrec%></font>
<%end sub%>
</td>
</tr>
<tr>
<td width="600" height="21">
<p align="center"> 想交换链接请先在贵站做好本站的链接。交换链接对流量没有特殊限制，只要求制作精美，内容完整。
</td>
</tr>
<tr>
<td width="600" height="54">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center">某度工作室
创意设计</td>
</tr>
<tr>
<td width="100%" align="center"></td>
</tr>
<tr>
<td width="100%" align="center"></td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</div>
</center></td>
</tr>
</tbody>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -