⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin.asp

📁 系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助
💻 ASP
字号:
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<!--#include file=conn.inc-->
<!--#include file=setup.asp-->
<HTML><HEAD><TITLE>留言本管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="images/css.css" rel=stylesheet type=text/css>
</head>

<BODY background="images/bookbg.gif">
<%
keyword=request("keyword")
page=request("page")
sql="select * from user order by ID desc"
if not keyword="" then
sql="select * from user where 用户名='" & keyword &"'"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有人注册!"
else
rs.pagesize=10
if page="" then
rs.absolutepage=1
rowcount=rs.pagesize
else
rs.absolutepage=page
rowcount=rs.pagesize
end if
%>


<script language="Javascript">
<!--

function ReturnHome()
{ if (confirm("确定退出后台管理吗?"))
self.location="loginout.asp";
}
//-->
</script>
<center>
<p style="margin-bottom: 10">
<font color="#0066CC" style="font-size: 23pt" face="黑体">超级管理中心</font><br>
</p>
<table  width="652"><tr><td align="right"><input type="button"  value="退出管理"  onClick="ReturnHome();"></tr></table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700">
  <tr>
    <td width="2%"><img border="0" src="images/T_left.gif" width="140" height="21"></td>
    <td width="96%" background="images/Tt_bg.gif"></td>
    <td width="2%"><img border="0" src="images/T_right.gif" width="56" height="21"></td>
  </tr>
</table>

<table cellPadding=4 cellSpacing=1 width=700 style="border-collapse: collapse" class=a2>
<tr class=a1>
<td width="99" align="center" height="31">
用户名
<td width="127" align="center" height="31">
版主Email
<td width="106" align="center" height="31">
留言本名称
<td width="207" align="center" height="31">
主页地址
<td width="99" align="center" height="31">
编辑<%do while not rs.eof and rowcount>0%> 

<tr <%if rowcount=1 or rowcount=3 or rowcount=5 or rowcount=7 or rowcount=9 then%>class=a3<%else%>class=a4<%end if%>>
<td width="99" align="center" height="30"><a href=index.asp?user=<%=rs("用户名")%>><font  color=red><%=rs("用户名")%></font></a>
<td width="127" align="center" height="30"><%=rs("email")%>
<td width="106" align="center" height="30"><%=rs("留言名")%>
<td width="207" align="center" height="30"><a href="<%=rs("home")%>"><%=rs("home")%></a>
<td width="99" align="center" height="30"><a href=delete.asp?user=<%=rs("用户名")%>><font color=red>[ <u>删 除</u> ]</font></a>   
<%   
rs.movenext
rowcount=rowcount-1
loop
%>

<tr class=a4><form method="POST" action="admin.asp"><td align=center colspan=5>搜索用户:     
<input type="text" name="keyword" size="14"></td>
</form></tr>
<tr class=a3><td align=center colspan=5>
第 <% for i=1 to rs.pagecount%>    
<a href=admin.asp?page=<%=i%>><%=i%></a>     
<%next%>页 
</td></tr>   
<%
end if
%></table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" >
  <tr>
    <td width="1%"><img border="0" src="images/T_bottomleft.gif" width="145" height="17"></td>
    <td width="97%" background="images/T_bottombg.gif"></td>
    <td width="2%"><img border="0" src="images/T_bottomright.gif" width="145" height="17"></td>
  </tr>
</table>
<center>
  <p style="line-height: 150%"><A href="http://gbook.365ye.com">Powered by <FONT  color=#000000>GBook365</FONT>&nbsp;&copy;    
2001-2005</A><BR>
留言本程序由&nbsp;<a href=<%=url%>><%=homename%></a> 提供&nbsp;&nbsp;&nbsp;版权所有:<a  href="http://www.365ye.com">     
365YE.COM 
</a></p>
</center></BODY>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -