📄 2.asp
字号:
<tr>
<td><div align="center"><a href="../3/3.asp">成绩展示</a></div></td>
</tr>
<tr>
<td><div align="center"><a href="../4/4.asp">互动聊天</a></div></td>
</tr>
<tr>
<td><div align="center"><a href="../5/5.asp">联系方式</a></div></td>
</tr>
<tr>
<td><div align="center"><a href="../6/6.asp">七嘴八舌</a></div></td>
</tr>
</table>
<p> </p>
</td>
<td><img src="images/g_13.jpg" width="6" height="303"></td>
<td width="572" height="303" align="center" background="images/g_14.jpg" class="info"><p align="center" class="STYLE1">生活随想</p>
<table width="300" border="1" align="center">
<tr>
<td><div align="center"><a href="2.asp">全部</a></div></td>
<td><div align="center"><a href="2_1.asp">情感</a></div></td>
<td><div align="center"><a href="2_2.asp">搞笑</a></div></td>
<td><div align="center"><a href="2_3.asp">心得</a></div></td>
<td><div align="center"><a href="2_4.asp">日记</a></div></td>
</tr>
</table>
<p>
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<!-- #include file="bh.asp" -->
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<STYLE type="text/css">
.re {
background-color: #FFFFFF;
margin: 4px;
padding: 4px;
border: 1px dotted #006699;
}
</STYLE>
<title></title>
<link href="style.css" rel="stylesheet" type="text/css">
李岩
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim rs
dim sql
msg_per_page = 10 '定义每页显示记录条数
set rs = server.createobject("adodb.recordset")
sql ="select * from [wz] order by id desc" 'Alpha Xp
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 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page") 'http://hei8.cn
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 'absolutepage：设置指针指向某页开头 QQ:147870475
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数 许鹏
dim i
dim k
%>
<%do while not rs.eof and rowcount > 0%>
<table width="310" border="0" cellspacing="0">
<tr>
<td><table width="306" border="0" align="center" cellspacing="0" style="table-layout:fixed">
<tr>
<td width="80%" height="20"> <img src="images/003.gif" width="9" height="9" border="0"> <font color=#999999><B>[<%=rs("fenlei")%>]</B></font><a href="2_5.asp?id=<%=rs("id")%>" title="<%=rs("title")%> 整理日期：<%=rs("data")%>"><B><%=rs("title")%></B></td>
<td width="20%"><div align="center"><font color=#999999><%=rs("user")%></font></div></td>
</tr>
<tr>
<td height="1" colspan="2" background="images/bg_dian.gif"></td>
</tr>
<tr>
<td height="3" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><pre style="word-break:break-all;word-wrap: break-word;width: 300px;"><%=Left(rs("text"),100)%><font color="#999999">……<br><div align=right><%=rs("data")%></div></font></pre></td>
</tr>
</table></td>
</tr>
</table>
<%
rowcount=rowcount-1
rs.MoveNext
loop
end if
end if
rs.close
set rs=nothing
%>
</table>
<table border="0" align=right>
<tr>
<td valign="middle" align=right>
<%call listPages()%>
</td>
</tr>
</table>
</body>
</html>
<%
sub listPages()
'if n <= 1 then exit sub
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%>
<font size="2" color="#006600">
<a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">
[<% =i*msg_per_page+j %>]</a></font>
<%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%>
<font size="2" color="#006600">
<a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">
[<% =i*msg_per_page+j %>]</a></font>
<%next%>
<font color=black face="arial" >
<br>当前页：<font color=#FF000000><%=currentpage%>/<%=n%></font> 文章总数：<font color=#FF000000><%=totalrec%></font> 条
</font>每页显示：<font color=#FF000000>10</font><font color=black face="arial" > </font>条
<%end sub%>
</p></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="770" height="74" background="images/g_15.jpg"><table width="65%" height="25" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" valign="top"><strong><font color="#FFFFFF">加入收藏
｜ 设为主页 ｜ 联系我们 ｜ 关于我们
<script language="javascript" src="http://count16.51yes.com/click.aspx?id=163524146&logo=1"></script>
</font></strong></td>
</tr>
</table>
</td>
<td width="80" height="50" valign="top"><a href="#top" onFocus="if(this.blur)this.blur()"><img src="images/top.jpg" width="56" height="33" border="0"></a></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
<span style="display:none;">这个模版来自http://BestMoban.Com,更多模版请访问<a href="http://BestMoban.Com">http://BestMoban.Com</a> <a href="http://Moban.17Easy.Com">http://Moban.17Easy.Com</a> <a href="http://www.mb8.cn">http://www.mb8.cn</a></span>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -