📄 admin_user.asp
字号:
<!--#include file="chkstr.inc"-->
<!--#include file="inc/Conn.asp"-->
<!--#include file="Admin_IsLogin.asp" -->
<%
'//进行注册用户删除操作
if Request("action")="deluser" then
uid=Request("id")
sql="delete from fyuser where id="&uid
conn.Execute sql
conn.Close
set conn=Nothing
Response.Write "用户删除成功..."
Response.write("<script>alert(""删除成功！"");location.href=""Admin_User.asp"";</script>")
Response.end
end if
if request("action")="sf" then
conn.execute("Update fyuser set jb=1 where id = ("&request("id")&")")
Response.write("<script>alert(""客户已经设为收费会员！"");location.href=""Admin_User.asp"";</script>")
Response.end
end if
if request("action")="sf1" then
conn.execute("Update fyuser set jb=0 where id = ("&request("id")&")")
Response.write("<script>alert(""客户已经设为普通会员！"");location.href=""Admin_User.asp"";</script>")
Response.end
end if
if request("action")="sh" then
conn.execute("Update fyuser set sh=1 where id = ("&request("id")&")")
Response.write("<script>alert(""会员已经开通！"");location.href=""Admin_User.asp"";</script>")
Response.end
end if
if request("action")="sh1" then
conn.execute("Update fyuser set sh=0 where id = ("&request("id")&")")
Response.write("<script>alert(""锁定成功！"");location.href=""Admin_User.asp"";</script>")
Response.end
end if
%>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<%
dim kword,stype
kword=request("kword")
stype=request("stype")
%>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<div align="center">
<table width="100%" border="0" cellspacing="3" cellpadding="3" bgcolor="#DEE5FA">
<tr>
<td><font color="#215DC6">注册用户管理</font></td>
</tr><form name="form1" method="post" action="?">
<tr>
<td>
<p align="center">
<p align="center">搜索：
<input type="text" name="kword" size="25">
<select name="stype" size="1">
<option value="1" selected>按用户名</option>
<option value="2">按联系人</option>
<option value="3">按电话</option>
</select>
<input type="submit" name="Submit" value="查">
</p>
</td>
</tr></form>
<tr>
<td valign="top">
<%
if stype<>"" then
if stype=1 then
set rs=Server.CreateObject("ADODB.Recordset")
'分页代码1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分页代码结束1######
sql="select * from fyuser where (user like '%"&checkStr(kword)&"%') order by id desc"
rs.open sql,conn,1,1
%><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="79%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="99%">
<p align="center"> 查询结果—共有<font color="#000073">（<%=rs.recordcount%>）</font>个用户符合关键词:<font color="#000073"><%=request("kword")%></font>
</td>
</tr>
</table>
</center>
</div><%end if
if stype=2 then
set rs=server.CreateObject("Adodb.Recordset")
'分页代码1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分页代码结束1######
sql="select * from fyuser where (name like '%"&checkStr(kword)&"%') order by id desc"
rs.open sql,conn,1,1
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="79%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="80%">
<p align="center"> 查询结果—共有<font color="#000073">（<%=rs.recordcount%>）</font>个用户符合关键词:<font color="#000073"><%=request("kword")%></font>
</td>
</tr>
</table>
</center>
</div>
<%end if
if stype=3 then
set rs=server.CreateObject("Adodb.Recordset")
'分页代码1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分页代码结束1######
sql="select * from fyuser where (phone like '%"&checkStr(kword)&"%') order by id desc"
rs.open sql,conn,1,1
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="79%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="80%">
<p align="center"> 查询结果— </font>共有<font color="#000073">（<%=rs.recordcount%>）</font>个用户符合关键词:<font color="#000073"><%=request("kword")%></font>
</td>
</tr>
</table>
</center>
</div>
<%end if
end if
if stype="" then
set rs=server.CreateObject("Adodb.Recordset")
'分页代码1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分页代码结束1######
if request("sh")<>"" then
sql="select * from fyuser where sh="&request("sh")&" order by id desc"
else
if request("jb")<>"" then
sql="select * from fyuser where jb="&request("jb")&" order by id desc"
else
sql="select * from fyuser order by id desc"
end if
end if
rs.open sql,conn,1,1
%> <%end if
if rs.eof and rs.bof then
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if
'分页代码2#######
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
'分页代码2结束####### %>
</td>
</tr>
<tr>
<td valign="top" nowrap>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#799AE1" class=tableBorder style="border-width:0; border-collapse: collapse">
<tr bgcolor="#799AE1">
<th height="25" class=tableHeaderText>ID</th>
<th height="25" class=tableHeaderText>用户名</th>
<th height="25" class=tableHeaderText>密 码</th>
<th height="25" class=tableHeaderText>用户级别</th>
<th height="25" class=tableHeaderText>当前状态</th>
<th height="25" class=tableHeaderText>用户类型</th>
<th height="25" class=tableHeaderText>注册时间</th>
<th height="25" class=tableHeaderText>修改</th>
<th height="25" class=tableHeaderText>删除</th>
</tr>
<%if mmm<>0 then
for iisf=1 to mmm * 16
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof%>
<tr>
<td width="6%" align="center" bgcolor="#DEE5FA"><%=rs("id")%></td>
<td width="12%" align="center" bgcolor="#DEE5FA"> <a href="mod_user.asp?id=<%=rs("id")%>" class="tt2"><%=rs("user")%></a></td>
<td width="15%" height="22" align="center" bgcolor="#DEE5FA"> <%=rs("pass")%></td>
<td width="15%" height="22" align="center" bgcolor="#DEE5FA"> <% if rs("jb")<>"1" then%>
<a href='Admin_User.asp?action=sf&id=<%=rs("id")%>' onclick="{if(confirm('确定设为收费会员吗?')){return true;}return false;}"><font color="#428EFF">普通会员</font></a>
<%else%>
<a href='Admin_User.asp?action=sf1&id=<%=rs("id")%>' onclick="{if(confirm('确定取消收费会员吗?')){return true;}return false;}"><font color="#ff0000"> 收费会员</font></a>
<%end if%></td>
<td width="15%" height="22" align="center" bgcolor="#DEE5FA"> <% if rs("sh")<>"1" then%>
<a href='Admin_User.asp?action=sh&id=<%=rs("id")%>' onclick="{if(confirm('确定要开通此用户吗?')){return true;}return false;}"><font color="#ff0000">锁定</font></a>
<%else%>
<a href='Admin_User.asp?action=sh1&id=<%=rs("id")%>' onclick="{if(confirm('确定要锁定此用户吗?')){return true;}return false;}"><font color="#428EFF">正常</font></a>
<%end if%></td>
<td width="10%" height="22" align="center" bgcolor="#DEE5FA"><% if rs("lx")<>"1" then%>
<font color="#428EFF">普通用户</font>
<%else%>
<font color="#ff0000">专线用户</font>
<%end if%></td>
<td width="17%" height="22" align="center" bgcolor="#DEE5FA"><%=rs("time")%></td>
<td width="4%" height="22" align="center" bgcolor="#DEE5FA"><a href="mod_user.asp?id=<%=rs("id")%>" class="tt2">修改</a></td>
<td width="5%" bgcolor="#DEE5FA">
<div align='center'>
<a href='admin_user.asp?action=deluser&id=<%=rs("id")%>' onclick="{if(confirm('确定要删除此会员吗?')){return true;}return false;}">
<font color="#808080">删除</font></a>
</div>
</td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
%>
</form>
</table>
</td>
</tr>
</table>
</div>
<div align="center">
<table width="98%" border="0" cellspacing="1" cellpadding="0">
<% if rs.pagecount=1 then %>
<td height="6" colspan="4" valign="bottom" align="right"> <font color="#000000">共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录
以上是[<font color="red">1～<%=rs.recordcount%></font>]条</font></td>
</tr>
<tr>
<td width="600" height="7" colspan="4" valign="bottom" align="right"></td>
</tr>
<%else%>
<tr>
<td height="6" colspan="4" valign="bottom" align="right"><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录 以上是[<font color="red"><%=page_start%>～<%=page_end%></font>]条</font></td>
</tr>
<tr>
<td height="6" colspan="4" valign="bottom" align="right">
<% response.write"<form name=go2to form method=Post action='?kword="&kword&"&stype="&stype&"'>"
response.write "<font color='#000064'>◆ </font>"
if pagecount=1 then
response.write "<font color='#000064'>首页 上一页</font> "
else
response.write "<a href=?kword="&kword&"&stype="&stype&"&page=1><font color='0000BE'>首页</font></a> "
response.write "<a href=?kword="&kword&"&stype="&stype&"&page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font color='#000064'>下一页 尾页</font>"
else
response.write "<a href=?kword="&kword&"&stype="&stype&"&page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a> "
response.write "<a href=?kword="&kword&"&stype="&stype&"&page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"
end if
response.write "<font color='000064'> 页次:<font color=blue>"&pagecount&"</font>/"&rs.pagecount&"页</font>"
response.write "<font color='000064'> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font> "
response.write "<input class=button type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>"
response.write "</form>"%> </td>
</tr>
<%end if%>
</table>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="end.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -