📄 mangradeup2.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
On Error Resume Next
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(21) <> "1" Then Msg "无权执行此操作。"
End If
id = Trim(Request.QueryString("id"))
If id = "" Then Msg "请指定用户名！"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT username,grade FROM reginfo WHERE kill='0' and username = '" & id & "'"
rs.open sql, conn, 1, 3
If rs.Eof And rs.Bof Then
 rs.Close
 conn.Close
 Set rs = Nothing
 Set conn = Nothing
 Msg "用户名“" & id & "”不存在！"
End If
ming = rs("username")
jibie = Int(rs("grade"))
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
If nickname = ming Then Msg "不能给自己升级！"
If jibie <= 0 Then Msg "用户名“" & ming & "”被禁用！"
If jibie = 12 Then Msg "用户名“" & ming & "”为 12 级，不能再升级！"
If nickname <> "聊天室管理员" And jibie = 11 Then Msg "12 级只能由超级用户来分配！"
If nickname <> "聊天室管理员" And jibie >= Int(grade) - 1 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>
var myn = "<%=nickname%>";
var automanname = "<%=Application("wsaxhxf_c_automanname")%>";
var oldjb = <%=jibie%>;
function check(){
 f1v = document.send.f1.value;
 f2v = document.send.f2.value;
 f4v = document.send.f4.options[document.send.f4.selectedIndex].value;
 if(f4v == oldjb){
  alert("请指定新级别！");
  return false;
 }
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.ug.disabled = 1;
 return true;
}
</script>
</head>
<body>
<table border="0" align="center">
<form name="send" method="post" action="mangradeup2ok.asp" onsubmit='return(check());'>
<tr> 
<td align="right">升级对象:</td>
<td> 
<input type=text name=f1 maxlength=10 size=10 value="<%=id%>" readonly>
　新级别: <select name="f4">
<%
If grade = 12 Then 
For i = 12 To jibie + 1 Step -1
 Response.Write "<option value=" & i & ">" & i & " 级</option>"
Next
else
For i = Int(qx(30)) To jibie + 1 Step -1
 Response.Write "<option value=" & i & ">" & i & " 级</option>"
Next
end if
%>
<option value=<%=jibie%> selected><%=jibie%> 级</option>
</select>
</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 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="ug" value=" 无限制升级(U) " accesskey="u">
<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 + -