📄 index.asp
字号:
<!--#include file="css/link.css"-->
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<%if session("admin")="ok" then
%>
<a href="/guestbook/loginok.asp"><font color="#000000"><font size="2 px">返回后台首页面</font></font></a><font size="2 px">>><a href="/guestbook/config.asp"><font color="#000000">留言基本设置</font></a>>><a href="/guestbook/notice.asp"><font color="#000000">公告栏设置</font></a></font>
<%end if%>
<%
dim rs2
dim sql2
dim name,email,homepage,qq,face,content,ip,dataandtime,reply,id
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from message order by id desc"
rs2.open sql2,conn,1,1
page=1
' 设置变量PAGE=1
rs2.PageSize = 5 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs2.PageCount then '如果接收的页数大于总页数
rs2.AbsolutePage = rs2.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs2.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs2.AbsolutePage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#ECFBFF">
<% For i = 1 to rs2.PageSize
if rs2.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<br>
<table width="623" height="143" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#0099FF">
<tr>
<td width="26%" rowspan="3" valign="top" bgcolor="#FFFFFF">
<table width="100%" height="34" border="0" cellspacing="0">
<tr>
<td height="34"><div align="center"><img name="" src="<%=rs2("face")%>" width="32" height="32" alt=""></div></td>
</tr>
</table>
<p> <font size="2"> <img src="image/name.gif" width="16" height="16" align="absmiddle">:<%=rs2("name")%><br>
<a href="<%=rs2("homepage")%>" title="<%=rs2("homepage")%>"><img src="image/homepage.gif" width="16" height="16" border="0" align="absmiddle"></a>:点击图标<br>
<a href="mailto:<%=rs2("email")%>" title="<%=rs2("email")%>"><img src="image/email.gif" width="16" height="16" border="0" align="absmiddle"></a>:点击图标<br>
<img src="image/oicq.gif" width="16" height="16" align="absmiddle">:<%=rs2("oicq")%><br>
<img src="image/ip.GIF" width="13" height="15" align="absmiddle" title="<%=rs2("ip")%>">:<%=rs2("ip")%><br>
</font></td>
<td width="74%" height="20" background="image/bg1.gif" bgcolor="#FFFFFF"><font color="#FFFFFF" size="2">第<%=(rs2.recordcount-(page-1)*rs2.pagesize-(i-1))%>条留言</font>
<font color="#FFFFFF" size="2">发表于:<%=now()%>
<% if session.contents("admin")="ok" then%>
</font><font size="2"> <img src="image/edit.gif" width="13" height="15" align="absmiddle"><a href="reply.asp?id=<%=rs2("id")%>"><font color="#FFFFFF">回复</font></a>
<img src="image/del.gif" width="15" height="15" align="absmiddle"> <a href="del.asp?id=<%=rs2("id")%>"><font color="#FFFFFF">删除</font></a>
<%else %>
<%end if%>
</font></td>
</tr>
<tr>
<td height="116" bgcolor="#FFFFFF" ><font size="2" color="#000000"><%=rs2("content")%></font><br>
<br>
<font size=2 color="#FF0000">
<% if rs2("reply")<>"" then %>
[站长回复:]<%=rs2("reply")%>
<%end if %>
</font> </td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td height=1></td></tr></table>
<%
rs2.movenext
next
%>
<table width="623" height="27" border="0" align="center" cellspacing="0">
<tr>
<td background="image/bg1.gif"><div align="center"><font color="#FFFFFF" size="2">留言共<font color="#FFFFFF"><%=rs2.recordcount%></font>条 <font color="#FFffff"><%=rs2.pagecount%></font>页
<%if request("page")>1 then%><a Href="index.asp?Page=<% = 1%>">首页</a> <a Href="index.asp?Page=<% =page -1 %>">上一页</a><%end if %><%if request("page")<>rs2.pagecount and page<rs2.pagecount then %><a Href="index.asp?Page=<% =page + 1%>">下一页</a> <a Href="index.asp?Page=<% = rs2.PageCount%>">尾页</a> <% end if %>
<%if rs2.pagecount>0 then %>
当前第<font color="#FF3300"> <%=page%></font> 页
<%end if%> </font></div></td>
</tr>
</table>
<form name="form" method="post" action="add.asp">
<table width="623" height="254" border="0" align="center" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="23" colspan="2" bgcolor="#FFFFFF"><font size="2"> <img src="image/name.gif" width="16" height="16" align="absmiddle">您的大名:
<input type="text" name="name">
</font></td>
<td width="55%" bgcolor="#FFFFFF"><font size="2"> <img src="image/email.gif" width="16" height="16" align="absmiddle">您的邮件:
<input type="text" name="email">
</font></td>
</tr>
<tr>
<td height="22" colspan="2" bgcolor="#FFFFFF"><font size="2"> <img src="image/homepage.gif" width="16" height="16" align="absmiddle">您的主页:
<input type="text" name="homepage">
</font></td>
<td bgcolor="#FFFFFF"><font size="2"> <img src="image/oicq.gif" width="16" height="16" align="absmiddle">您的OICQ:
<input type="text" name="oicq">
</font></td>
</tr>
<tr>
<td width="15%" height="66" bgcolor="#FFFFFF"><font size="2"> 留言内容:</font></td>
<td height="66" colspan="2" bgcolor="#FFFFFF"><div align="center">
<textarea name="content" cols="70" rows="5"></textarea>
</div></td>
</tr>
<tr>
<td height="71" bgcolor="#FFFFFF"><font size="2"> 选择头像:</font></td>
<td height="71" colspan="2" bgcolor="#FFFFFF"><div align="center">
<input type="radio" name="face" value="image/face1.gif">
<img src="image/face1.gif" width="32" height="32">
<input type="radio" name="face" value="image/face2.gif">
<img src="image/face2.gif" width="32" height="32">
<input type="radio" name="face" value="image/face3.gif">
<img src="image/face3.gif" width="32" height="32">
<input type="radio" name="face" value="image/face4.gif">
<img src="image/face4.gif" width="32" height="32">
<input type="radio" name="face" value="image/face5.gif">
<img src="image/face5.gif" width="32" h栀湩?????eight="32">
<input type="radio" name="face" value="image/face6.gif">
<img src="image/face6.gif" width="32" height="32">
<input type="radio" name="face" value="image/face7.gif">
<img src="image/face7.gif" width="32" height="32"><br>
<input type="radio" name="face" value="image/face8.gif">
<img src="image/face8.gif" width="32" height="32">
<input type="radio" name="face" value="image/face9.gif">
<img src="image/face9.gif" width="32" height="32">
<input type="radio" name="face" value="image/face10.gif">
<img src="image/face10.gif" width="32" height="32">
<input type="radio" name="face" value="image/face11.gif">
<img src="image/face11.gif" width="32" height="32">
<input type="radio" name="face" value="image/face12.gif">
<img src="image/face12.gif" width="32" height="32">
<input type="radio" name="face" value="image/face13.gif">
<img src="image/face13.gif" width="32" height="32">
<input type="radio" name="face" value="image/face14.gif">
<img src="image/face14.gif" width="32" height="32"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21" colspan="3"> <div align="center">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
</body>
</html>
<!--#include file="bottom.asp" -->
<% rs2.close
set rs2=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -