📄 manaccyjadd.asp
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
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
If nickname = "" Then Msg "不在聊天室中，不能进行本项操作。"
if Session("hxf_u_inthechat")<>1 then Msg "不在聊天室中，不能进行本项操作。"
If grade <> 12 Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
If qx(17) <> "1" Then Msg "不在聊天室中，不能进行本项操作。"
End If
%><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>
function check(){
f1v = document.send.f1.value;
f2v = document.send.f2.value;
if(f1v == ""){
alert("请输入要永久保留的用户名！");
return false;
}
if(f2v == ""){
alert("请输入永久保留原因。");
return false;
}
if(f2v.length > 50){
alert("永久保留原因必须小于 50 字符。");
return false;
}
document.send.enroll.disabled = 1;
return true;
}
</script>
</head>
<body>
<table border="0" align="center">
<form name="send" method="post" action=manaccyjaddok.asp onsubmit='return(check());'>
<tr>
<td align="right">永久保留:</td>
<td>
<input type=text name=f1 maxlength=10 size=10 value="<%=Trim(Request.QueryString("id"))%>">
（输入要永久保留的用户名）</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>
</select>
</td>
<td>
<input type=text name=f2 maxlength=50 size=45>
</td>
</tr>
<%If nickname = "聊天室管理员" 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="enroll" value=" 保留(Y) " accesskey="y">
<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.f1.focus();</script>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -