📄 admin_user.asp
字号:
<!--#include file=admin_login_check.asp-->
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<title></title>
<STYLE type=text/css>
BODY {
BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体;
scrollbar-face-color: #DEE3E7;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #DEE3E7;
scrollbar-3dlight-color: #D1D7DC;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #EFEFEF;
scrollbar-darkshadow-color: #98AAB1;
}
TABLE {
BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
FONT: 12px 宋体
}
IMG {
BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
A {
FONT: 12px 宋体; COLOR: #f05dc6; TEXT-DECORATION: none
}
A:hover {
COLOR: #215dc6
}
.fminpt
{
BORDER: #111111 1px solid;
FONT-SIZE: 9pt;
BACKGROUND-color: #ffffff
}
.TBBG9
{
BACKGROUND-COLOR: #E8F1FF;
BORDER: medium none;
COLOR: #00000;
HEIGHT: 22px;
font-size: 14pt
}
.fmbtn
{
BACKGROUND-COLOR: #215dc6;
BORDER: medium none;
COLOR: #00000;
HEIGHT: 22px;
font-size: 14pt
}
.backs
{
BACKGROUND-COLOR: #6B8FC8;
COLOR: #ffffff;
}
</STYLE></head>
<body><br/>
<%
const PageSize=12 '一页12条记录
IF Request.QueryString("Action")="add" Then
call add
elseIF Request.QueryString("Action")="edit" Then
call edit
elseIF Request.QueryString("Action")="del" Then
call del
else
call main
end if
Function main
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from wap_user order by id"
rs.Open sql,conn,1,1
Page = Request("Page")
Rs.PageSize = PageSize
if not (rs.bof and rs.eof) then
IF Not IsEmpty(Page) Then
IF Not IsNumeric(Page) Then '判断Page是否为数字
Page=1
Else
Page=Cint(Page) '转换成短整形Integer
End IF
IF Page > Rs.PageCount Then
Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
ElseIF Page <= 0 Then
Rs.AbsolutePage = 1 '设置当前页等于第一页
Else
Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
End IF
Else
Rs.AbsolutePage = 1
End IF
Page = Rs.AbsolutePage
%>
<body>
<table align="center" width="100%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr class=backs>
<td colspan="6">用户管理 <a href="?Action=add">添加用户</a></td></tr>
<tr bgcolor="#E8F1FF" class=TBBG9>
<td>ID</td><td>用户名</td><td>手机</td><td>操作</td>
</tr>
<% For i=1 to Rs.PageSize
If Rs.Eof Then
exit For
End If%>
<form method="post" action="?id=<%=rs("id")%>" style="margin:0">
<tr bgcolor="#E8F1FF" class=TBBG9>
<td width="10%" ><%=rs("id")%></td>
<td width="30%" ><%=rs("name")%></td>
<td width="30%" ><%=rs("mobile")%></td>
<td width="30%" ><a href="?Action=edit&id=<%=rs("id")%>">修改</a>
<a href="?Action=del&id=<%=rs("id")%>">删除</a>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
<tr bgcolor="#E8F1FF">
<td colspan="6" > <div align="center">
<%
if page<=1 then
Response.Write ("[首页][上一页]")
else
Response.Write("[<a href=?Page=1>首页</a>]")
Response.Write("[<a href=?Page=" & (Page-1) & ">上一页</a>]")
end if
if page>=Rs.PageCount then
Response.Write ("[下一页][尾页]")
else
Response.Write("[<a href=?Page=" & (Page+1) & ">下一页</a>]")
Response.Write("[<a href=?Page=" & Rs.PageCount & ">尾页</a>]")
end if
Response.Write("[页次:<font color=red>" & page & "</font>/" & Rs.PageCount)
Response.Write("][共" & Rs.RecordCount & "条 <font color=red>"& Rs.PageSize & "</font>条/页]")
%>
</div></td>
</tr>
<%
else
%>
<tr bgcolor="#E8F1FF" class=TBBG9>
<td colspan="6" > <div align="center">
暂无用户!<br/>
</div></td>
</tr>
<%
end if
rs.Close
set rs=Nothing
%>
</form>
</table>
<%
end Function
Function del
dim id
id=TRim(Request("id"))
if not isnumeric(id) then id=""
if id<>"" then
%>
<p style="margin-left:15px;">
<b>删除用户</b></p>
<%
If Request("SubmitFlag") <> "" Then
dim sql,rs
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * from wap_user WHERE id="&id
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.Delete
end if
rs.Close
Set rs = Nothing
%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#E8F1FF class=TBBG9>
<td colspan="2">删除用户成功!<br/><a href='admin_user.asp'>返回用户管理</a></td>
</tr>
</table>
<% else%>
<form name="pollform3sdx" method="post" action="?Action=del&id=<%=id%>">
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr bgcolor=#E8F1FF class=TBBG9>
<td colspan="2">
<strong><font color="#FF0000">确认信息： 真的要删除编号为<%=id%>用户吗？</font></strong><br><br>
<input type=button value="不能删啊" onclick="javascript:history.go(-1);" class=fmbtn>
<input type=submit name=删除 value="当然删除" class=fmbtn></td>
</tr>
</table>
</form>
<%
end if
else
Response.Write("请不要非法传递参数!")
end if
End Function
Function edit
dim id
id=TRim(Request("id"))
if not isnumeric(id) then id=""
if id<>"" then
%>
<form name="pollform3sdx" method="post" action="?Action=edit&id=<%=id%>">
<p style="margin-left:15px;">
<b>修改用户</b><br/><a href='admin_user.asp'>返回用户管理</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr>
<td align="center">
<%
If Request("SubmitFlag") <> "" Then
flag=1
errmsg="<ul><font color=red>"
mobile=Request.Form("mobile")
pass=Request.Form("pass")
if right_class="" then right_class="3"
if mobile="" then errmsg=errmsg&"<li>手机号不能为空</li>":flag=0
if flag<>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from wap_user WHERE id="&id
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
if pass<>"" then rs("pass")=md5(pass)
rs("mobile")=mobile
rs.update()
end if
Response.Write("成功修改名为<font color='red'>"&name&"</font>的用户！")
Response.Write("<br/><a href='admin_user.asp'>返回用户管理</a>")
errmsg=errmsg&"</font></ul>"
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()' class=fmbtn>返回修改</button>")
end if
Else
set rs=server.CreateObject("adodb.recordset")
sql="select * from wap_user WHERE id="&id
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">用户名:</td>
<td><%=rs("name")%></td>
</tr>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">用户密码:</td>
<td><input name="pass" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(用户密码，如果不修改，请留空)</font></td>
</tr>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">手机号:</td>
<td><input name="mobile" type="text" value="<%=rs("mobile")%>" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(手机号，必填)</font></td>
</tr>
<%end if
rs.Close
Set rs = Nothing
%>
<tr bgcolor="#E8F1FF" class=TBBG9>
<td colspan="4" > <div align="center">
<input type=submit name=保存 value="保 存" class=fmbtn>
<input type=reset name=取消 value=清 除 class=fmbtn>
</td>
</tr>
</table>
<%End If%>
</form>
<%
else
Response.Write("请不要非法传递参数!")
end if
End Function
Function add
%>
<form name="pollform3sdx" method="post" action="?Action=add">
<p style="margin-left:15px;">
<b>添加用户</b><br/><a href='admin_user.asp'>返回用户管理</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr>
<td align="center">
<%
If Request("SubmitFlag") <> "" Then
Addbbsboards
Exit Function
Else
DisplayBBSSet
End If
%>
</td></tr>
<tr>
<td align="center">
<input type=submit name=提交 value=提 交 class=fmbtn>
<input type=reset name=取消 value=清 除 class=fmbtn>
</td>
</tr>
</table>
</form>
<%
End Function
Function DisplayBBSSet
%>
<table width="100%" border=0 align="center" cellpadding=3 cellspacing=1 style="border-collapse: collapse" bordercolor="#6B8FC8" class=TBone>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">用户名:</td>
<td><input name="name" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(用户名，必填)</font></td>
</tr>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">用户密码:</td>
<td><input name="pass" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(用户密码，必填)</font></td>
</tr>
<tr bgcolor=#E8F1FF class=TBBG9>
<td class="tar">手机号:</td>
<td><input name="mobile" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(手机号，必填)</font></td>
</tr></table>
<%
End Function
Function Addbbsboards
flag=1
errmsg="<ul><font color=red>"
name=Request.Form("name")
mobile=Request.Form("mobile")
pass=Request.Form("pass")
if not isnumeric(mobile) then mobile=""
if right_class="" then right_class="3"
if name="" then errmsg=errmsg&"<li>用户名不能为空</li>":flag=0
if pass="" then errmsg=errmsg&"<li>用户密码不能为空</li>":flag=0
if mobile="" then errmsg=errmsg&"<li>手机号不能为空</li>":flag=0
if flag<>0 then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from wap_user"
rs.open sql,conn,1,3
rs.addnew()
rs("name")=name
rs("pass")=md5(pass)
rs("mobile")=mobile
rs.update()
Rs.close
set rs=nothing
Response.Write("成功添加名为<font color='red'>"&name&"</font>的用户！")
Response.Write("<br/><a href='admin_user.asp'>返回用户管理</a>")
errmsg=errmsg&"</font></ul>"
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()' class=fmbtn>返回修改</button>")
end if
End Function
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -