📄 qj.asp
字号:
<!--#include file="conn.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
%>
<script language="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</script>
<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">
<Form name="search" method="POST" action="delall.asp">
<table width="100%" border="1" cellpadding="0" cellspacing="0" height="95" style="border-collapse: collapse" bordercolor="#86B9D6">
<tr>
<td width="94%" height="36" align="center" bgcolor="#008080">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4" height="43">
<tr>
<td bgcolor="#86B9D6">
<p align="center" style="line-height: 200%"><font size="3" face="黑体">
后台留言管理</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="94%" height="57" align="center" valign="top">
<table border="1" width="100%" cellpadding="0" id="table5" height="57" style="border-collapse: collapse" bordercolor="#86B9D6" cellspacing="0">
<tr>
<td width="102" height="25" bgcolor="#F5FBFF">
<p align="center">称呼</td>
<td width="252" height="25" bgcolor="#F5FBFF">
<p align="center">主题</td>
<td width="201" height="25" bgcolor="#F5FBFF">
<p align="center">时间</td>
<td width="72" height="25" bgcolor="#F5FBFF">
<p align="center">公告</td>
<td width="50" height="25" bgcolor="#F5FBFF">
<p align="center">置顶</td>
<td height="25" bgcolor="#F5FBFF" width="50">
<p align="center"> 审核</td>
<td width="70" height="25" bgcolor="#F5FBFF">
<p align="center"><input name=chkall type=checkbox value=on onclick=CheckAll(this.form)><input type='submit' value='删除'></td>
<td width="68" height="25" bgcolor="#F5FBFF">
<p align="center">管理</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="102" height="30">
<p align="center"><%=rs("user")%></td>
<td width="252" height="30"> <%=rs("bt")%></td>
<td width="201" height="30" align="center"><%=rs("sj")%></td>
<td width="72" height="30" align="center"><%if rs("gg")=1 then%>是<%else%>否<%end if%></td>
<td width="50" height="30">
<p align="center"><%if rs("top")=1 then%>是<%else%>否<%end if%></td>
<td height="30" width="50">
<p align="center"><%if rs("sh")=1 then%>是<%else%>否<%end if%></td>
<td width="70" height="30">
<p align="center"><input name="checkboxid" type="checkbox" value="<%=rs("id")%>"></td>
<td width="68" height="30">
<p align="center"><a href="del.asp?id=<%=rs("id")%>">删除</a>
<a href="hfedit.asp?id=<%=rs("id")%>">详细</a></td>
</tr>
<%
i=i+1
rs.movenext
if rs.eof then exit for
next
%>
</table>
</td>
</tr>
</table>
</div>
</form>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<form method=Post action="qj.asp">
<td height="10" align="center">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=qj.asp?page=1>首页</a> "
response.write "<a href=qj.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=qj.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=qj.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>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -