📄 admin_vipuser.asp
字号:
end if
end if
if request("title")<>"" then
if sqlstr="" then
sqlstr=" u.title like '%"&request("title")&"%'"
else
sqlstr=sqlstr & " and u.title like '%"&request("title")&"%'"
end if
end if
if request("sign")<>"" then
if sqlstr="" then
sqlstr=" u.sign like '%"&request("sign")&"%'"
else
sqlstr=sqlstr & " and u.sign like '%"&request("sign")&"%'"
end if
end if
if sqlstr="" then
response.write "<tr><td colspan=6 class=forumrow>请指定搜索参数！</td></tr>"
response.end
end if
sql="select top "&request("searchmax")&" u.vip,u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where "&sqlstr&" and u.vip>0 and u.vip<4 order by u.addDate desc"
case 10
sql="select u.vip,u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.usergroupid="&request("usergroupid")&" and u.vip>0 and u.vip<4 order by u.addDate desc"
case else
response.write "<tr><td colspan=6 class=forumrow>错误的参数。</td></tr>"
response.end
end select
'response.write sql
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=6 class=forumrow>没有找到相关记录。</td></tr>"
else
%>
<FORM METHOD=POST ACTION="?action=touser">
<tr align=center>
<td class=forumHeaderBackgroundAlternate><B>用户名</B></td>
<td class=forumHeaderBackgroundAlternate><B>VIP</B></td>
<td class=forumHeaderBackgroundAlternate><B>权限</B></td>
<td class=forumHeaderBackgroundAlternate><B>最后IP</B></td>
<td class=forumHeaderBackgroundAlternate><B>最后登陆</B></td>
<td class=forumHeaderBackgroundAlternate><B>操作</B></td>
</tr>
<%
rs.PageSize = Cint(Forum_Setting(11))
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
while (not rs.eof) and (not page_count = Cint(Forum_Setting(11)))
%>
<tr>
<td class=forumrow><a href="?action=modify&userid=<%=rs("userid")%>"><%=rs("username")%></a></td>
<td class=forumrow width=20% align=center><% =vipshow(rs("vip"))%></td>
<td class=forumrow width=18% align=center><a href="?action=UserPermission&userid=<%=rs("userid")%>&username=<%=rs("username")%>">编辑</a></td>
<td class=forumrow width=20% ><a href="admin_lockIP.asp?userip=<%=rs("UserLastIP")%>" title="点击锁定该用户IP"><%=rs("userlastip")%></a></td>
<td class=forumrow width=15% ><%if rs("lastlogin")<>"" and isdate(rs("lastlogin")) then%><%=Formatdatetime(rs("lastlogin"),2)%><%end if%></td>
<td class=forumrow align=center><input type='checkbox' name="userid" value="<%=rs("userid")%>" <%if rs("userGroupid")=1 then response.write "disabled"%>></td>
</tr>
<%
page_count = page_count + 1
rs.movenext
wend
Pcount=rs.PageCount
%>
<tr><td colspan=6 class=forumrow align=center>分页：
<%
if currentpage > 4 then
response.write "<a href=""?page=1&userSearch="&request("userSearch")&"&username="&request("username")&"&useremail="&request("useremail")&"&homepage="&request("homepage")&"&oicq="&request("oicq")&"&icq="&request("icq")&"&msn="&request("msn")&"&title="&request("title")&"&sign="&request("sign")&"&userclass="&request("userclass")&"&usergroups="&request("usergroups")&"&action="&request("action")&"&usergroupid="&request("usergroupid")&"&searchmax="&request("searchmax")&""">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " <font color=red>["&i&"]</font>"
else
response.write " <a href=""?page="&i&"&userSearch="&request("userSearch")&"&username="&request("username")&"&useremail="&request("useremail")&"&homepage="&request("homepage")&"&oicq="&request("oicq")&"&icq="&request("icq")&"&msn="&request("msn")&"&title="&request("title")&"&sign="&request("sign")&"&userclass="&request("userclass")&"&usergroups="&request("usergroups")&"&action="&request("action")&"&usergroupid="&request("usergroupid")&"&searchmax="&request("searchmax")&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href=""?page="&Pcount&"&userSearch="&request("userSearch")&"&username="&request("username")&"&useremail="&request("useremail")&"&homepage="&request("homepage")&"&oicq="&request("oicq")&"&icq="&request("icq")&"&msn="&request("msn")&"&title="&request("title")&"&sign="&request("sign")&"&userclass="&request("userclass")&"&usergroups="&request("usergroups")&"&action="&request("action")&"&usergroupid="&request("usergroupid")&"&searchmax="&request("searchmax")&""">["&Pcount&"]</a>"
end if
%>
</td></tr>
<tr><td colspan=5 class=forumrow align=center><B>请选择您需要进行的操作</B>：<br>
从VIP用户中删除<input type="radio" name="useraction" value=1> 删除并限制<input type="radio" name="useraction" value=2>
解除限制<input type="radio" name="useraction" value=3> 锁定VIP资格<input type="radio" name="useraction" value=4>
解除锁定<input type="radio" name="useraction" value=5 checked>
<br>
</td>
<td class=forumrow align=center>
<input type=checkbox value="on" name="chkall" onclick="CheckAll(this.form)">
</td>
</tr>
<tr><td colspan=6 class=forumrow align=center>
<input type=submit name=submit value="执行选定的操作" onclick="{if(confirm('确定执行选择的操作吗?')){this.document.recycle.submit();return true;}return false;}">
</td></tr>
</FORM>
<%
end if
rs.close
set rs=nothing
dim sqlvip,rsvip,sqlb,rsb,boarduser,updateinfo,rsu,sqlu
sqlvip="select * from [vip]"
set rsvip=conn.execute(sqlvip)
elseif request("action")="touser" then
response.write "<tr><th colspan=6 height=23 align=left>执行结果</th></tr>"
if request("useraction")="" then
response.write "<tr><td colspan=6 class=forumrow>请指定相关参数。</td></tr>"
founderr=true
end if
if request("userid")="" then
response.write "<tr><td colspan=6 class=forumrow>请选择相关用户。</td></tr>"
founderr=true
end if
if not founderr then
if request("useraction")=1 then
conn.execute("update [user] set vip=0 where userid in ("&replace(request("userid"),"'","")&")")
response.write "<tr><td colspan=6 class=forumrow>删除操作成功。</td></tr>"
elseif request("useraction")=2 then
conn.execute("update [user] set vip=2 where userid in ("&replace(request("userid"),"'","")&")")
response.write "<tr><td colspan=6 class=forumrow>删除并限制操作成功。</td></tr>"
elseif request("useraction")=3 then
conn.execute("update [user] set vip=0 where userid in ("&replace(request("userid"),"'","")&")")
response.write "<tr><td colspan=6 class=forumrow>解除限制操作成功。</td></tr>"
elseif request("useraction")=4 then
conn.execute("update [user] set vip=3 where userid in ("&replace(request("userid"),"'","")&")")
response.write "<tr><td colspan=6 class=forumrow>锁定操作成功。</td></tr>"
elseif request("useraction")=5 then
conn.execute("update [user] set vip=1 where userid in ("&replace(request("userid"),"'","")&")")
response.write "<tr><td colspan=6 class=forumrow>解除锁定操作成功。</td></tr>"
else
response.write "<tr><td colspan=6 class=forumrow>错误的参数。</td></tr>"
end if
end if
elseif request("action")="modify" then
dim realname,character,personal,country,province,city,shengxiao,blood,belief,occupation,marital, education,college,userphone,iaddress
response.write "<tr><th colspan=6 height=23 align=left>用户资料操作</th></tr>"
if not isnumeric(request("userid")) then
response.write "<tr><td colspan=6 class=forumrow>错误的用户参数。</td></tr>"
founderr=true
end if
if not founderr then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from [user] where userid="&request("userid")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=6 class=forumrow>没有找到相关用户。</td></tr>"
founderr=true
else
if rs("userinfo")<>"" then
userinfo=split(rs("userinfo"),"|||")
if ubound(userinfo)=14 then
realname=userinfo(0)
character=userinfo(1)
personal=userinfo(2)
country=userinfo(3)
province=userinfo(4)
city=userinfo(5)
shengxiao=userinfo(6)
blood=userinfo(7)
belief=userinfo(8)
occupation=userinfo(9)
marital=userinfo(10)
education=userinfo(11)
college=userinfo(12)
userphone=userinfo(13)
iaddress=userinfo(14)
else
realname=""
character=""
personal=""
country=""
province=""
city=""
shengxiao=""
blood=""
belief=""
occupation=""
marital=""
education=""
college=""
userphone=""
iaddress=""
end if
else
realname=""
character=""
personal=""
country=""
province=""
city=""
shengxiao=""
blood=""
belief=""
occupation=""
marital=""
education=""
college=""
userphone=""
iaddress=""
end if
%>
<FORM METHOD=POST ACTION="?action=saveuserinfo">
<tr>
<td width=20% class=forumrow valign=top>快捷操作选项</td>
<td width=40% class=forumrow colspan=2 valign=top>
①<a href="mailto:<%=rs("useremail")%>">给 <%=rs("username")%> 发送电子邮件</a><BR>
②<a href="messanger.asp?action=new&touser=<%=rs("username")%>" target=_blank>给 <%=rs("username")%> 发送一条短信</a><BR>
③查找 <%=rs("username")%> 发表的帖子<BR>
④<a href="dispuser.asp?id=<%=rs("userid")%>" target=_blank>预览 <%=rs("username")%> 的显示资料</a>
</td>
<td width=40% class=forumrow colspan=3 valign=top>
⑤<a href="?action=UserPermission&userid=<%=rs("userid")%>&username=<%=rs("username")%>">编辑 <%=rs("username")%> 的论坛权限</a><BR>
⑥查看 <%=rs("username")%> 的最后来源<BR>
⑦<a href="?action=touser&useraction=1&userid=<%=rs("userid")%>">从用户列表删除 <%=rs("username")%></a><BR>
</td>
</tr>
<tr><th colspan=6 height=23 align=left>用户基本资料修改－－<%=rs("username")%></th></tr>
<tr>
<td width=20% class=forumrow>用户组</td>
<td width=80% class=forumrow colspan=5>
<select size=1 name="usergroups">
<%
set trs=conn.execute("select usergroupid,title from usergroups order by usergroupid")
do while not trs.eof
response.write "<option value="&trs(0)
if rs("usergroupid")=trs(0) then response.write " selected "
response.write ">"&trs(1)&"</option>"
trs.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -