📄 admin_user.asp
字号:
End sub
Sub SetUserMamdber(s,m)
Dim Rs
Set Rs= team.execute("Select GroupName,UserColor,UserImg,rank,Members From ["&IsForum&"UserGroup] Where ID="& Int(s))
If Rs.Eof Then
team.Error "用户权限表损坏，请重新导入。"
Else
team.Execute("Update ["&Isforum&"User] Set Levelname='"&Rs(0)&"||"&Rs(1)&"||"&Rs(2)&"||"&Rs(3)&"||0',Members='"&Rs(4)&"' Where ID="& Int(m))
End if
End Sub
Sub editgroups
Dim Gs,Value,i,m,Rs,u,UserInfo
If Uid = "" Or Not isNumeric(Uid) Then
SuccessMsg " 参数错误 "
Else
Set Rs = team.execute("Select UserName,UserGroupID,Posttopic,Postrevert,Deltopic,Goodtopic,Usermail,Userhome,Userface,UserCity,UserSex,Honor,Birthday,Sign,Degree,RegIP,Regtime,Landtime,UserInfo,Extcredits0,Extcredits1,Extcredits2,Extcredits3,Extcredits4,Extcredits5,Extcredits6,Extcredits7,Members From ["&Isforum&"User] Where ID="& Uid)
If Rs.Eof Then
SuccessMsg " 指定的用户不存在。 "
Else
UserInfo = Split(Rs(18),"|")
%>
<br>
<br>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?action=editgroupsok&uid=<%=UID%>">
<input type="hidden" value="<%=Rs(0)%>" name="olduser">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">用户所属组类别</td>
</tr>
<tr class="a4">
<td><table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
<tr class="a4">
<input type="hidden" name="oldgroup" value="<%=Rs(1)%>"> <%
Set Gs = team.execute("Select Max(ID) as ID,GroupName From ["&IsForum&"UserGroup] Group By GroupName")
If Gs.Eof or Gs.Bof Then
SuccessMsg " 用户权限表数据损坏,请手动导入新表! "
Else
u=0
Do While Not Gs.Eof
u = u+1
Response.write "<td><input type=""radio"" name=""mygroups"" value="""&Gs(0)&""""
If Rs(1) = Gs(0) Then Response.write " checked "
Response.write "> "&Gs(1)&" </td>"
If U= 5 Then
Echo "</tr><tr>"
U=0
End If
Gs.MoveNext
Loop
End If
Gs.Close:Set Gs=Nothing%>
</table></td>
</tr>
</table>
<BR>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">编辑用户 [ <%=Rs(0)%> ] </td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>用户名:</b><br>
<span class="a3">如不是特别需要，请不要修改用户名</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="usernamenew" value="<%=Rs(0)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>新密码:</b><br>
<span class="a3">如果不更改密码此处请留空</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="passwordnew" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>清除用户安全提问:</b><br>
<span class="a3">选择“是”将清除用户安全提问，该用户将不需要回答安全提问即可登录；选择“否”为不改变用户的安全提问设置</span></td>
<td bgcolor="#FFFFFF"><input type="radio" name="clearquestion" value="1">
是
<input type="radio" name="clearquestion" value="0" checked>
否 </td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>个人头衔:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="honor" value="<%=Rs(11)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>性别:</b></td>
<td bgcolor="#FFFFFF"><input type="radio" name="gendernew" value="1" <%If Rs(10)=1 Then%>checked<%End if%>>
男
<input type="radio" name="gendernew" value="2" <%If Rs(10)=2 Then%>checked<%End if%>>
女
<input type="radio" name="gendernew" value="0" <%If Rs(10)=0 Then%>checked<%End if%>>
保密</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>Email:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="emailnew" value="<%=Rs(6)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>发帖数:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="postsnew" value="<%=Rs(2)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>回帖数:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="postsre" value="<%=RS(3)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>精华帖数:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="digestpostsnew" value="<%=Rs(5)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>总在线时间(分钟):</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="totalnew" value="<%=Rs(14)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>注册 IP:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="regipnew" value="<%=Rs(15)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>注册时间:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="regdatenew" value="<%=Rs(16)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>上次访问:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="lastvisitnew" value="<%=Rs(17)%>">
</td>
</tr>
</table>
<br>
<br>
<%
' 0 1 2 3 4 5 6 7 8 9
'UserName,UserGroupID,Posttopic,Postrevert,Deltopic,Goodtopic,Usermail,Userhome,Userface,UserCity,
' 10 11 12 13 14 15 16 17
'UserSex,Honor,Birthday,Sign,Degree,RegIP,Regtime,Landtime
',Extcredits0,Extcredits1,Extcredits2,Extcredits3,Extcredits4,Extcredits5,Extcredits6,Extcredits7
'UserInfo 0.qq 1.icq 2.yahoo 3.msn 4.taobao 5.alipay
%>
<a name="用户资料"></a>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">用户资料</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>主页:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="sitenew" value="<%=Rs(7)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>QQ:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="qqnew" value="<%=UserInfo(0)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>ICQ:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="icqnew" value="<%=UserInfo(1)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>Yahoo:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="yahoonew" value="<%=UserInfo(2)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>MSN:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="msnnew" value="<%=UserInfo(3)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>淘宝:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="taobao" value="<%=UserInfo(4)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>支付宝:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="alibuy" value="<%=UserInfo(5)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>来自:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="locationnew" value="<%=Rs(9)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>生日:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="bdaynew" value="<%=Rs(12)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>头像:</b></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="avatarnew" value="<%=Rs(8)%>">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" valign="top"><b>签名:</b></td>
<td bgcolor="#FFFFFF"><textarea rows="5" name="signaturenew" cols="30" style="height:70;overflow-y:visible;"><%=Rs(13)%></textarea></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="searchsubmit" value="编辑" <%If Session("UserMember") = 2 and Rs(1) = 1 Then%>disabled<%end if%>>
</center>
</form>
<br>
<%
End if
Rs.close:Set Rs=Nothing
End if
End Sub
Sub members
Dim DelForm,ho,Rs,Rs1,UserName,LastSubject
If Request.Form("deleteid") = "" Then
SuccessMsg "你没有选定需要删除的用户ID"
Else
for each ho in Request.Form("deleteid")
UserName = team.execute("Select UserName from ["&Isforum&"User] Where ID="& ho)(0)
Set Rs = team.execute("Select ReList From ["&isforum&"Forum] Where UserName='"&UserName&"'")
Do While Not Rs.Eof
team.execute("Delete from ["&isforum & Rs(0) &"] Where UserName='"&UserName&"'")
Rs.MoveNext
Loop
Rs.close:Set Rs=Nothing
team.execute("Delete from ["&isforum&"Forum] Where UserName='"&UserName&"'")
team.execute("Delete from ["&isforum&"Message] Where author='"&UserName&"' or incept ='"&UserName&"'")
Set Rs = team.execute("Select ID From ["&isforum&"Bbsconfig] Where InStr(1,LCase(Board_Last),LCase('$@$"&UserName&"$@$'),0)<>0")
Do While Not Rs.Eof
LastSubject = team.Execute("Select Max(ID) from ["&IsForum&"forum] where deltopic=0 and Forumid="& Rs(0))(0)
Set Rs1=team.Execute("Select ID,topic,username,posttime from ["&IsForum&"forum] where deltopic=0 and id="& LastSubject )
If Not Rs1.eof then
team.execute("Update ["&IsForum&"bbsconfig] set Board_Last='<A href=Thread.asp?tid="&rs1(0)&" target=""_blank"">"&Cutstr(rs1(1),200)&"</a> →$@$"&TK_UserName&"$@$"&Now()&"' where id="&RS(0))
End If
Rs.MoveNext
Loop
team.execute("Delete from ["&isforum&"User] Where ID="&ho)
Cache.DelCache("BoardLists")
next
SuccessMsg " 指定的用户已经删除。"
End If
End Sub
Sub findmembers
Dim username,lookperm,Looks,findpages,usermail,regip,usersign,maxpost,maxlogin,regtime
Dim CountNum,Rs,PageSNum,i,NextSeach
Dim tmp,u,ExtCredits,ExtSort
PageSNum = Cid(Request.Form("findpages")) '查询结果分页
UserName = HtmlEncode(Request.Form("username"))
Lookperm = Trim(Replace(Request.form("lookperm")," ",""))
NextSeach = 0
If PageSNum = "" or Not isNumeric(PageSNum) Then PageSNum = 10
tmp = " Where "
If UserName<>"" Then
tmp = tmp & "UserName Like '%"&UserName&"%' "
NextSeach = 1
End If
If Lookperm<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Instr(Lookperm,",")>0 Then
Looks = Split(Lookperm,",")
For i=0 To Ubound(Looks)
If i = 0 Then
tmp = tmp & " InStr(1,LCase(LevelName),LCase('"&Looks(i)&"'),0)>0 "
Else
tmp = tmp & " or InStr(1,LCase(LevelName),LCase('"&Looks(i)&"'),0)>0 "
End If
Next
Else
tmp = tmp & " InStr(1,LCase(LevelName),LCase('"&Lookperm&"'),0)>0 "
End If
NextSeach = 1
End If
If IsValidEmail(Request.Form("usermail")) Then
If NextSeach = 1 Then tmp = tmp & " and "
tmp = tmp & " Usermail Like '%"&Request.Form("usermail")&"%' "
NextSeach = 1
End if
If Request.Form("regip")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
tmp = tmp & " RegIP Like '%"&Request.Form("regip")&"%' "
NextSeach = 1
End if
If Request.Form("usersign")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
tmp = tmp & " Sign Like '%"&Request.Form("usersign")&"%' "
NextSeach = 1
End if
If Request.Form("userlogin")="1" Then
If NextSeach = 1 Then tmp = tmp & " and "
If IsSqlDataBase=1 Then
tmp = tmp & " Datediff(d,LandTime, " & SqlNowString & ") =0 "
Else
tmp = tmp & " Datediff('d',LandTime, " & SqlNowString & ")=0"
End If
NextSeach = 1
End If
If Request.Form("newuserreg")="1" Then
If NextSeach = 1 Then tmp = tmp & " and "
If IsSqlDataBase=1 Then
tmp = tmp & " Datediff(d,RegTime, " & SqlNowString & ") =0 "
Else
tmp = tmp & " Datediff('d',RegTime, " & SqlNowString & ")=0"
End If
NextSeach = 1
End If
If Request.Form("maxpost")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("maxpost1") = 1 Then
tmp = tmp & " Posttopic+Postrevert > "&Request.Form("maxpost")&" "
Else
tmp = tmp & " Posttopic+Postrevert < "&Request.Form("maxpost")&" "
End if
NextSeach = 1
End if
If Request.Form("maxlogin")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("maxlogin1") = 1 Then
tmp = tmp & " Degree * 60 > "&Request.Form("maxlogin")&" "
Else
tmp = tmp & " Degree * 60 < "&Request.Form("maxlogin")&" "
End if
NextSeach = 1
End if
If Request.Form("regtime")<>"" Then
If NextSeach = 1 Then tmp = tmp & " and "
If Request.Form("regtime1") = 0 Then
If IsSqlDataBase=1 Then
tmp = tmp & " Datediff(d, RegTime, " & Request.Form("regtime") & ") > 0 "
Else
tmp = tmp & " Datediff('d', RegTime, " & Request.Form("regtime") & " ) > 0"
End If
ElseIf Request.Form("regtime1") = 1 Then
If IsSqlDataBase=1 Then
tmp = tmp & " Datediff(d, RegTime, " & Request.Form("regtime") & ") = 0 "
Else
tmp = tmp & " Datediff('d', RegTime, " & Request.Form("regtime") & " ) = 0"
End If
Else
If IsSqlDataBase=1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -