📄 user_admin.asp
字号:
<!--#include file="admin.asp"-->
<!--#include file="function.asp"-->
<!--#include file="../inc/email_config.asp"-->
<!--#include file="ftp_option.asp"-->
<%
const MaxPerPage=20
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim rs, sql
dim UserID,UserSearch,Keyword,strField
dim Action,FoundErr,ErrMsg
dim tmpDays
keyword=trim(request("keyword"))
strField=trim(request("Field"))
UserSearch=trim(request("UserSearch"))
if UserSearch="" then
UserSearch=0
else
UserSearch=Clng(UserSearch)
end if
strFileName="user_admin.asp?UserSearch=" & UserSearch
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<title>注册用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr >
<td height="22" colspan=2 align=center><strong>注 册 用 户 管 理</strong></td>
</tr>
<form name="form1" action="user_admin.asp" method="get">
<tr>
<td width="100" height="30"><strong>快速查找用户：</strong></td>
<td width="687" height="30"><select size=1 name="UserSearch" onChange="javascript:submit()">
<option value="0" <%if UserSearch=0 then response.write " selected"%>>列出所有用户</option>
<option value="1" <%if UserSearch=1 then response.write " selected"%>>已开通用户</option>
<option value="2" <%if UserSearch=2 then response.write " selected"%>>待审核用户</option>
<option value="3" <%if UserSearch=3 then response.write " selected"%>>被锁用户</option>
<option value="5" <%if UserSearch=5 then response.write " selected"%>>登录次数少于1</option>
<option value="6">已过期用户</option>
</select>
<a href="user_admin.asp">用户管理首页</a></td>
</tr>
</form>
</table>
<br>
<%
if request("kt")<>"" then
chk_admin_login(2)
call ktuser()
elseif request("lock")<>"" then
chk_admin_login(2)
call lockuser()
elseif request("unlock")<>"" then
chk_admin_login(2)
call unLockuser()
elseif request("del")<>"" then
chk_admin_login(3)
call deluser()
call delftpuser(request("del"))
else
call main()
end if
if FoundErr=True then
call WriteErrMsg()
end if
sub main()
dim strGuide
strGuide="<table width='100%'><tr><td align='left'>您现在的位置：<a href='user_admin.asp'>注册用户管理</a> >> "
select case UserSearch
case 0
sql="select * from [user] order by userid desc"
strGuide=strGuide & "所有用户"
case 1
sql="select * from [user] where state=1 order by userid desc"
strGuide=strGuide & "已开通用户"
case 2
sql="select * from [user] where state=0 order by userid desc"
strGuide=strGuide & "待审核用户"
case 3
sql="select * from [user] where state=2 order by userid desc"
strGuide=strGuide & "被锁用户"
case 5
sql="select * from [user] where logins<1 order by userid desc"
strGuide=strGuide & "登录次数少于1的用户"
case 6
sql="select * from [user] where stopdate<"&Date()&" order by userid desc"
strGuide=strGuide & "已过期用户"
case 4
if Keyword="" then
sql="select * from [user] order by userid desc"
strGuide=strGuide & "所有用户"
else
select case strField
case "email"
sql="select * from [user] where email='"&Keyword&"' order by userid desc"
strGuide=strGuide & "E-mail等于<font color=red> " & Keyword & " </font>的用户"
case "username"
sql="select * from [user] where username like '%" & Keyword & "%' order by userid desc"
strGuide=strGuide & "用户名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
case "truename"
sql="select * from [user] where truename='"&Keyword&"'order by userid desc"
strGuide=strGuide & "真实姓名为“ <font color=red>" & Keyword & "</font> ”的用户"
end select
end if
case else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
end select
strGuide=strGuide & "</td><td align='right'>"
if FoundErr=True then exit sub
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
strGuide=strGuide & "共找到 <font color=red>0</font> 个用户</td></tr></table>"
response.write strGuide
else
totalPut=rs.recordcount
strGuide=strGuide & "共找到 <font color=red>" & totalPut & "</font> 个用户</td></tr></table>"
response.write strGuide
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个用户"
end if
end if
end if
rs.Close
set rs=Nothing
call ShowSearch()
end sub
sub showContent()
dim i
i=0
%>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="myform" method="Post" action="user_admin.asp" onsubmit="return confirm('确定要执行选定的操作吗？');">
<td>
<table width="100%" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<tr class="td-title-color">
<td width="40" align="center">ID</td>
<td width="106" height="22" align="center">用户名</td>
<td width="121" height="22" align="center">邮箱</td>
<td width="101" align="center">级别</td>
<td width="106" height="22" align="center">注册时间</td>
<td width="122" align="center" nowrap>最后登录时间</td>
<td width="77" align="center">更新次数</td>
<td width="76" height="22" align="center">空间使用</td>
<td width="67" align="center">状态</td>
<td width="89" height="22" align="center">操作</td>
</tr>
<%do while not rs.EOF %>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="40" align="center"><%=rs("userid")%></td>
<td width="106" align="center">
<font face="Arial, Helvetica, sans-serif" color="#FF0000"><a href="user_show.asp?userid=<%=rs("userid")%>"><%=rs("username")%></a></font> </td>
<td align="center"><a href="mail_send.asp?toemail=<%=rs("email")%>" title="给<%=rs("username")%>发送邮件"><%=rs("email")%></a></td>
<td align="center"><span>
<%set rskj=server.createobject("ADODB.Recordset")
sqlkj="select * from host where id="&cint(rs("groups"))
rskj.open sqlkj,conn,1,1
Response.Write rskj("name")
userdir=rskj("userdir")
username=rs("username")
kj=rs("space")*1048576
if not fso.FolderExists(userdir&username) then
usesize=0
useyet=0
else
set kjs=fso.getfolder(userdir&username)
usesize=kjs.size/1024
useyet=kjs.size
end if
%>
</span>
</td>
<td align="center"><span><%=rs("regdate")%></span></td>
<td align="center" nowrap><span><%=rs("logindate")%></span> </td>
<td align="center" nowrap><span><%=rs("logins")%></span></td>
<td width="76" align="center"><%if not fso.FolderExists(userdir&username) then
Response.Write("<font color=red>目录出错</font>")
else%><div align=left style="height:6px;width:50px;border: 1px solid #99ccff;cursor:hand" title="空间使用：<%
if useyet/kj*100<1 then
Response.Write ("0")
Response.Write (""&round(useyet/kj*100,3)&"%")
else
Response.Write (""&round(useyet/kj*100,1)&"%")
end if
%>"><img height=4 src="images/t.gif" width="<%=round(useyet/kj*100,1)%>%" align=absmiddle></div><%end if%></td>
<td width="67" align="center" nowrap><span>
<%
select case rs("state")
case "0"
response.write "<font color=red>未开通</font>"
case "1"
response.write "正常"
case "2"
response.write "<font color=red>已锁定</font>"
End select
%>
</span></td>
<td width="89" align="center" nowrap><%
select case rs("state")
case "0"
Response.Write "<a href=?kt="&rs("username")&">开通</a>"
case "1"
Response.Write "<a href=?lock="&rs("username")&">锁定</a>"
case "2"
Response.Write "<a href=?unlock="&rs("username")&"><b>解锁</b></a>"
End select
%>
| <a href="?del=<%=rs("username")%>&groups=<%=rs("groups")%>" onClick="return confirm('确定要删除 <%=rs("username")%> 吗？');">删除</a> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
</td>
</form></tr></table>
<%
end sub
sub ShowSearch()
%>
<form name="form2" method="post" action="user_admin.asp">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="#0099cc">
<tr >
<td width="120">用户高级查询：</td>
<td> <select name="Field" id="Field">
<option value="username">用户名</option>
<option value="email">电子邮件</option>
<option value="truename">真实姓名</option>
</select> <input name="keyword" type="text" id="keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 "> <input name="UserSearch" type="hidden" value="4"> 若为空，则查询所有用户</td>
</tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub ktuser()
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [user] where username='"&request("kt")&"'"
rs.open sql,conn,1,3
rs("state")=1
rs("ktdate")=Date()
username=rs("username")
email=rs("email")
rs.update
set rshost=server.createobject("ADODB.Recordset")
sqlhost="select * from host where id="&cint(rs("groups"))
rshost.open sqlhost,conn,1,1
userdir=rshost("userdir")
userurl=rshost("userurl")
set rs2=server.CreateObject("ADODB.Recordset")
sql2="select * from config"
rs2.open sql2,conn,1,1
siteurl=rs2("siteurl")
mailtype=rs2("mailtype")
smtpserver=rs2("smtpserver")
smtpname=rs2("smtpname")
smtppass=rs2("smtppass")
site=rs2("site")
siteemail=rs2("siteemail")
set afile=fso.getfile(server.MapPath("..")+"\copypage"&"\index1.htm")
afile.copy(userdir&username&"\index.htm")
set bfile=fso.getfile(server.MapPath("..")+"\copypage"&"\505.jpg")
bfile.copy(userdir&username&"\505.jpg")
if mailtype<>0 then
dim topic,mailbody,useremail
topic = "尊敬的用户："&username&"，您在"&site&"申请的主页空间已经开通！"
useremail = ""&email&""
mailbody="<font style='font-size:12px'>尊敬的用户："&username&"，您好！<br><br> 您在"&site&"申请的主页空间已经开通，您的账户信息如下：<br><br>"
MailBody = MailBody & " 域 名：<a href="&userurl&"/"&username&" target=_blank>"&userurl&"/"&username&"</a><br>"
MailBody = MailBody & " 用户名："&username&"<br> 密 码：您注册时的密码<br><br>"
MailBody = MailBody & "＊当您完成您的网站设计制作后，您可直接登录我们的网站在线通过WEB上传！<br>"
MailBody = MailBody & "＊同时请遵守我们服务条款中的各项规定，如果违反，我们有可能在不提前通知的情况下关闭您的帐号。<br>"
MailBody = MailBody & "-----------------------------------------------------<br>"
MailBody = MailBody & "需要回复此邮件，请回复至：<a href=mailto:"&siteemail&" target=_blank>"&siteemail&"</a>，谢谢！<br>"
MailBody = MailBody & ""&site&"|<a href="&siteurl&" target=_blank>"&siteurl&"</a><br>"
MailBody = MailBody & ""&Now()&"</font>"
select case mailtype
case 1
call jmail(useremail,topic,mailbody)
case 2
call Cdonts(useremail,topic,mailbody)
case 3
call aspemail(useremail,topic,mailbody)
case Else
end select
end if
Response.write("<script>alert('操作成功');location.href='user_admin.asp';</script>")
rs.close
set rs=nothing
rshost.close
set rshost=nothing
rs2.close
set rs2=nothing
end sub
sub lockuser()
sql="Update [user] set state=2 where username='"&request("lock")&"'"
Conn.Execute sql
set sv = Server.CreateObject("XingerServU.Control")
sv.FilePath Const_ServerUIni
sv.Disable sUser
set sv = nothing
Response.write("<script>alert('操作成功');location.href='user_admin.asp';</script>")
end sub
sub unlockuser()
sql="update [user] set state=1 where username='"&request("unlock")&"'"
Conn.Execute sql
set sv = Server.CreateObject("XingerServU.Control")
sv.FilePath Const_ServerUIni
sv.Enable sUser
set sv = nothing
Response.write("<script>alert('操作成功');location.href='user_admin.asp';</script>")
end sub
sub DelUser()
sql1="delete from [user] where username='"&request("del")&"'"
username=request("del")
Conn.Execute sql1
sql2="delete from [counter] where username='"&request("del")&"'"
Conn.Execute sql2
sql3="delete from [pay] where username='"&request("del")&"'"
Conn.Execute sql3
sql4="delete from [gbook] where username='"&request("del")&"'"
Conn.Execute sql4
sql5="delete from [gbuser] where username='"&request("del")&"'"
Conn.Execute sql5
sql6="delete from [ftpuser] where username='"&request("del")&"'"
Conn.Execute sql6
set rshost=server.createobject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(request("groups"))
rshost.open sqlhost,conn,1,3
userdir=rshost("userdir")
if not fso.FolderExists(userdir&username) then
response.write "<script language=javascript>alert('没有找到用户"&username&"的网站目录，系统已从数据库中删除了该用户');location.href='user_admin.asp'</script>"
else
fso.DeleteFolder(userdir&username)
response.write "<script language=javascript>alert('用户"&username&"的所有相关数据库记录及网站文件已全部删除！');location.href='user_admin.asp'</script>"
end if
end sub
sub delftpuser( sUser )
set sv = Server.CreateObject("XingerServU.Control")
sv.FilePath Const_ServerUIni
sv.DelUser sUser
set sv = nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -