📄 func.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
if Session("a_c_user_name")="" then
Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
Response.end
end if
level=Session("a_c_user_level")%><html>
<head>
<title>聊吧高级功能菜单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p12 { font-size: 12pt; line-height: 150%}
.p9 { font-size: 9pt; line-height: 150%}
td { font-size: 12pt; line-height: 140%}
A:Hover {color:#FFFFFF;text-decoration:none;; background-color: #0000FF}
A:Active {color:#FFFFFF; text-decoration: none; background-color: #FF0000}
a:visited { text-decoration: none}
a:link { text-decoration: none}
-->
</style>
<base target="main">
</head>
<body bgcolor="008888" class=p12 text="#FFFFFF" vlink="#FFFFFF" link="#FFFFFF">
<table width="100%" border="0" height="100%">
<tr valign="middle">
<td>
<p align="center"><b><font color="FFFF00">高级功能区</font></b></p>
<p align="center"><a href="suoming.asp" onMouseOver="window.status='显示使用高级功能的注意事项及您的信息。';return true" onMouseOut="window.status='';return true">[功能说明]</a><br>
<a href="speaktalk.asp" target="_blank" onMouseOver="window.status='如果有什么问题或建议请留言。';return true" onMouseOut="window.status='';return true">[反映问题]</a><br>
<a href="phb.asp" onMouseOver="window.status='根据经验值（停留时间）列出本聊天室的铁杆聊客。';return true" onMouseOut="window.status='';return true">[聊
神 榜]</a><br>
<a href="log.asp" onMouseOver="window.status='查看版主的工作记录，对版主行为进行监督。';return true" onMouseOut="window.status='';return true">[聊务公开]</a><br>
<a href="poll.asp">[投票系统]</a><br>
<a href="chatinfo.asp" onMouseOver="window.status='查看聊友进入时间、IP，6 级以上可踢人。【请不要随意踢人！】';return true" onMouseOut="window.status='';return true">[聊友信息]</a><br>
<%if level>=5 then%><a href="clear.asp" onMouseOver="window.status='把聊天室对话区的内容全部清除，请勿随意使用本功能。';return true" onMouseOut="window.status='';return true">[清屏操作]</a><br>
<%end if%><%if level>=7 then%><a href="usergrade.asp" onMouseOver="window.status='给用户升级，最高升至 6 级。【7 级以上权限才能使用】';return true" onMouseOut="window.status='';return true">[级别管理]</a><br>
<%end if%><%if level>=9 then%><a href="speakmanage.asp" onMouseOver="window.status='删除留言簿中内容不妥的帖子。';return true" onMouseOut="window.status='';return true">[留言管理]</a><br>
<%end if%><%if level>=8 then%><a href="ip.asp" onMouseOver="window.status='用于封锁、解锁IP地址，被封锁的IP，30分钟内不能登录。';return true" onMouseOut="window.status='';return true">[ＩＰ管理]</a><br>
<%end if%><%if level>=9 then%><a href="query.asp" onMouseOver="window.status='查询本聊天室的用户资料。';return true" onMouseOut="window.status='';return true">[帐号查询]</a><br>
<%end if%><%if level>=10 then%><a href="list.asp" onMouseOver="window.status='列出本聊天室用户的所有资料。';return true" onMouseOut="window.status='';return true">[帐号列表]</a><br>
<%end if%><%if level>=10 then%><a href="adjustex.asp" onMouseOver="window.status='更改用户的经验值。';return true" onMouseOut="window.status='';return true">[改经验值]</a><br>
<%end if%><%if level>=10 then%><a href="zip.asp" onMouseOver="window.status='整理用户资料，删除无用的用户名。';return true" onMouseOut="window.status='';return true">[清理帐号]</a><br>
<%end if%><%if level>=10 then%><a href="reset.asp" onMouseOver="window.status='管理本聊天室的数据及重启。';return true" onMouseOut="window.status='';return true">[程序管理]</a><br>
<%end if%><%if level>=10 then%><a href="actmanage.asp" onMouseOver="window.status='管理聊天室之自定义动作库：还原、修改、删除。';return true" onMouseOut="window.status='';return true">[动作管理]</a><%end if%></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -