📄 admin.asp
字号:
<!--#include file="conn.asp" -->
<%
if session("username")="" then
response.Redirect("adminindex.asp")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>有为网会员管理中心</title>
<link href="css.css" type=text/css rel=stylesheet></head>
<body>
<div id=d1><img src="logo.gif"></div>
<div id=d2 style="text-align:left;">您现在的位置»<A HREF="index.asp">首页</A>»<A HREF="admin.asp">用户管理中心</A>»</div>
<%
'分页显示
If Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End If
set rs=Server.CreateObject("ADODB.RecordSet")
if not tsort="" then
sql="select * from info order by id "
else
sql="select * from info order by id "
end if
rs.open sql,conn,1,1
rs.PageSize=10
if not rs.eof then
rs.AbsolutePage=page
for k=1 to rs.PageSize
%>
<%
%>
<div style="width:350px;text-align:left;padding-top:3px;padding-bottom:3px;border-bottom:1px #c0c0c0 dotted;">
<%
response.Write(rs("id"))
response.Write(" <font style='font-weight:bold;'>")
response.Write(rs("username"))
response.Write("</font> 邮箱:<font style='font-weight:bold;'>")
response.Write(rs("mail"))
response.Write("</font> <br>地址:<font style='font-weight:bold;'>")
response.Write(rs("add"))
response.Write("</font>")
%>
<BR><a href="admin.asp?delname=<%=rs("id")%>&ac=del" style="color:#ff0000;">删除该用户</a></div>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if
%>
<%
if page <>1 then
Response.Write "<a href=managesp.asp?page=1?cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=managesp.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=managesp.asp?page="&tmppage&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=managesp.asp?page="&rs.PageCount&"&cfcs="&cfcs&"&ddcs="&ddcs&"&rb="&cwdj&">尾页</a>"
end if
if Cstr(rs.PageCount) <> 0 then
Response.Write " 第<font color='#CCCCCC'>" & page & "/"&rs.PageCount&"</font>页"
end if
'删除用户
ac=request.QueryString("ac")
if ac="del" then
id=request.QueryString("delname")
set rs=server.createobject("adodb.recordset")
dsql="delete * from info where id="&id&""
rs.open dsql,conn,1,3
response.Write("完成删除")
rs.close
set rs=nothing
end if
%>
<a href="change.asp?se=y" target="_self">退出系统</a>
<% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%>
<div id=copy style="text-align:center;"><a href="http://www.youwe.org/?user" target="_parent">Copyright © www.YouWe.org</a><BR>有为明星加工厂 设计发布</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -