📄 admin_action.asp
字号:
Response.Write"<tr><td colspan='4'>没有IP记录</td></tr>"
Else
Do while not Rs.eof
Response.Write"<tr><td align='center'>"&BBS94KK.Fun.IpDecode(Rs("StartIp"))&" ～ "&BBS94KK.Fun.IpDecode(Rs("EndIp"))&"</td><td> "&Rs("Readme")&"</td><td align='center'><a href=Admin_Confirm.asp?Action=LockIp&ID="&Rs("ID")&"><img src=Images/lock.GIF border=0 align='absmiddle'> 封锁</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href=Admin_Confirm.asp?Action=DelIp&ID="&Rs("ID")&"><img src=Images/del.gif border='0' align='absmiddle'> 删除</td></tr>"
Rs.MoveNext
Loop
End If
Rs.Close
%>
</table>
<%
End Sub
Sub EditIp
Set Rs=BBS94KK.execute("Select StartIp,EndIp,Readme,ID From[KK_LockIp] where ID="&ID&"")
IF Rs.eof Then
Call GoBack("","记录不存在"):Exit Sub
End If
Response.Write GoForm("EditIp")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">IP封锁</font></b></td></tr>
<tr><td width="20%" height="25">起始IP：<br>(必填)</td><td width="80%"><input name="id" value="<%=Rs("ID")%>" type="hidden"><input name='StartIp' type='text' value="<%=BBS94KK.Fun.IpDecode(Rs("StartIp"))%>"></td></tr>
<tr><td height="25">结束IP：<br>(封锁单个IP时不必填写)</td><td><input name='EndIp' type='text' value="<%=BBS94KK.Fun.IpDecode(Rs("EndIp"))%>"></td></tr>
<tr><td height="25">封禁说明：<br>(最大255个字符)</td><td><input name='Readme' type='text' style="width:90%" value="<%=Rs("Readme")%>"></td></tr>
<tr bgcolor="#4D65A4"><td align="center" colspan="2"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</form>
<%
Rs.Close
End Sub
Sub TopAdmin
Dim Flag,bgcolor,I
Response.Write GoForm("AddTopAdmin")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">添加论坛管理员</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20"> <input type="radio" name="Flag" value="-1"> 前台管理员(19级) <input name="Flag" type="radio" value="0" checked> 后台管理员(20级)</td></tr>
<tr bgcolor="#4D65A4"><td align="center" bgcolor="#E8F4EF"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">管理员列表</font></b></td></tr>
<%
i=0
Set Rs=BBS94KK.execute("Select Name,BoardID From[KK_Admin] where BoardID<1 order by BoardID desc")
Do while not Rs.eof
i=i+1
IF i/2>i\2 then
BgColor="#DEF0FE"
Else
BgColor="#E8F4EF"
End If
IF Rs(1)=0 Then
Flag="总管理员(20级)："
Else
Flag="超级版主(19级)："
End If
IF Rs(0)=AdminName Then
Response.Write"<tr bgcolor='"&BgColor&"'><td>"&Flag&Rs("Name")&"</td><td><a onclick=alert('不能对自己降职！') href='#'>【降职】</a></td></tr>"
Else
Response.Write "<tr bgcolor='"&BgColor&"'><td>"&Flag&Rs("Name")&"</td><td><a href='Admin_Confirm.asp?action=DelTopAdmin&name="&Rs(0)&"' onclick=checkclick('您确定要取消其管理员的职位吗？')>【降职】</a></td></tr>"
End if
Rs.movenext
Loop
Rs.Close
%></tbody></table><%
End Sub
Sub BoardAdmin
Dim I,po,ii
Response.Write GoForm("BoardAdmin")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">增删论坛版主</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20"> 管理论坛：<select size="1" name="BoardID"><option value="">请选择管理的版面</option><%=BBS94KK.BoardIDList(0,0)%></select> 操作：<select size="1" name="Flag"><option value="Add">添加版主</option><option value="Del">撤消版主</option></select></td></tr>
<tr bgcolor="#4D65A4"><td align="center" bgcolor="#E8F4EF"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">现有论坛版主</font></b></td></tr>
<%If Not IsArray(BBS94KK.Board_Rs) Then BBS94KK.CacheBoard()'读取版块缓存
If IsArray(BBS94KK.Board_Rs) Then
For i=0 To Ubound(BBS94KK.Board_Rs,2)
po=""
For II=1 To BBS94KK.Board_Rs(0,i)
Po=Po&" <font color=red>∣</Font> "
Next
Response.Write"<tr><td height='25' width='40%'>"&Po&"<font color=red>├</Font> "&BBS94KK.Board_Rs(3,i)&"</td><td width='60%'>"&BBS94KK.Board_Rs(7,i)&"</td></tr>"
Next
End If
%></tbody></table><%
End Sub
Sub Vip
Dim I,Flag,bgcolor
Response.Write GoForm("AddVip")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">升级Vip会员</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20">（注：该名称必须已经注册）</td></tr>
<tr bgcolor="#4D65A4"><td align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">Vip会员列表</font></b></td></tr>
<%i=0
Set Rs=BBS94KK.execute("Select Name From[KK_User] where isVip")
If Rs.eof Then
Response.Write "<tr><td>没有VIP会员</td></tr>"
Else
Do while not Rs.eof
i=i+1
IF i/2>i\2 then
BgColor="#DEF0FE"
Else
BgColor="#E8F4EF"
End If
Response.Write "<tr bgcolor='"&BgColor&"'><td><a href=Userinfo.asp?name="&Rs("Name")&">"&Rs("Name")&"<a></td><td><a href='Admin_Confirm.asp?action=DelVip&name="&Rs(0)&"' onclick=checkclick('您确定要把“"&Rs(0)&"”降为普通会员？')>【降职】</a></td></tr>"
Rs.movenext
Loop
End if
Rs.Close
%></tbody></table><%
End Sub
Sub DelUser
Response.Write GoForm("DelUser")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除用户</font></b></td></tr>
<tr><td width="15%" height="28">用户名称： </td><td width="85%"><input name='Name' type='text' size="20"></td></tr>
<tr><td width="15%" height="28">删除选项： </td><td width="85%"><input name="Flag" type="radio" value="No" checked> 只作删除标记，随时可以恢复（推荐）。<br><input name="Flag" type="radio" value="Yes"> 永久删除，包括其发表的所有帖子和留言等！不可恢复！</td></tr>
<tr bgcolor="#E8F4EF"><td colspan="2" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">暂时删除的用户</font></b></td></tr>
<%
Set Rs=BBS94KK.Execute("Select Name From[KK_User] where IsDel ")
IF Rs.eof Then Response.Write "<tr><td>没有删除的用户记录</td></tr>"
Do while not Rs.eof
Response.Write "<tr><td>"&Rs(0)&"</td><td><a href=Admin_Confirm.asp?Action=RecallUser&name="&Rs(0)&">【恢复】</a></tr>"
Rs.movenext
Loop
Rs.Close
%></tbody></table><%
End Sub
Sub UpdateUser
Dim Rs1%>
<%=GoForm("UpdateUserCM")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">增减用户资源</font></b></td></tr>
<tr><td width="15%" height="28">用户名称： </td><td width="85%"><input name='Name' type='text' size="20"></td></tr>
<tr><td width="15%" height="28">积分：</td><td width="85%"><input name='Mark' type='text' value="0" size="5" ONKEYPRESS='event.returnValue=(event.keyCode >= 48) && (event.keyCode <= 57);'> <input name="MarkFlag" type="radio" value="+" checked> 加积分(+) <input name="MarkFlag" type="radio" value="-"> 扣积分(-)</td></tr>
<tr><td width="15%" height="28">金钱：</td><td width="85%"><input name='Coin' type='text' value="0" size="5" ONKEYPRESS='event.returnValue=(event.keyCode >= 48) && (event.keyCode <= 57);'> <input name="CoinFlag" type="radio" value="+" checked> 加金钱(+) <input name="CoinFlag" type="radio" value="-"> 扣金钱(-)</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("UpdateUserPw")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">修改用户密码</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20"> 输入新密码： <input name='Password' type='text' size="20"> </td></tr>
<tr><td align="center"><input type="submit" value=" 提 交 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("UpdateUserName")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">修改用户名称</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20"> 修改为新的用户：<input name='NewName' type='text' size="20"> （注：同时更新用户所有的帖子、留言、公告等）</td></tr>
<tr><td align="center"><input type="submit" value=" 提 交 "></td>
</tr></tbody></table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -