user_admin.asp

九酷网络个人主页系统破解版

if Request("tel")<>empty then item=""&item&" and tel like '%"&Request("tel")&"%'"
if Request("sitename")<>empty then item=""&item&" and sitename like '%"&Request("sitename")&"%'"
if Request("intro")<>empty then item=""&item&" and intro like '%"&Request("intro")&"%'"
if Request("logindays")<>empty then item=""&item&" and logindate<Date()-"&cint(Request("logindays"))&""
if Request("logins")<>empty then item=""&item&" and logins<"&cint(Request("logins"))&""
if item="" then error2("请输入您要搜索的条件")

item="where"&item&""
item=replace(item,"where and","where")

sql="select * from [user] "&item&" order by userid desc"
rs.Open sql,Conn,1
if Request("pagetype")<>empty and isNumeric(Request("pagetype")) then
pagesetup=cint(Request("pagetype")) '设定每页的显示数量
else
pagesetup=20
end if
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
h=0
j=0
Do While Not RS.EOF and i<pagesetup
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
i=i+1
h=h+1

%>
            <tr class="<%=a%>">
              <td align="center"><INPUT name=username type=checkbox id="username" value=<%=rs("username")%>></td>
              <td><a onMouseOver="showmenu(event,'<div class=menuitems><a href=user_admin.asp?menu=user2&username=<%=rs("username")%> target=_blank>查看资料</a></div><div class=menuitems><a href=../view.asp?username=<%=rs("username")%> target=_blank>浏览网站</a></div><div class=menuitems><a href=mail_send.asp?toemail=<%=rs("email")%>>发送邮件</a></div><div class=menuitems><a href=message_admin.asp?menu=addmsg&touser=<%=rs("username")%>>发送短信</a></div><div class=menuitems><a href=user_filemanage.asp?username=<%=rs("username")%> target=_blank>管理文件</a></div>')" style=cursor:hand>
<%=rs("username")%></a></td>
              <td align="center">
                <%
set rskj=conn.Execute("select * from [host] where id="&cint(rs("groups"))&"")
Response.Write rskj("name")
userfolder=rskj("userdir")
bakfolder=rskj("bakfolder")
username=rs("username")
kj=rskj("space")*1048576
if not fso.FolderExists(userfolder&username) then
usesize=0
useyet=0
else
set kjs=fso.getfolder(userfolder&username)
usesize=kjs.size/1024
useyet=kjs.size
end if
%>              </td>
              <td align="center"><a href="#来自IP:<%=rs("regip")%>" title="来自IP:<%=rs("regip")%>"><%=rs("regdate")%></a></td>
              <td align="center" nowrap><a href="mail_send.asp?toemail=<%=rs("email")%>" title="发送邮件"><%=rs("email")%></a></td>
              <td align="center" nowrap><%=rs("logins")%></td>
              <td align="center"><%if not fso.FolderExists(userfolder&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 align="center" nowrap>
                <%
			select case rs("state")
	  case "0"
	  	response.write "<font color=blue>未激活</font>"
	  case "1"
	  	response.write "<font color=grenn>正常</font>"
	  case "2"
	  response.write "<font color=red>被锁定</font>"
	  case else
	  response.write "<font color=red>发生错误</font>"
	  End select
	  %>              </td>
              <td align="center" nowrap><%
			  select case rs("state")
case 0
Response.Write "<a href=?menu=activeuser&email="&rs("email")&"&username="&rs("username")&"&groups="&rs("groups")&" onClick=""return confirm('系统提示：\n\n此操作将激活用户帐号，重新生成缺省首页，并发送邮件通知！');"">开通</a>"
case 2
Response.Write "<a href=?menu=user3&Activation=Activationok&username="&rs("username")&" onClick=""return confirm('系统提示：\n\n确定激活吗？');"">激活</a>"
end select
%>
                <input name="deldir<%=h%>" type="checkbox" id="deldir<%=h%>" value="<%=userfolder&username%>">
                原始
                <input name="bakdir<%=h%>" type="checkbox" value="<%=bakfolder&username%>">
                备份</td>
            </tr>
<%
j=j+1
RS.MoveNext
loop
%>
            <tr class="a4"> 
            <td colspan="9" align="center"><input type="hidden" name="maxdir" value="<%=rs.recordcount%>"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">              全选
                <input name="Activation" type="radio" value="Activationno"> 
锁定
<input name="Activation" type="radio" value="Activationok"> 
激活<span class="a3">
<input name="Activation" type="radio" value="userdels">
删除</span>
<input name="Submit" type="submit" id="Submit" value=" 确 定 " onClick="return Confirm()"></td>
</tr>
</form>
</table>
<br>
<b>[<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"<%=session("temp")%>")</script>]</b>
<%
end sub
sub user2
if username="" then error2("用户名不能为空！ ")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then error2(""&username&" 的用户资料不存在")
groups=rs("groups")
%>
<table width="60%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form method="post" action="user_save.asp">
  <input type="hidden" name="username" value="<%=request("username")%>">
  <input type="hidden" name="groupid" value="<%=rs("groups")%>">
    <tr align="center" class="a1">
      <td height="25" colspan="2">查看&quot;<%=rs("username")%>&quot;详细资料</td>全部功能购买  10元
地址；http://t14.cn
  </form>
</table>
<%
end sub
sub Activationno() '锁定
if Request("username")=empty then
error2("请选择要锁定的用户！")
end if
for each ho in Request("username")
conn.execute("Update [user] set state=2 where username='"&ho&"'")
next    
response.write "<script>alert('已成功锁定所选用户！');location.href='user_admin.asp?"&session("temp")&"';</script>"
end sub
sub Activationok() '激活
if Request("username")=empty then
error2("请选择要激活的用户！")
end if
for each ho in Request("username")
conn.execute("Update [user] set state=1 where username='"&ho&"'")
next
response.write "<script>alert('已成功激活所选用户！');location.href='user_admin.asp?"&session("temp")&"';</script>"
end sub
sub userdels() '批量删除
users=Request("username")
if users=empty then error2("请选择要删除的用户！")
for each ho in Request("username")
conn.execute("delete from [user] where username='"&ho&"'")
conn.execute("delete from [counter] where username='"&ho&"'")
conn.execute("delete from [pay] where username='"&ho&"'")
conn.execute("delete from [gbook] where username='"&ho&"'")
conn.execute("delete from [gbuser] where username='"&ho&"'")
conn.execute("delete from [message] where fromuser='"&ho&"'")
conn.execute("delete from [message] where touser='"&ho&"'")
conn.execute("delete from [user] where username='"&ho&"'")
connftp.execute("delete from [User accounts] where user='"&ho&"'")
next
maxdir=cint(Request.Form("maxdir")) '删除网站目录
for d1=1 to maxdir
if Request.Form("deldir"&d1)<>empty then
sStr1=Request.Form("deldir"&d1)
if fso.FolderExists(sStr1) then
fso.DeleteFolder(sStr1),true
end if
end if
next   
for d2=1 to maxdir
if Request.Form("bakdir"&d2)<>empty then
sStr2=Request.Form("bakdir"&d2)
if fso.FolderExists(sStr2) then
fso.DeleteFolder(sStr2),true
end if
end if 
next
response.write "已成功删除："&users&"<br>"
response.write "<a href=user_admin.asp?"&session("temp")&">[返回]</a>"
end sub
sub activeuser '激活用户，重新生成缺省首页，并判断发送邮件。
username=Request("username")
email=request("email")
conn.execute("update [user] set state=1,ktdate=Date() where username='"&username&"'")
set rshost2=conn.Execute("select * from [host] where id="&cint(request("groups"))&"")
userdir=rshost2("userdir")
userurl=rshost2("userurl")
Fso.CopyFolder server.MapPath("..")+"\template\copypage1",userdir&username
if mailtype<>0 then
dim topic,mailbody
topic = "尊敬的用户："&username&"，您在【"&site&"】申请的主页空间已经开通！"
mailbody="<font style='font-size:12px'>尊敬的用户："&username&"，您好！<br><br>&nbsp;&nbsp;&nbsp;&nbsp;您在"&site&"申请的主页空间已经开通，您的账户信息如下：<br><br>"
MailBody = MailBody & "&nbsp;&nbsp;&nbsp;&nbsp;域　名：<a href="&userurl&""&username&" target=_blank>"&userurl&""&username&"</a><br>"
MailBody = MailBody & "&nbsp;&nbsp;&nbsp;&nbsp;用户名："&username&"<br>&nbsp;&nbsp;&nbsp;&nbsp;密　码：您注册时的密码<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>"
%>
<!--#include file="../inc/mail.asp"-->
<%
end if
Response.write "<script>alert('已成功开通用户"&username&"的空间！');location.href='user_admin.asp?"&session("temp")&"'</script>"
rs.close
rshost2.close
end sub
sub error2(message)
Response.Write("<script>alert('"&message&"');history.back();</script>")
response.end
end sub
%>
</body>
</html>