📄 admin_user.asp
字号:
tmp = tmp & " Datediff(d, RegTime, " & Request.Form("regtime") & ") < 0 "
Else
tmp = tmp & " Datediff('d',RegTime, " & Request.Form("regtime") & " ) < 0"
End If
End if
NextSeach = 1
End if
If Request.Form("MyCred0")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("Nums0") = 1 Then
tmp = tmp & " Extcredits0 > "&Request.Form("MyCred0")&" "
Else
tmp = tmp & " Extcredits0 < "&Request.Form("MyCred0")&" "
End if
NextSeach = 1
End if
If Request.Form("MyCred1")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("Nums1") = 1 Then
tmp = tmp & " Extcredits1 > "&Request.Form("MyCred1")&" "
Else
tmp = tmp & " Extcredits1 < "&Request.Form("MyCred1")&" "
End if
NextSeach = 1
End if
If Request.Form("MyCred2")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("Nums2") = 1 Then
tmp = tmp & " Extcredits2 > "&Request.Form("MyCred2")&" "
Else
tmp = tmp & " Extcredits2 < "&Request.Form("MyCred2")&" "
End if
NextSeach = 1
End if
If tmp = " Where " Then tmp = ""
Dim TopUser
Set Rs=team.Execute("Select top "&PageSNum&" ID,UserName,UserGroupID,Levelname,Posttopic,Postrevert,Regtime,Landtime,Extcredits0,Extcredits1,Extcredits2,Extcredits3,Extcredits4,Extcredits5,Extcredits6,Extcredits7,UserMail From ["&Isforum&"User] "&tmp&" Order By ID Asc")
TopUser = team.Execute("Select Count(ID) From ["&Isforum&"User] "&tmp&" ")(0)
If Request.Form("searchsubmit") = "搜索用户" Then
Echo "<body Style=""background-color:#8C8C8C"" text=""#000000"" leftmargin=""10"" topmargin=""10"">"
Echo "<table cellspacing=""1"" cellpadding=""4"" width=""95%"" align=""center"" class=""a2"">"
Echo " <form method=""post"" action=""?action=members"">"
Echo "<tr align=""center"" class=""a1"">"
Echo " <td width=""48""><input type=""checkbox"" name=""chkall"" onclick=""checkall(this.form, 'delete')"">删?</td>"
Echo " <td>用户名</td>"
Echo " <td>发帖数</td><td>用户组</td><td>注册时间</td><td>登陆时间</td><td>编辑</td></tr>"
If Rs.Eof Then
Echo "<tr align=""center"" class=""a4""><td Colspan=""7""> 对不起，没有找到符合条件的用户。</td></tr>"
End if
Do While Not Rs.Eof
Echo " <tr align=""center"" class=""a4"">"
Echo " <td><input type=""checkbox"" name=""deleteid"" value="&RS(0)&" "
If Rs(2)>88 Then Echo "disabled"
Echo " ></td>"
Echo " <td><a href=""../Profile.asp?username="&RS(1)&""" target=""_blank"">"&Rs(1)&"</a></td>"
Echo " <td>"&Rs(4)+Cid(Rs(5))&"</td>"
Echo " <td>"
If Rs(2)>=77 Then Echo "<b>"
Echo Split(Rs(3),"||")(0)
If Rs(2)>=77 Then Echo "</b>"
Echo " </td>"
Echo " <td>"&RS(6)&"</td>"
Echo " <td>"&RS(7)&"</td>"
Echo " <td><a href=""?action=editgroups&uid="&RS(0)&""">[用户属性]</a> <a href=""?action=editcredits&uid="&RS(0)&""">[积分]</a> <a href=""?action=editmedals&uid="&RS(0)&""">[勋章]</a> </td>"
Echo " </tr>"
Rs.MoveNext
Loop
Echo "</table><br><center> <input type=""submit"" name=""searchsubmit"" value=""删除用户""></center></form>"
End If
If Request.Form("newslettersubmit") = "论坛通知" Then
Echo " <BR><BR><form method=""post"" action=""?action=annonces"">"
Do While Not Rs.Eof
Echo " <input type=""hidden"" name=""msgid"" value="""&RS(0)&""">"
Rs.MoveNext
Loop
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1"><td colspan="9">符合条件的会员数: <%=TopUser%></td></tr>
<tr>
<td bgcolor="#F8F8F8">标题:</td>
<td bgcolor="#FFFFFF"><input type="text" name="subject" size="80" value=></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" valign="top">内容:</td><td bgcolor="#FFFFFF">
<textarea cols="80" rows="10" name="message"></textarea></td></tr>
<tr>
<td bgcolor="#F8F8F8">发送方式:</td>
<td bgcolor="#FFFFFF">
<input type="radio" value="email" name="sendvia"> Email<input type="radio" value="pm" checked name="sendvia"> 短消息</td>
</tr>
</table><br>
<center><input type="submit" name="sendsubmit" value="提 交"></center></form><br><br>
<%
End If
If Request.Form("creditsubmit") = "积分奖惩" Then
Echo " <BR><BR><form method=""post"" action=""?action=edituserexc"">"
Do While Not Rs.Eof
Echo " <input type=""hidden"" name=""msgid"" value="""&RS(0)&""">"
Rs.MoveNext
Loop
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="10">符合条件的会员数: <%=TopUser%></td>
</tr>
<tr class="a3" align="center">
<td width="14%">用户详细积分</td>
<%
ExtCredits= Split(team.Club_Class(21),"|")
For U=0 to Ubound(ExtCredits)
ExtSort=Split(ExtCredits(U),",")
Echo " <td bgcolor=""#F8F8F8""> "
If ExtSort(3)="1" Then
Echo ExtSort(0)
Else
Echo " ExtCredits"&U&" "
End if
Echo " </td> "
Next
Echo " </tr><tr align=""center"" class=""a4""><td bgcolor=""#F8F8F8""> 奖惩数值 </td>"
For U=0 to Ubound(ExtCredits)
ExtSort=Split(ExtCredits(U),",")
Echo " <td bgcolor=""#F8F8F8""> <input name=""extcreditsnew"&u&""" type=""text"" size=""3"" "
If ExtSort(3)="1" Then
Echo " value=""0"" "
Else
Echo " value=""N/A"" disabled "
End if
Echo " ></td> "
Next %>
</tr>
</table>
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1"><td colspan="9"><input class="a1" type="checkbox" name="sendcreditsletter" value="1">发送积分变更通知</td></tr>
<tr>
<td bgcolor="#F8F8F8">标题:</td>
<td bgcolor="#FFFFFF"><input type="text" name="subject" size="80" value=></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" valign="top">内容:</td><td bgcolor="#FFFFFF">
<textarea cols="80" rows="10" name="message"></textarea></td></tr>
<tr>
<td bgcolor="#F8F8F8">发送方式:</td>
<td bgcolor="#FFFFFF">
<input type="radio" value="email" name="sendvia"> Email<input type="radio" value="pm" checked name="sendvia"> 短消息</td>
</tr>
</table><br>
<center><input type="submit" name="creditsubmit" value="提 交"></center></form><%
End If
Rs.Close:Set Rs=Nothing
End Sub
Sub edituserexc
If Request.Form("msgid") = "" Then
SuccessMsg " 不存在需要发送的用户。"
Else
Dim Exters,i,ho
For i = 0 to 7
If i = 0 Then
Exters = "Extcredits"&i&"="&Cid(Request.Form("extcreditsnew"&i&""))&""
Else
Exters = Exters & ",Extcredits"&i&"="&Cid(Request.Form("extcreditsnew"&i&""))&""
End if
Next
for each ho in Request.Form("msgid")
team.execute("Update ["&Isforum&"User] Set "&Exters&" Where ID="& ho)
next
If Request.Form("sendcreditsletter") = 1 Then
If request.Form("sendvia") = "pm" Then
for each ho in Request.Form("msgid")
team.execute("Update ["&isforum&"User] Set Newmessage=Newmessage+1 Where ID="& ho)
team.Execute( "insert into ["&Isforum&"Message] (author,incept,content,Sendtime,MsgTopic) values ('系统消息','"&team.Execute("Select UserName From ["&isforum&"User] Where ID="& ho)(0)&"','"&Request.Form("message")&"',"&SqlNowString&",'"&Request.Form("subject")&"')" )
next
Else
for each ho in Request.Form("msgid")
If IsValidEmail(team.Execute("Select UserMail From ["&isforum&"User] Where ID="& ho)(0)) Then
Call Emailto ( team.Execute("Select UserMail From ["&isforum&"User] Where ID="& ho)(0), Request.Form("subject") , Request.Form("message"))
End if
next
End if
End if
End if
SuccessMsg " 积分设置完成，请等待系统自动返回到 <a href=Admin_User.asp>编辑用户 </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_User.asp> 。"
End Sub
Sub annonces
Dim MsgName,ho,msgmail
If Request.Form("msgid") = "" Then
SuccessMsg " 不存在需要发送的用户。"
Else
If Len(Request.Form("message"))<5 or Request.Form("subject") = "" Then
SuccessMsg " 内容或标题不能为空 。"
Else
If request.Form("sendvia") = "pm" Then
for each ho in Request.Form("msgid")
team.execute("Update ["&isforum&"User] Set Newmessage=Newmessage+1 Where ID="&ho)
team.Execute( "insert into ["&Isforum&"Message] (author,incept,content,Sendtime,MsgTopic) values ('系统消息','"&team.Execute("Select UserName From ["&isforum&"User] Where ID="& ho)(0)&"','"&Request.Form("message")&"',"&SqlNowString&",'"&Request.Form("subject")&"')" )
next
Else
for each ho in Request.Form("msgid")
If IsValidEmail(team.Execute("Select UserMail From ["&isforum&"User] Where ID="& ho)(0)) Then
Call Emailto ( team.Execute("Select UserMail From ["&isforum&"User] Where ID="& ho)(0), Request.Form("subject") , Request.Form("message"))
End if
next
End if
End if
SuccessMsg " 信息已发送成功，请等待系统自动返回到 <a href=Admin_User.asp>编辑用户 </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_User.asp> 。"
End If
End Sub
Sub setuserok
Dim source1,source2,source3,target,UserTrg,rs,MsgTrg,MsgTrg1
Source1 = HtmlEncode(Trim(Request.Form("source1")))
Source2 = HtmlEncode(Trim(Request.Form("source2")))
Source3 = HtmlEncode(Trim(Request.Form("source3")))
Target = HtmlEncode(Trim(Request.Form("target")))
If Source1 & Source2 & Source3 &"" = "" Then
SuccessMsg "原用户名栏至少需要一行数据，不能全部为空。"
ElseIf Source1&"" = "" and Source2 & Source3 &"" <>"" Then
SuccessMsg "用户名输入请从 <FONT COLOR=""red""><B>原用户名 1</B></FONT> 栏开始。"
Else
If Source1 & ""<>"" Then
If team.execute("Select * from ["&Isforum&"User] Where UserName='"&Source1&"'").Eof Then
SuccessMsg " 系统不存在名为"&Source1&"的用户名 。"
End If
End If
If Source2 & ""<>"" Then
If team.execute("Select * from ["&Isforum&"User] Where UserName='"&Source2&"'").Eof Then
SuccessMsg " 系统不存在名为"&Source2&"的用户名 。"
End if
End If
If Source3 & ""<>"" Then
If team.execute("Select * from ["&Isforum&"User] Where UserName='"&Source3&"'").Eof Then
SuccessMsg " 系统不存在名为"&Source3&"的用户名 。"
End If
End If
UserTrg = " UserName='"&Source1&"' "
MsgTrg = " author = '"&Source1&"' "
MsgTrg1 = " incept = '"&Source1&"' "
If Source2&"" <>"" Then
UserTrg = UserTrg & " or UserName='"&Source2&"' "
MsgTrg = MsgTrg & " or author = '"&Source2&"' "
MsgTrg1 = MsgTrg1 & " or incept = '"&Source2&"' "
End If
If Source3&"" <>"" Then
UserTrg = UserTrg & " or UserName='"&Source3&"' "
MsgTrg = MsgTrg & " or author = '"&Source3&"' "
MsgTrg1 = MsgTrg1 & " or incept = '"&Source3&"' "
End If
Dim Uppost,UpRepost,GoodPost,Extcredits0,Extcredits1,Extcredits2,Extcredits3,Extcredits4,Extcredits5,Extcredits6,Extcredits7
Uppost=team.execute("Select Sum(Posttopic) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
UpRepost=team.execute("Select Sum(Postrevert) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits0=team.execute("Select Sum(Extcredits0) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits1=team.execute("Select Sum(Extcredits1) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits2=team.execute("Select Sum(Extcredits2) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits3=team.execute("Select Sum(Extcredits3) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits4=team.execute("Select Sum(Extcredits4) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits5=team.execute("Select Sum(Extcredits5) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits6=team.execute("Select Sum(Extcredits6) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Extcredits7=team.execute("Select Sum(Extcredits7) From ["&Isforum&"User] Where "&UserTrg&" ")(0)
Team.Execute("Update ["&Isforum&"User] Set Posttopic=Posttopic+"&Cid(Uppost)&",Postrevert=Postrevert+"&Cid(UpRepost)&",Goodtopic=Goodtopic+"&Cid(GoodPost)&",Extcredits0=Extcredits0+"&Cid(Extcredits0)&",Extcredits1=Extcredits1+"&Cid(Extcredits1)&",Extcredits2=Extcredits2+"&Cid(Extcredits2)&",Extcredits3=Extcredits3+"&Cid(Extcredits3)&",Extcredits4=Extcredits4+"&Cid(Extcredits4)&",Extcredits5=Extcredits5+"&Cid(Extcredits5)&",Extcredits6=Extcredits6+"&Cid(Extcredits6)&",Extcredits7=Extcredits7+"&Cid(Extcredits7)&" Where UserName='"&Target&"'")
Team.Execute("Update ["&Isforum&"Forum] Set UserName='"&Target&"' Where "&UserTrg&" ")
Set RS = team.execute("Select TableName from TableList ")
If Rs.Eof Then
Team.Execute("Update ["&Isforum&"Reforum] Set UserName='"&Target&"' Where "&UserTrg&" ")
Else
Do While Not Rs.Eof
Team.Execute("Update ["&Isforum&""&RS(0)&"] Set UserName='"&Target&"' Where "&UserTrg&" ")
Rs.Movenext
Loop
End If
Rs.Close:Set Rs=nothing
Team.Execute("Update ["&Isforum&"message] Set author='"&Target&"' Where "&MsgTrg&" ")
Team.Execute("Update ["&Isforum&"message] Set incept='"&Target&"' Where "&MsgTrg1&" ")
Team.Execute("Update ["&Isforum&"upfile] Set UserName='"&Target&"' Where "&UserTrg&" ")
If Trim(Source1) = TK_UserName or Trim(Source2) = TK_UserName or Trim(Source3) = TK_UserName Then
Response.Cookies(Forum_sn)("username")= Target
End If
'删除原用户
Team.Execute("Delete From ["&Isforum&"User] Where "&UserTrg&" ")
End If
SuccessMsg " 用户何并成功，原用户的主贴，积分，已全部转入目标用户，同时原用户已被删除 。"
End Sub
Sub Setuser%>
<br>
<br>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?action=setuserok">
<table cellspacing="1" cellpadding="4" width="85%" align="center" class="a2">
<tr class="a1">
<td colspan="2">合并用户 - 原用户的帖子、积分全部转入目标用户，同时删除原用户</td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">原用户名 1:</td>
<td bgcolor="#FFFFFF" width="60%"><input type="text" name="source1" size="20"></td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">原用户名 2:</td>
<td bgcolor="#FFFFFF" width="60%"><input type="text" name="source2" size="20"></td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">原用户名 3:</td>
<td bgcolor="#FFFFFF" width="60%"><input type="text" name="source3" size="20"></td>
</tr>
<tr>
<td colspan="2" class="a4" height="2"></td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">目标用户名:</td>
<td bgcolor="#FFFFFF" width="60%"><input type="text" name="target" size="20"></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="mergesubmit" value="提 交">
</center>
</form>
<br>
<br>
<%
End Sub
Sub adduserok
Dim ExtCredits
Dim newusername,newpassword,newemail,emailnotify,CheckStr,i
NewUserName = HtmlEncode(Trim(Request.Form("newusername")))
Newpassword = team.Checkstr(Trim(Request.Form("newpassword")))
Newemail = Trim(Request.Form("newemail"))
If NewUserName = "" Or IsNull(NewUserName) Then
SuccessMsg "用户名不能为空"
End If
If Newpassword = "" Or IsNull(Newpassword) Then
SuccessMsg "密码不能为空"
End If
If Not IsValidEmail(Newemail) Then
SuccessMsg "邮件格式错误 !"
End If
CheckStr=Array("=","%",chr(32),"?","&",";",",","'",",",chr(34),chr(9),"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -