📄 manage.asp

📁 自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

💻 ASP

字号:

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<%
if session("admin")="ture" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from wish order by id desc"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
 response.write "<br><br><center><font color=red>还没有任何祈愿可以管理!</font></center>"
else
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<head>
<style type="text/css">
<!--
a {  text-decoration: none}  
a:hover {  text-decoration: underline} 
table {  font-size: 9pt}
body, table, p, td, input {  font-size: 9pt} 
-->
</style>
<title><%=title%></title>
</head>
<body bgcolor="<%=bgcolor%>" text="<%=textcolor%>" link="<%=linkcolor%>">

<div align="center"><center>

<table border="1" cellspacing="1" width="550" bordercolor=#6284C1>
  <tr>
    <td width="668" height="15" bgcolor="<%=titledarkcolor%>" colspan="6"><p align="center"><font
    color="<%=titlelightcolor%>">删除用户窗口 (共有<font color="<%=linkcolor%>"><b><%=rs.recordcount%></b></font>个祈愿)</td>
  </tr>
  <tr>
    <td width="108" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">用户名</font></td>
    <td width="40" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">性别</font></td>
    <td width="80" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">愿望类别</font></td>
    <td width="106" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">登记IP</font></td>
    <td width="133" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">登记时间</font></td>
    <td width="46" height="12" bgcolor="<%=titledarkcolor%>" align="center"><font color="<%=titlelightcolor%>">删除</font></td>
  </tr>
<%
    page=request.querystring("page")
    pmcount=10    '每页显示记录数

    rs.pagesize=pmcount
    maxpage=rs.pagecount
    total=rs.recordcount

    if isempty(page) or cint(page)<1 or cint(page)>maxpage then
        page=1
    end if

    rs.absolutepage=page

rc=rs.pagesize
re=1
do while not rs.eof and rc>0
%>
  <tr>
    <td align="center"><%=rs("name")%>　</td>
    <td align="center"><%=rs("sex")%>　</td>
    <td align="center"><%=rs("wishtype")%>　</td>
    <td align="center"><%=rs("ip")%>　</td>
    <td align="center"><%=rs("date")%>　</td>
    <td align="center"><a href=del.asp?did=<%=rs("id")%>>删除</a></td>
  </tr>
<%
rs.movenext
loop
%>
</table>
</center>
</div>

<p align="center">页数 【<% for num=1 to maxpage
if num=cint(page) then%>
      <%=num%> 
      <%else%>
      <b><a href='manage.asp?page=<%=num%>'><%=num%></a></b> 
      <%end if%>
      <%next%>】【<a href="manage.asp">刷新</a>】【<a href="wish.asp">返回</a>】</p>
<div align="center"><hr width=550 color=#6284C1 size=1></div>
</body>
</html>
<%end if
else
    response.redirect "error.asp?msg=你没权利查看本页"
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -