📄 admin_userlist.asp
字号:
rs.open sql,conn,1,1
call userlist()
elseif request.QueryString("hx66")="news" then
Url_Add=Url_Add&"hx66=news&"
sql="select * from [User] order by userid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
call userlist()
elseif request.QueryString("hx66")="time" then
Url_Add=Url_Add&"hx66=time&"
sql="select * from [User] order by LastLoginTime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
call userlist()
elseif request.QueryString("hx66")="points" then
Url_Add=Url_Add&"hx66=points&"
sql="select * from [User] order by points desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
call userlist()
elseif request.QueryString("hx66")="" then
dim keyword,hx66
keyword=Trim(Request("keyword"))
hx66=Trim(Request("hx66"))
set rs=server.createobject("adodb.recordset")
if not isnull(keyword) and keyword<>"" then
Url_Add=Url_Add&"hx66="&hx66&"&keyword="&keyword&"&"
sql="select * from [User]"
rs.filter = ""&hx66&" like '%"&keyword&"%'"
else
sql="select * from [User] order by LoginTimes desc"
end if
rs.open sql,conn,1,1
call userlist()
end if
sub userlist()
%>
<SCRIPT LANGUAGE=javascript>
//实现反向选择
<!--
function SelectAll() {
for (var i=0;i<document.selform.selUserID.length;i++) {
var e=document.selform.selUserID[i];
e.checked=!e.checked;
}
}
//-->
</script>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td width="100%" height="23" colspan="13">
<a href="?"><font color=#FFFFFF>会员列表↓</font></a>(按登陆次数排列) <a href="?hx66=uSearch"><font color=#FFFFFF><B>·</B>会员搜索</font></a> <a href="?hx66=upoints"><font color=#FFFFFF><B>·</B>积分管理</font></a></td>
</tr>
<tr class=Hxcmsds>
<td width="100%" height="30" colspan="13" align="center">
<a href="?">按登陆数</a> <a href="?hx66=time">按登陆时间</a> <a href="?hx66=news">按新注册</a> <a href="?hx66=points">按高积分</a> <a href="?hx66=users">普通会员</a> <a href="?hx66=vips">VIP会员</a> <a href="?hx66=ulock">正常的会员</a> <a href="?hx66=vlock">锁定的会员</a> <a href="?hx66=plock">待审的会员</a></td>
</tr>
<tr align="center" class=Hxcmsqs>
<td width="5%">选择</td>
<td width="15%" height="23">用户名</td>
<td width="12%">等级</td>
<td width="5%">性别</td>
<td width="13%">注册日期</td>
<td width="5%">登录数</td>
<td width="5%">E-mail</td>
<td width="5%">主页</td>
<td width="5%">QQ</td>
<td width="13%">最后登录时间</td>
<td colspan="2">操作</td>
<td width="5%">状态</td>
</tr>
<%
if rs.eof and rs.bof then
Response.Write("<tr align=""center""><td class=Hxcmsds colspan=13>当前没有会员！</td></tr>")
Else
Dim u_Nums,MultiPages,i
rs.PageSize=adflperpage
rs.AbsolutePage=CurPage
u_Nums=rs.RecordCount
MultiPages="<tr><td class=Hxcmsqs colspan=""13"" align=""center"">共有会员："&u_Nums&"个。 "&MultiPage(u_Nums,adflperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=adflperpage
%>
<form name="selform" method="post" action="?hx66=checkinfo">
<tr align="center" class=Hxcmsds>
<td align="center"><input type="checkbox" name="selUserID" id="selUserID" value="<%=rs("UserID")%>"></td>
<td height="21"><a href="#" Title="ID号：<%=rs("UserID")%>
最后登录IP：<%=rs("LastLoginIP")%>"><%=rs("UserName")%></td>
<td><%if rs("UserGrade")=1 then%><font color=red>(vip)</font><%else%>(普)<%end if%></td>
<td><%=rs("sex")%></td>
<td><%=rs("RegDate")%></td>
<td><%=rs("LoginTimes")%></td>
<td><a href="mailto:<%=rs("email")%>"><img src="img/mail.gif" width="11" height="11" border="0" alt="<%=rs("username")%>的E-mail是<%=rs("email")%>"></a></td>
<td><a href="<%=rs("Homepage")%>"><img src="img/web.gif" width="11" height="11" border="0" alt="<%=rs("username")%>的主页是<%=rs("Homepage")%>"></a></td>
<td><a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rs("QQ")%>" target="_blank"><img src="img/qq.gif" width="16" height="16" border="0" alt="<%=rs("username")%>的QQ号码是<%=rs("QQ")%>"></a></td>
<td><%=rs("LastLoginTime")%></td>
<td width="36"><a href="?hx66=deluser&id=<%=rs("userid")%>">删除</a></td>
<td width="36"><a href="?hx66=adminedit&id=<%=rs("userid")%>">修改</a></td>
<td width="36"><%if rs("userlock")=0 then%>正常<%elseif rs("userlock")=1 then%><font color=red>锁定</font><%else%><font color=green>待审</font><%end if%></td>
</tr>
<%i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr class=Hxcmsds>
<td colspan="13" height="30">
本页全选：<input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"><BR><BR>
<input onClick="{if(confirm('确定删除选定的用户吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=会员删除 name=action class="button">
<input onClick="{if(confirm('确定激活选定的用户吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=会员激活 name=action class="button">
<input onClick="{if(confirm('确定锁定选定的用户吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=会员锁定 name=action class="button">
<input onClick="{if(confirm('确定用户为普通用户吗?')){this.document.selform.submit();return true;}return false;}" type=submit value=设为普通 name=action class="button">
<input onClick="{if(confirm('确定用户为VIP用户吗?' )){this.document.selform.submit();return true;}return false;}" type=submit value=设为VIP name=action class="button">
</td>
</tr>
</form>
<%
Response.Write(MultiPages)
Response.Write("</table>")
end sub
sub Modifyinfo()
userid=clng(request.QueryString("id"))
sql="select * from [user] where userid="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="2">修改用户资料</td>
</tr>
<form name="form2" method="post" action="?hx66=Modifyinfo&userid=<%=userid%>">
<tr class=Hxcmsds>
<td width="95">用 户 名:</td>
<td><%=rs("username")%></span> </td>
</tr>
<tr class=Hxcmsds>
<td> 密 码:</td>
<td><input type="password" name="password" size=30 value="<%=rs("password")%>">
<input type=hidden name="pswpassword" value="<%=rs("password")%>">
</tr>
<tr class=Hxcmsds>
<td>新密码确认:</td>
<td><input type="password" name="psw" size="30" value="" size=20 maxlength=13> 不修改密码请留空</td>
</tr>
<tr class=Hxcmsds>
<td>密码提示问题:</td>
<td><input name="Question" type="text" size="30" id="Question2" value="<%=rs("Question")%>"></td>
</tr>
<tr class=Hxcmsds>
<td>密码提示答案:</td>
<td><input type=text name="answer" size=20 value="<%=rs("answer")%>">
<input type=hidden name="oldanswer" value="<%=rs("answer")%>">系统对答案加了密，如要修改可直接填写。</span></td>
</tr>
<tr class=Hxcmsds>
<td> E-mail:</td>
<td><input name="Email" type="text" size="30" id="Email" value="<%=rs("Email")%>"></td>
</tr>
<tr class=Hxcmsds>
<td> 性 别:</td>
<td><input type="radio" name="sex" value="男" <%if rs("sex")="男" then response.Write"checked" end if%>>
男
<input name="sex" type="radio" value="女" <%if rs("sex")="女" then response.Write"checked" end if%>>
女</td>
</tr>
<tr class=Hxcmsds>
<td> 个人主页:</td>
<td><input name="Homepage" type="text" size="30" id="Homepage2" value="<%=rs("Homepage")%>"></td>
</tr>
<tr class=Hxcmsds>
<td> QQ:</td>
<td><input name="QQ" type="text" size="30" id="QQ2" value="<%=rs("QQ")%>"></td>
</tr>
<tr class=Hxcmsds>
<td>用户积分:</td>
<td><input name="points" type="text" size="30" id="points2" value="<%=rs("points")%>"></td>
</tr>
<tr class=Hxcmsds>
<td>VIP开通日期:</td>
<td><input name="VipinDate" type="text" size="30" id="VipinDate" value="<%=rs("VipinDate")%>"> 日期格式：2005-5-15</td>
</tr>
<tr class=Hxcmsds>
<td>VIP结束日期:</td>
<td><input name="VipendDate" type="text" size="30" id="VipendDate" value="<%=rs("VipendDate")%>"> 日期格式：2005-5-15</td>
</tr>
<tr class=Hxcmsds>
<td>用户头像:</td>
<td><input name="UserPhoto" type="text" size="30" id="UserPhoto2" value="<%=rs("UserPhoto")%>"></td>
</tr>
<tr class=Hxcmsds>
<td>用户签名:</td>
<td><textarea name="UserSign" cols="50" rows="6" id="UserSign2"><%=rs("UserSign")%></textarea>
</td>
</tr>
<tr align="center" class=Hxcmsqs>
<td colspan="2"><input type="submit" name="Submit" value=" 修改 " class="button">
<input type="reset" name="Submit2" value=" 重填 " class="button"></td>
</tr></form>
</table>
<%
rs.close
set rs=nothing
end sub
end if
'****************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -