📄 admin_user.asp
字号:
SQL = rs.GetRows(MaxPerPage)
rs.Close:set rs=Nothing
ShowContent
end if
end if
End Sub
Sub ShowContent()
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="myform" method="Post" action="Admin_User.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<tr><td>
<table width="95%" style="MARGIN-TOP: 3px" border="0" align="center" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" class="Border">
<tr bgcolor="F4F4EA">
<td width="30" align="center"><strong>选中</strong></td>
<td width="30" align="center"><strong>ID</strong></td>
<td width="80" height="25" align="center"><strong> 用户名</strong></td>
<td height="22" align="center"><strong>所属用户组</strong></td>
<td align="center"><strong>剩余点数/天数</strong></td>
<td height="22" align="center" bgcolor="F4F4EA"><strong>最后登录IP</strong></td>
<td align="center"><strong>最后登录时间</strong></td>
<td width="60" height="22" align="center"><strong>登录次数</strong></td>
<td width="40" height="22" align="center"><strong> 状态</strong></td>
<td width="120" height="22" align="center"><strong> 操作</strong></td>
</tr>
<%
For i=0 To Ubound(SQL,2)
%>
<tr <tr height="25" bgcolor="#ffffff" onMouseOver="this.style.background='#EEF8FE'" onMouseOut="this.style.background='#FFFFFF'">
<td width="30" align="center"><input name="UserID" type="checkbox" onClick="unselectall()" id="UserID" value="<%=SQL(0,i)%>"></td>
<td width="30" align="center"><%=SQL(0,i)%></td>
<td width="80" align="center"><%
Response.Write "<a href='Admin_User.asp?Action=Modify&UserID=" & SQL(0,i) & "'>" & SQL(1,i) & "</a>"
%>
</td>
<td align="center"><font color=blue><%=KSCMS.GetUserGroupName(SQL(2,i))%></font></td>
<td align="center">
<%
if SQL(3,i)=1 then
if SQL(4,i)<=0 then
Response.Write "<font color=#ff6600>" & SQL(4,i) & "</font> 点"
else
if SQL(4,i)<=10 then
Response.Write "<font color=blue>" & SQL(4,i) & "</font> 点"
else
Response.Write SQL(4,i) & " 点"
end if
end if
elseif SQL(3,i)=2 then
ValidDays=SQL(10,i)
tmpDays = ValidDays-DateDiff("D",SQL(5,i),now())
if tmpDays<=10 then
Response.Write "<font color=#ff0033>" & tmpDays & "</font> 天"
else
Response.Write "<font color=#0000ff>" & tmpDays & "</font> 天"
end if
else
response.write "<font color=red>无限期</font>"
end if
%></td>
<td align="center"> <%
if SQL(6,i)<>"" then
Response.Write SQL(6,i)
else
Response.Write " "
end if%> </td>
<td align="center"> <%=SQL(7,i)%> </td>
<td width="60" align="center"><%=SQL(8,i)%> </td>
<td width="40" align="center"><%
if SQL(9,i)<>0 then
Response.Write "<font color=#ff6600>已锁定</font>"
else
Response.Write "正常"
end if%></td>
<td width="120" align="center"><%
Response.Write "<a href='Admin_User.asp?Action=Modify&UserID=" & SQL(0,i) & "'>修改</a> "
if SQL(2,i)<>1 then '管理员判断
if SQL(9,i)=0 then
Response.Write "<a href='Admin_User.asp?Action=Lock&UserID=" & SQL(0,i) & "'>锁定</a> "
else
Response.Write "<a href='Admin_User.asp?Action=UnLock&UserID=" & SQL(0,i) & "'>解锁</a> "
end if
Response.Write "<a href='Admin_User.asp?Action=Del&UserID=" & SQL(0,i) & "' onClick='return confirm(""确定要删除此用户吗？"");'>删除</a> "
Response.Write "<a href='Admin_User.asp?Action=AddMoney&UserID=" & SQL(0,i) & "'>续费</a>"
end if
%> </td>
</tr>
<%Next%>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td width="200" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有用户</td>
<td> <strong>操作：</strong>
<input name="Action" type="radio" value="Del" checked onClick="document.myform.GroupID.disabled=true">删除
<input name="Action" type="radio" value="Lock" onClick="document.myform.GroupID.disabled=true">锁定
<input name="Action" type="radio" value="UnLock" onClick="document.myform.GroupID.disabled=true">解锁
<input name="Action" type="radio" value="Move" onClick="document.myform.GroupID.disabled=false">移动到
<select name="GroupID" id="GroupID" disabled>
<%=KSCMS.GetUserGroup_Option(3)%>
</select>
<input type="submit" name="Submit" value=" 执 行 " > </td>
</tr>
</table>
</td>
</tr></form></table>
<table class=border align="center" border=0 cellspacing=1 cellpadding=0>
<tr valign=middle class=tdbg>
<td>
<%
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, strFileName, True, "个用户", CurrentPage, "UserSearch=" & UserSearch)
%>
</td></tr></table>
<%
End Sub
Sub ShowSearch()
%>
<br>
<form name="form2" method="post" action="Admin_User.asp">
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="border">
<tr Class="title">
<td height="25" colspan="2" align="center" bgcolor="F4F4EA"><strong>高级查询</strong></td>
</tr>
<tr>
<td width="20%" height="25" bgcolor="#FFFFFF">注意事项</td>
<td width="80%" bgcolor="#FFFFFF">在记录很多的情况下搜索条件越多查询越慢，请尽量减少查询条件；最多显示记录数也不宜选择过大</td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF">最多查询记录数</td>
<td width="80%" bgcolor="#FFFFFF"><input size="45" name="searchMax" type="text" value="100"></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF">用户ID</td>
<td width="80%" bgcolor="#FFFFFF"><input size="45" name="userid" type="text"></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF">用户名</td>
<td width="80%" bgcolor="#FFFFFF"><input size="45" name="username" type="text"> <input type="checkbox" name="usernamechk" value="yes" checked>用户名完整匹配</td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF">用户组</td>
<td width="80%" bgcolor="#FFFFFF">
<select size="1" name="GroupID">
<option value="0" selected>任意</option>
<%=KSCMS.GetUserGroup_Option(0)%>
</select>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF">Email包含</td>
<td width="80%" bgcolor="#FFFFFF"><input size="45" name="Email" type=text></td>
</tr>
</table>
<table width="95%" style="margin-top:2px" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="border">
<!--特殊搜索-->
<tr class="title">
<td height="23" colspan="2" align="left" bgcolor="#FFFFFF">特殊查询 （注意：
<多于> 或 <少于> 已默认包含 <等于>；条件留空则不使用此条件 ）</td>
</tr>
<tr>
<td width="50%" bgcolor="#FFFFFF">登录次数:
<input type=radio value=more name="loginR" checked ID="Radio1"> 多于 <input type=radio value=less name="loginR" ID="Radio2"> 少于 <input size=5 name="loginT" type=text ID="Text1"> 次 </td>
<td width="50%" bgcolor="#FFFFFF">消失天数:
<input type=radio value=more name="vanishR" checked ID="Radio3"> 多于 <input type=radio value=less name="vanishR" ID="Radio4"> 少于 <input size=5 name="vanishT" type=text ID="Text2"> 天 </td>
</tr>
<tr>
<td width="50%" bgcolor="#FFFFFF">注册天数:
<input type=radio value=more name="regR" checked ID="Radio5"> 多于 <input type=radio value=less name="regR" ID="Radio6"> 少于 <input size=5 name="regT" type=text ID="Text3"> 天 </td>
<td width="50%" bgcolor="#FFFFFF">发表文章:
<input type=radio value=more name="artcleR" checked ID="Radio7"> 多于 <input type=radio value=less name="artcleR" ID="Radio8"> 少于 <input size=5 name="artcleT" type=text ID="Text4"> 篇 </td>
</tr>
<!--特殊搜索结束-->
<tr>
<td width="100%" colspan="7" align="center" bgcolor="#FFFFFF"><input name="submit" type=submit value=" 搜 索 "></td>
</tr>
<input name="UserSearch" type="hidden" id="UserSearch" value="11">
</table>
</form>
<%
end sub
sub AddUser()
end sub
Sub Modify()
dim rsUser,sqlUser,sSex,ChargeType
UserID=KSCMS.ChkClng(UserID)
if UserID=0 then Admin_ShowErr("<br><li>参数不足！</li>")
sqlUser="select * from KS_User where UserID=" & UserID
Set rsUser=Conn.Execute(sqlUser)
if rsUser.bof and rsUser.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
rsUser.close:set rsUser=Nothing
exit sub
end if
ChargeType=rsUser("ChargeType")
%>
<SCRIPT language=javascript>
function CheckFrom()
{
if(document.myform.UserName.value=="")
{
alert("用户名不能为空！");
document.myform.UserName.focus();
return false;
}
if(document.myform.Question.value=="")
{
alert("密码问题不能为空！");
document.myform.Question.focus();
return false;
}
if(document.myform.Answer.value=="")
{
alert("密码答案不能为空！");
document.myform.Answer.focus();
return false;
}
if(document.myform.Email.value=="")
{
alert("用户Email不能为空！");
document.myform.Email.focus();
return false;
}
if((document.myform.Password.value)!=(document.myform.PwdConfirm.value))
{
alert("初始密码与确认密码不同！");
document.myform.PwdConfirm.select();
document.myform.PwdConfirm.focus();
return false;
}
}
</script>
<div style="margin-top:10px;text-align:center;font-weight:bold">修改注册用户信息</div>
<table width="98%" border="0" align="center" style="margin-top:5px" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="border">
<FORM name="myform" action="Admin_User.asp" method="post">
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户名称：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="UserName" type=text size=30 Value="<%=rsUser("UserName")%>" readonly> <font color="red">*</font></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>真实姓名：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="RealName" type=text size=30 Value="<%=rsUser("realName")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户密码：</strong></TD>
<TD height="25" bgcolor="#FFFFFF"><INPUT type="password" name="Password" value="" size="30" maxLength="12"><br><font color="#FF6600">如果不想修改，请留空</font></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>重复密码：</strong></TD>
<TD height="25" bgcolor="#FFFFFF"><INPUT type="password" name="PwdConfirm" value="" size="30" maxLength="12"><br><font color="#FF6600">如果不想修改，请留空</font></TD>
</TR>
<TR >
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>密码问题：</strong></TD>
<TD bgcolor="#FFFFFF"><INPUT type=text maxLength=50 size=30 name="Question" value="<%=rsUser("Question")%>">
<font color="#FF6600">*</font> </TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>问题答案：</strong></TD>
<TD bgcolor="#FFFFFF"><INPUT type=text maxLength=20 size=30 name="Answer" value="<%=rsUser("Answer")%>">
<br><font color="#FF6600">如果不想修改，请留空</font> </TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户性别：</strong></TD>
<TD height="25" bgcolor="#FFFFFF"> <INPUT type=radio value="男" name=sex <%if rsUser("Sex")="男" then Response.Write "CHECKED"%>>
男 <INPUT type=radio value="女" name=sex <%if rsUser("Sex")<>"男" then Response.Write "CHECKED"%>>
女</TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户等级：</strong></TD>
<TD bgcolor="#FFFFFF"> <select name="GroupID" id="GroupID">
<%=KSCMS.GetUserGroup_Option(rsUser("GroupID"))%>
</select></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户邮箱：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="Email" type=text size=30 Value="<%=rsUser("Email")%>"><br><a href="mailto:<%=rsUser("Email")%>"></a></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户主页：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="UserHome" type=text size=30 Value="<%=rsUser("Homepage")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>QQ号码：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="QQ" type=text size=30 Value="<%=rsUser("QQ")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>ICQ号码：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="ICQ" type=text size=30 Value="<%=rsUser("ICQ")%>"></TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -