📄 all_link.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="UBBencode.ini"-->
<!--#include file="textencode.ini"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>MSMAX---BLOG程序</title>
<script language="JavaScript">
<!--
function popreg()
{
document.form2.username.value==""
}
//-->
</script>
<style type="text/css">
a.index:hover{
color:#333333;
text-decoration:none;
}
a.index:link{
color:#666666;
text-decoration:underline;
}
a.index:visited{
color:#333333;
text-decoration:none;
}
</style>
<link href="blog.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim page_no
'page_no=request.QueryString("page_no"))
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
%>
<div id="all">
<table border="1" bgcolor="#999999" width="100%" height="100%">
<tr>
<td bgcolor="#E7E7E7">
<!--#include file="top.asp"-->
<div id="left-bg">
<div id="body-top"><a href="index.asp" class="index">首页</a>-->友情链接</div>
<div id="left-title">有些是好站，有些是资料。有意申请连接可以<a href="message.asp#me" class="titlemenu">留言</a>。</div>
<div id="left-body-content">
<%
set rs=server.createobject("adodb.recordset")
strsql="select * from link order by subdate desc"
rs.open strsql,db,1
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
rs.PageSize=PageSize '设置每页显示多少条记录，从配置文件中读取
dim page_total
page_total=rs.PageCount 'page_total会返回总页数，将在下面输出页码时用到
rs.AbsolutePage=page_no '设置当前显示第几页，这里用到了传过来的page_no。
'下面一段利用表格显示当前页的所有记录
Dim I
I=10
response.write "<ul>" 'I 用来控制显示当前页记录,注意这里和rs.PageSize要一致。
Do While Not rs.Eof And I>0 '循环直到当前页结束或记录集结尾
I=I-1
%>
<li>
<a href="<%=rs("URL")%>"class="index" target="_blank"><%=rs("text")%></a>
<%
rs.movenext
loop%>
<%end if%>
</ul>
</div>
<div id="page">
<%
'--------------------------------------------------------------------------------------
'这一段输出页数信息。Page_total由上面分页显示决定。
Response.Write "<p align='center'><b><font color='#CC0066'>" & page_no & "/" & page_total & "</b></font>页 "
'显示往前10页的链接，为当前最小值减1
Dim numTemp
numTemp=minPage(page_no,page_total)-1
If numTemp>=1 Then
Response.Write "<a href='all_link.asp?page_no=" & numTemp & "'>前10页</a> "
End If
'显示当前10页的链接
For I=minPage(page_no,page_total) To maxPage(page_no,page_total)
If I=page_no Then
Response.Write "<b><font color='#CC0066'>" & I & "</font></b> "
Else
Response.Write "<a href='all_link.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
'显示往后10页的链接，为当前最大值加1
numTemp=maxPage(page_no,page_total)+1
If numTemp<page_total Then
Response.Write "<a href='all_link.asp?page_no=" & numTemp & "'>后10页</a> "
End If
%>
</div>
</div>
<!--#include file="right.asp"-->
<!--#include file="foot.asp"-->
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -