📄 admindex.asp
字号:
<!--#include file="admcheck.asp"-->
<!--#include file="dbpath.asp"-->
<html>
<head>
<title>留言本管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta copy="程序制作 [惊云,网址www.65658.com] ; 盗版必究!">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #333333; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body topmargin="0"><!--#include file="in_top.asp"-->
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="750" cellpadding="3">
<tr>
<td width="180" bgcolor="#D5EAFF">作者信息</td>
<td width="570" bgcolor="#D5EAFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="50%">留言信息</td>
<td width="50%">
<p align="right">[<a href="admindex.asp">返回</a>] [<a href="admpwd.asp">修改密码</a>] <a href="login.asp?type=exit">[退出登陆]</a></td>
</tr>
</table>
</td>
</tr>
<%
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=8 '###每页显示条数
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from book order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
rs.move (currentPage-1)*MaxPerPage
end if
if rs.eof and rs.bof then%>
<tr>
<td width="100%" bgcolor="#FFFFFF" nowrap colspan="2">
<font color="#FF0000">·</font>还没有留言 !</td>
</tr>
<%else
k=(totalPut-MaxPerPage*(currentPage-1))+1
do while not rs.eof
k=k-1
ii=ii+1
if ii=2 then
ii=0
bg=" bgcolor=#F2F8FF"
bg2=" bgcolor=#FFFFFF"
else
bg=""
bg2=" bgcolor=#F2F8FF"
end if%>
<tr<%=bg%>>
<td width="180" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="FILTER: glow(color=#99CCFF,direction=135); border-collapse:collapse" bordercolor="#111111">
<tr>
<td width="100%"><font color="#808080"><%=rs("name")%></font></td>
</tr>
</table>
<img border="0" src="face/<%=rs("face")%>.gif"><br><br>第 <%=k%> 条留言
</center>
</div>
</td>
<td width="570" valign="top">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="16" colspan="2">[<a href="admre.asp?id=<%=rs("id")%>"><font color="#008000">回复</font></a>][<a href="admdel.asp?id=<%=rs("id")%>&page=<%=request("page")%>"><font color="#FF0000">删除</font></a>] 标题：<%=rs("topic")%>
<img border="0" src="face/homepage.gif" align="bottom" width="16" height="15"><a target="_blank" href="<%=rs("url")%>"><%=rs("url")%></a>
<img border="0" src="face/email.gif" align="bottom" width="16" height="15"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a>
<img border="0" src="face/oicq.gif" align="bottom" width="16" height="15"><%=rs("oicq")%><hr color="#99CCFF" size="1"></td>
</tr>
<tr>
<td width="32" height="60" valign="top">
<img border="0" src="face/<%=rs("face2")%>.gif" width="15" height="15"></td>
<td width="99%" valign="top"><%=rs("ly")%><%if rs("re")<>"" then%><br><br><table<%=bg2%> border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="100%">
<tr>
<td width="100%"><font color="#FF0000">版主回复：</font><hr color="#99CCFF" size="1"><%=rs("re")%></td>
</tr>
</table><%end if%></td>
</tr>
<tr>
<td width="100%" colspan="2"><hr color="#99CCFF" size="1"><img border="0" src="face/posttime.gif"><%=rs("time")%> <img border="0" src="face/ip.gif"><%=rs("guestip")%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if%>
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="750">
<tr>
<td width="100%" height="3"></td>
</tr>
<tr>
<td width="100%" bgcolor="#99CCFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bgcolor="#D5EAFF">
<tr>
<td width="5" nowrap>
</td>
<td nowrap>留言总数:<FONT color=#ff0000><%=rs.recordcount%></FONT> 每页<%=MaxPerPage%>条 [<a href="javaScript:history.go(0)">刷新</a>]</td>
<td width="70%" nowrap><p align="center">
<%
pageno=currentPage
%><%if cint(pageno)>1 then%><a href="admindex.asp?page=1" title="最前页"><%end if%><font face="Webdings">9</font></a> <%if cint(pageno)>1 then%><a href=admindex.asp?page=<%=pageno-1%> title="上一页"><%end if%><font face="Webdings">7</font></a><%
pp=cint(pageno)-5
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno*1=cint(pageno)*1 then
%> <font color="#FF0000">[<%=pno%>]</font><%else%> <a href=admindex.asp?page=<%=pno%>>[<%=pno%>]</a><%end if%><%
if p>=11 then exit for
next%> <%if cint(pageno)< mpage then%><a href=admindex.asp?page=<%=pageno+1%> title="下一页"><%end if%><font face="Webdings">8</font></a> <%if cint(pageno)< mpage then%><a href="admindex.asp?page=<%=mpage%>" title="最后页"><%end if%><font face="Webdings">:</font></a>
</p></td>
<td width="1%" nowrap>
<table cellpadding="0" cellspacing="0">
<form method="POST" action="admindex.asp">
<tr>
<td nowrap>到<input name="page" size="2">页</td>
<td vAlign="bottom">
<input align="center" name="Submit2" src="face/goto.gif" type="image" value="Submit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
</center>
</div>
<!--#include file="in_copy.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -