📄 manger.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<%
if IsEmpty(session("username")) then
response.redirect "login.asp"
end if
DbPath = SERVER.MapPath("words.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from seggest order by Inputtime desc"
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.RecordCount<=0 then
response.redirect "sorry.htm"
response.end
else
i=0
rs.PageSize=1
end if
PageCount=clng(rs.PageCount)
select case Request.Form("Submit")
case "首页"
session("CurrPage")=1
case "末页"
session("CurrPage")=rs.RecordCount
case "前一页"
session("CurrPage")=session("CurrPage")-1
case "后一页"
session("CurrPage")=session("CurrPage")+1
case "显示"
if IsNumeric(Request.Form("Page")) then
session("CurrPage")=cint(Request.Form("Page"))
else
session("CurrPage")=1
end if
case else
session("CurrPage")=1
end select
if session("CurrPage")<=0 or session("CurrPage")="" then
session("CurrPage")=1
end if
if session("CurrPage")>=PageCount then
session("CurrPage")=PageCount
end if
BookNum=rs.RecordCount
rs.absolutePage = session("CurrPage")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#33CCCC" link="#0000FF" alink="#FF0033">
<p align="center">
<h2 align="center">留言薄管理</h2>
<hr width="80%">
<table border="1" align="center" width="80%" vspace="15" cellspacing="0" bordercolor="#99FFFF">
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">用户名</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><%=rs("name")%></td>
</tr>
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">主 题</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><%=rs("Head")%></td>
</tr>
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">个人主页</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><a href="<%=rs("WWW")%>" target="self"><%=rs("WWW")%></a></td>
</tr>
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">EMail</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><a href="mailto:<%=rs("Email")%>" ><%=rs("Email")%></a></td>
</tr>
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">留言时间</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><%=rs("Inputtime")%></td>
</tr>
<tr bgcolor="#6666ff">
<td bgcolor="#0099CC"><font color="#FFFFFF">留言</font></td>
<td bgcolor="#FFCC99" width="80%" align="left" height="25"><%=replace(rs("Seggest"),chr(13),"<BR>")%></td>
</tr>
<tr bgcolor="#33CCCC" >
<td colspan="2" align="center"><font color="#ffffff"><a href="Delete.asp?SeggID=<%=rs("SeggID")%>">删除当前记录</a></font></td>
</tr>
</table>
<%
rs.close
set rs=nothing
set conn=nothing
%>
<form method="post" action="manger.asp" name=form1>
<table width="80%" border="0" align="center" cellspacing="0">
<tr>
<td colspan="2" align="left">总页数: </td>
<td width="10%"><%=BookNum%></td>
<td colspan="2">当前页: </td>
<td width="10%"><%=session("CurrPage")%></td>
<td width="10%" align="right"><input type="Submit" name="Submit" value="首页"></td>
<td width="10%" align="right"><input type="Submit" name="Submit" value="前一页"></td>
<td width="10%" align="right"><input type="Submit" name="Submit" value=后一页></td>
<td width="10%" align="right"><input type="Submit" name="Submit" value="末页"></td>
</tr>
</table>
<table width="80%" border="0" align="center">
<tr align="right">
<td> 转到第
<input type="text" name="Page" size="10" maxlength="5" value="1">页
<input type="submit" name="Submit" value="显示" >
</td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -