📄 mangradedown1.asp
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
Response.End
End Sub
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
If nickname = "" Then Msg "不在聊天室中，不能禁止自动升级。"
If inthechat<>"1" Then Msg "不在聊天室中，不能禁止自动升级。"
If inthechat<>"1" and nickname<>"聊天室管理员" Then Msg "不在聊天室中，不能禁止自动升级。"
If grade <> 12 Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
If qx(11) <> "1" Then Msg "无权执行此操作。"
End If
id = Trim(Request.QueryString("id"))
%>
<html>
<head>
<title>禁止自动升级</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;}
select{font-family:宋体;font-size:9pt;}
</style>
<script language=Javascript>
var myn = "<%=nickname%>";
var automanname = "<%=Application("wsaxhxf_c_automanname")%>";
function check(){
f1v = document.send.f1.value;
f2v = document.send.f2.value;
if(f1v == automanname || f1v == "大家" || f1v == myn){
alert("此对象不允许操作。");
return false;
}
if(f1v == ""){
alert("请输入对象名。");
return false;
}
if(f2v == ""){
alert("请输入禁止自动升级原因。");
return false;
}
if(f2v.length > 50){
alert("禁止自动升级原因必须小于 50 字符。");
return false;
}
document.send.dg.disabled = 1;
return true;
}
</script>
</head>
<body>
<table border="0" align="center">
<form name="send" method="post" action="mangradedown1ok.asp" onsubmit='return(check());'>
<tr>
<td align="right">禁止对象:</td>
<td>
<input type=text name=f1 maxlength=10 size=10 value="<%=id%>" readonly>
（此操作权限范围： 0 级到 5 级之间）
</td>
</tr>
<tr>
<td align="right">
<select name="fa" onChange="javascript:document.send.f2.value = this.value;document.send.f2.focus();">
<option selected>原因</option>
<option value="利用级别权限进行捣乱。">捣乱</option>
<option value="刷屏，劝告又不听。">刷屏</option>
<option value="骂人，劝告又不听。">骂人</option>
<option value="散布违法及有悖道德的言论。">违法</option>
</select>
</td>
<td>
<input type=text name=f2 maxlength=50 size=45>
</td>
</tr>
<%If grade = 12 and Int(Session("ipbt")) = 1 Then%>
<tr>
<td align="right">选项:</td>
<td>
<input type="radio" name="f3" value="yes" checked><a onclick="javascript:document.send.f3[0].checked = true"><font style=cursor:hand color=black>记入聊天室日志</font></a>
<input type="radio" name="f3" value="no"><a onclick="javascript:document.send.f3[1].checked = true"><font style=cursor:hand color=black>不记入聊天室日志</font></a>
</td>
</tr>
<%End If%>
<tr>
<td align="center" colspan="2">
<input type="submit" name="dg" value=" 禁止(D) " accesskey="d">
<input type="reset" name="Reset" value=" 重填(R) " accesskey="r">
<input type="button" name="quit" value=" 退出(Q) " accesskey="q" onclick="javascript:window.close();">
</td>
</tr>
</form>
</table>
<script Language=JavaScript>document.send.f2.focus();</script>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -