📄 index21.asp
字号:
<!--#Include File="db_connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
font-size: 36px;
font-family: "华文彩云";
}
-->
</style>
</head>
<body>
<p align="center" class="style1">留言板</p>
<p>
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from info Order By id Desc"
rs.open sql,db,1
if IsNumeric(Request("Page"))=false or Request("Page")="" then
Page=1
else
Page=CInt(Request("Page"))
end if
rs.pagesize=10
if rs.eof or rs.bof then
response.Write "<td height=25 colspan='2'>目前还没有留言！</td>"
response.End
else
mypagesize=rs.pagesize
rs.absolutepage=page
do while not rs.eof and mypagesize>0
mypagesize=mypagesize-1
%>
</p>
<table width="767" height="193" border="1" align="center">
<tr>
<td height="17" colspan="4"><div align="right">回复</div></td>
</tr>
<tr>
<td width="100" height="21"><div align="center">留言者</div></td>
<td width="99"> <%=rs("name")%></td>
<td width="77">主题：</td>
<td width="463"> <%=rs("title")%></td>
</tr>
<tr>
<td height="18"><div align="center">E-mail</div></td>
<td width="99"> <%=rs("email")%></td>
<td colspan="2">留言内容：</td>
</tr>
<tr>
<td height="19"><div align="center">QQ号码</div></td>
<td width="99"> <%=rs("qq")%></td>
<td colspan="2" rowspan="3"> <%=rs("content")%></td>
</tr>
<tr>
<td height="22"><p align="center">留言者IP</p> </td>
<td width="99"> <%=rs("ip")%></td>
</tr>
<tr>
<td height="22"><div align="center">留言时间</div></td>
<td width="99"> <%=rs("time")%></td>
</tr>
<tr>
<td height="29"> </td>
<td width="99"> </td>
<%if rs("reply")<>"" then %>
<td colspan="2">回复:<%=rs("reply")%></td>
</tr>
<% end if %>
<tr>
<td height="17" colspan="4"><div align="right"><a href="write.asp">添加留言</a> </div></td>
</tr>
</table>
<% rs.MoveNext
loop
Response.Write "<p align='center'>____________________________________________________________________________________________________"
Response.Write "<p align='center'>请选择数据页: "
For mypagesize=1 To rs.PageCount
If mypagesize=page Then
Response.Write mypagesize & " "
Else
Response.Write "<a href='index.asp?page=" & mypagesize & "'>" & mypagesize & "</a> "
End If
Next
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -