📄 index.asp
字号:
<!--#include file="data.asp"-->
<!--#include file="time.asp"-->
<!--#include file="ubb.asp"-->
<%
dim exec, rs, page, recordcount
dim rs1, pagecount
exec="select top 1 topicNum from const"
set rs=conn.execute(exec)
RecordCount=rs(0)
rs.close
page=encodestr(Request.querystring("page"))
if page="" or not isNumeric(page) then
page=1
else
page=int(page)
end if
pageCount=RecordCount/rcPerPage
pageCount=int(pageCount)
if (RecordCount mod rcPerPage)>0 then
PageCount=PageCount +1
end if
if page>pageCount then
page=pageCount
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:: 永久的回忆 ::</title>
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>
<body>
<!--#include file="head.asp"--> <%
pageList()
if page<=1 then
exec="select top "&rcPerpage&" * from ly where rt=0 order by reid desc"
else
exec="select top "&rcPerpage&" * from ly where rt=0 and reid<all(select top "&rcPerPage*(page-1)&" reid from ly where rt=0 order by reid desc) order by reid desc"
end if
if style=1 then %> <!--#include file=list1.asp--> <%else %> <!--#include file=list2.asp-->
<%end if
pageList()
sub pageList()
dim p,i
%>
<table border="0" width="650" cellspacing="0" cellpadding="3" align="center">
<tr>
<td width="200" style="letter-spacing: 1">共有主题 <font color="#FF0000"><%=RecordCount%></font>
个，共 <font color="#FF0000"><%=pageCount%></font> 页 </td>
<td width="100" style="letter-spacing: 1" align="center">
<%if page=1 then %>
<img border="0" src="images/pt.gif" alt="留言首页" align="absmiddle">
<%else%>
<a href="index.asp"><img border="0" src="images/pt.gif" alt="留言首页" align="absmiddle"></a>
<%end if
if page=1 then %>
<img border="0" src="images/pb.gif" alt="前一页" align="absmiddle">
<%else%>
<a href="index.asp?page=<%=page-1%>"><img border="0" src="images/pb.gif" alt="前一页" align="absmiddle"></a>
<%end if
if pagecount-page=0 then
%>
<img border="0" src="images/pn.gif" alt="下一页" align="absmiddle">
<%else%>
<a href="index.asp?page=<%=page+1%>"><img border="0" src="images/pn.gif" alt="下一页" align="absmiddle"></a>
<%end if%>
</td>
<td width="350" style="letter-spacing: 1">
<%
'pagecount=2
p=int(page/pageLinkNum)
if page mod pageLinkNum>0 then
p=p+1
end if
p=(p-1)*pageLinkNum+1
'response.write p
'response.end
i=p+(pageLinkNum-1)
if i> pagecount then
i=pagecount
end if
if p>pageLinkNum then
response.write "<a href='?page="&p-1&"'>[<<]</a>"
end if
do while p<=i
if p=page then
response.write "["&p&"]"
else
response.write "<a href='?page="&p&"'>["&p&"]</a>"
end if
p=p+1
loop
p=p-1
if p< pagecount then
response.write "<a href='?page="&(p+1)&"'>[>>]</a>"
end if
%>
</td>
</tr>
</table>
<%end sub %>
<!--#include file="tj.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -