📄 hf.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ubb/ubb.asp"-->
<%
'#################################################################
'# 程序名称：随缘网络留言本 V1.0
'# 授权方式：免费软件
'# 作者：随缘网络 QQ:84723090
'# 演示及技术支持：http://www.115cn.cn/book
'# 发布时间：2007-8-8
'# 声明：本程序由随缘网络独立自主开发，保留所有版权。
'# 各种用途均可免费使用、自由传播，但必须保留程序代码中的版权信息。
'#################################################################
%>
<%
if session("user")="" then
response.redirect "login.asp"
response.end
end if
%>
<html>
<head>
<LINK href="css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言管理</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
</head>
<body topmargin="0" >
<div align="center">
<table width="100%" border="1" cellpadding="0" cellspacing="0" height="192" style="border-collapse: collapse" bordercolor="#0099CC">
<tr>
<td width="94%" height="36" align="center" colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4" height="30" bgcolor="#3399FF">
<tr>
<td bgcolor="#0099CC" align="center">
<p style="line-height: 200%"><b><font size="4" face="黑体" color="#FFFFFF">
后台留言管理</font></b></td>
</tr>
</table>
</td>
</tr>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from book order by gg desc,top desc,id desc"
rs.Open sql,conn,1,1
i=1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=30
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td width="20%" height="154" align="center" valign="top">
<table border="0" width="95%" cellspacing="0" cellpadding="0" id="table1" height="148">
<tr>
<td height="54">
<p align="center"><img src="<%=rs("tx")%>" ></td>
</tr>
<tr>
<td height="30">称呼：<%=rs("user")%></td>
</tr>
<tr>
<td height="30">来自：<%=rs("ip")%></td>
</tr>
<tr>
<td height="30">邮件：<a href="mailto:<%=rs("email")%>"><img border="0" src="img/mail.gif" width="16" height="16">邮件</a></td>
</tr>
<tr>
<td height="30">主页：<a target="_blank" href="<%=rs("web")%>"><img border="0" src="img/home.gif" width="16" height="16">主页</a></td>
</tr>
</table></td>
<td width="74%" align="center" valign="top">
<table border="0" width="99%" cellspacing="0" cellpadding="0" id="table2" height="36">
<tr>
<td height="23" bgcolor="#99CCFF" width="88%">
<p align="left"> 主题：<%=rs("bt")%>
发表于：<%=rs("sj")%>
<img border="0" src="img/qq.gif" width="16" height="16">：<%=rs("qq")%> </td>
<td height="23" bgcolor="#99CCFF" width="12%">
<p align="left"><a href="hfedit.asp?id=<%=rs("id")%>">管理</a> <a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<tr>
<td valign="top" colspan="2">
<p align="left"> <%=Ubbcode(server.htmlencode(rs("nr")))%></td>
</tr>
</table>
<table border="0" width="99%" cellspacing="0" cellpadding="0" id="table3" height="26">
<tr>
<td align="right">
<p align="left"><font color="#FF0000"> <%=rs("hf")%></font></td>
</tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
if rs.eof then exit for
next
%>
</table>
</div>
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<form method=Post action="hf.asp">
<td height="30" align="center">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=hf.asp?page=1>首页</a> "
response.write "<a href=hf.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=hf.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=hf.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</td></form>
</tr>
</table>
</div>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -