📄 manaccdel.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=Session("hxf_u_grade")
If nickname = "" Then Msg "不在聊天室中，不能删除帐号。"
If Session("hxf_u_inthechat") <> "1" Then Msg "不在聊天室中，不能删除帐号。"
If Int(grade) <> 12 Then Msg "无权执行此操作。"
%>
<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="manaccdelok.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=" 删除(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.f1.focus();</script>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -