📄 index.asp
字号:
<!--#Include file="conn.asp"-->
<!--#Include file="save.asp"-->
<html>
<head>
<title>BBS论坛</title>
</head>
<body>
<h2 align="center">BBS论坛</h2>
<center>
<table border="0" bordercolor="#8800FF" width="90%" cellspacing="5">
<tr bgcolor="#CCFFFF" align="center">
<td width="43%" bgcolor="#CCCCCC">标题</td>
<td width="8%" bgcolor="#CCCCCC">回复</td>
<td width="8%" bgcolor="#CCCCCC">点击</td>
<td width="8%" bgcolor="#CCCCCC">作者</td>
<td width="26%" bgcolor="#CCCCCC">发表时间</td>
</tr>
<%
strSql="Select * From bbs Where layer=1 Order By subdate desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn,1
If Not rs.Bof And Not rs.Eof Then
'以下为了分页显示
'声明每页多少条记录变量
Dim page_size
'声明当前是第几页变量
Dim page_no
'声明总页数变量
Dim page_total
'每页显示10条记录
page_size=10
'如果是第一次打开，则page_no为1，否则由传回的参数决定
If Request("page_no")="" Then
page_no=1 '
Else
page_no=cint(Request("page_no"))
End If
'将page_no存入session,以备其它页返回时用
Session("page_no")=page_no
'设置每页多少条记录
rs.PageSize=page_size
'返回总页数
page_total=rs.PageCount
'设置当前显示第几页
rs.AbsolutePage=page_no
'下面一段显示当前页的所有记录
'该变量用来输出序号
a=0
'该变量用来控制显示当前页记录
b=page_size
Do While Not rs.Eof And b>0
a=a+1
b=b-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td bgcolor="#EAEAEC"><a href="hit.asp?bbs_id=<%=rs("bbs_id")%>">
<%=rs("title")%></a></td>
<td bgcolor="#EAEAEC"><%=rs("reply")%></td>
<td bgcolor="#EAEAEC"><%=rs("hit")%></td>
<td bgcolor="#EAEAEC"><%=rs("username")%></td>
<td bgcolor="#EAEAEC"><%=rs("subdate")%></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
<a href="newtext.asp">发表新文章</a>    
<%
'调用子程序，写出有关各页的链接信息
Call select_page(page_no,page_total)
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -