📄 adminwish.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/sessionadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="admintop.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="aleft.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="25" bgcolor="#EDEDED" style="border-bottom: 1 solid #000000;">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center">真情祝福管理</td>
</tr>
</table>
</td>
</tr>
<td height="8">
<p align="left">
<tr>
<td width="100%" valign="top" height="8"> <div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="0" style="border: 1 solid #000000" width="505">
<tr>
<td width="501" background="images/bg2.gif" height="22" colspan="3">
<p align="center"><font color="#333333"><b>真 情 祝 福
管 理</b></font></td>
</tr>
</center>
<tr>
<td width="66" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#000000">作 者</font>
</td>
<td width="381" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#000000">主 题</font>
</td>
<td width="52" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#000000">管 理</font>
</td>
</tr>
<%
SQL="Select * From 真情祝福 Order by ID Desc"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
dim currentpage '定义当前页的变量
dim totalput,n '定义变量
CurrentPage=0
TotalPut=0:N=0
'const maxperpage=10 '定义每一页显示的数据记录的常量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
%>
<tr>
<td width="66" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#808080">
<%=RS("姓名")%></font>
</td>
<td width="381" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<font color="#808080">
『 <a href="adminwishedit.asp?id=<%=RS("ID")%>"><%Response.Write Mid(RS("内容"),1,25) & "......"%></a> 』</font>
</td>
<td width="53" height="22" bgcolor="#EDEDED" style="border-: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<p align="center"><font color="#009933"><a href="adminwishedit.asp?id=<%=RS("ID")%>">编</a></font>/<font color="#FF0000"><a href="adminwishdel.asp?id=<%=RS("ID")%>">割</a></font></p>
</td>
</tr>
<%
RS.MoveNext
I=I+1
Loop
%>
<tr>
<td colspan="3" height="22" background="images/bg3.GIF" width="501">
<p align="right"> <%k=currentpage
if k<>1 then%><a href="adminwish.asp?pageid=1<%IF Request("active")="myself" Then%>&active=myself<%End IF%>">第一页</a><font color="#990000">｜</font><a href="adminwish.asp?pageid=<%=k-1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">上一页</a><%else%>第一页<font color="#990000">｜</font>上一页<%end if%><font color="#990000">｜</font><%if k<>n then%><a href="adminwish.asp?pageid=<%=k+1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">下一页</a><font color="#990000">｜</font><a href="adminwish.asp?pageid=<%=n%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">尾 页</a><%else%>下一页<font color="#990000">｜</font>尾 页<%End IF%> </td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="100%" valign="top" height="8">
</td>
</tr>
<tr>
<td width="100%" valign="top" height="8">
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -