📄 grade.asp
字号:
<%Response.Expires=0
class1=Session("class")
if class1<7 then Response.Write "没有权限" : Response.end
dim grideoption1,grideoption2,nickname,grade
grideoption1=Request.Form("up")
grideoption2=Request.Form("down")
username=Request.Form("username")
username=server.HTMLEncode(username)
if len(username)>10 then
Response.Write "<title>出错提示 - 柠檬树聊天室</title>"
Response.write "<body bgcolor=#FFFFFF><br><br><br><br><br><p align='center'>出错提示：<font color=#FF0000>名字太长，一定是输错了</font></p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
Response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size : 10.5pt;}
TR {FONT-SIZE: 10.5pt}
TD {FONT-SIZE: 10.5pt}
input {FONT-SIZE: 10.5pt}-->
</style>
<title>级别操作</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body oncontextmenu="self.event.returnValue=false" bgcolor="#e1e8fa" leftmargin="5"
topmargin="5">
<%IF len(grideoption1)+len(grideoption2)=0 then%>
<form method="POST" action="grade.asp"><br><br><br><br>
<table width="375" border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="1" bgcolor="E0E0E0" align="center">
<tr align="center">
<td width="373" height="135" bgcolor="#CCFFCC" colspan="2"><font
color="#FF0000">级别操作</font><hr>
<p>请输入聊友匿称：<input type="text" name="username" size="20" maxlength="20"></td>
</tr>
<tr height="45">
<td width="50%" height="45" bgcolor="F0F0F0"><div align="center"><center><p><input
type="submit" value="升 -- 级" name="up" style="background-color: FFCCFF"></td>
<td width="50%" height="45" bgcolor="#F0F0F0" align="center"><div align="center"><center><p><input
type="submit" value="降 -- 级" name="down" style="background-color: FFCCFF"></td>
</tr>
</table>
</form>
<%end if
IF len(grideoption1)+len(grideoption2)>0 then
%>
<!--#include file="conn.asp"-->
<%
Set rs = Conn.Execute( "select * from Chatuser where username='"&username&"'" )
if rs.eof then
rs.close
Response.Write "<title>出错提示 - 柠檬树聊天室</title>"
Response.write "<body bgcolor=#DBEEB5><br><br><br><br><br><p align='center'>出错提示：<font color=#FF0000>"&username&"</font> 找不到，一定是输错了</p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
Response.end
else%>
<br><br><br><br>
<form method="POST" action="gradeupdate.asp">
<table border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" bgcolor="F0F0F0" cellpadding="4">
<tr align="center">
<td>
<table border="0" cellpadding="3">
<tr>
<td>用 户 名:</td>
<td><font color=red><%=rs("username")%></font></td>
<td>等 级:</td>
<td><font color=red><%=rs("grade")%></font></td>
</tr>
<tr>
<td>次 数:</td>
<td><font color=red><%=rs("times")%></font></td>
<td>月积分:</td>
<td><font color=red><%=rs("month_score")%></font></td>
</tr>
<tr>
<td>累积分数:</td>
<td><font color=red><%=rs("score")%></font></td>
<td colspan="2"> </td>
</tr>
<tr>
<td>注册时间:</td>
<td colspan="3"><font color=red><%=rs("first_t")%></font></td>
</tr>
<tr>
<td>最后时间:</td>
<td colspan="3"><font color=red><%=rs("last_t")%></font></td>
</tr>
<tr>
<td>地 址:</td>
<td colspan="3"><font color=red><%=rs("url")%></font></td>
</tr>
<tr>
<td>个人简介:</td>
<td colspan="3"><font color=red><%=rs("memo")%></font></td>
</tr>
</table>
</td>
</tr>
<tr><td>
<%nickname=rs("username")
grade=rs("grade")
response.write("<font color=red>"&nickname&"</font> 由 <font color=red>"&grade&"</font> 级")%>
<%IF grideoption1="升 -- 级" then
response.write(" 升为 ")%>
<select name="update" style="font-size:12px" size="1" style="width:40px">
<%dim Count,top
Count = grade+1
IF class1>6 then top=5
IF class1>9 then top=10
Do While Count <= top%>
<option style="color:#ff0000" value="<%=Count%>"><%=Count%></option>
<%Count=Count+1
Loop
response.write("</select>")%>
<input type="submit" value="升级" name="ok" style="background-color: FFCCFF">
<%END IF
IF grideoption2="降 -- 级" and (grade<6 or class1>9) then
response.write(" 降为")%>
<select name="update" style="font-size:12px" size="1" style="width:40px"'>
<%
Count = 0
Do While Count < grade%>
<option style="color:#ff0000" value="<%=Count%>"><%=Count%></option>
<%Count=Count+1
Loop
response.write("</select>")%>
<input type="submit" value="降级" name="ok" style="background-color: FFCCFF">
<%END IF%>
<input type="button" value="放弃" onclick="javascript:history.go(-1)" style="background-color: FFCCFF">
</td></tr>
<tr><td>
<select name="select" style="font-size:12px" onchange="javascript:document.forms[0].why.value=this.value;document.forms[0].why.focus();">
<option value="" selected>自填</option>
<option value="表现非常好。">表现好</option>
<option value="非常热心。">热心</option>
<option value="老常客了。">老常客</option>
<option style="color:#FF0088" value="">------</option>
<option value="乱刷屏，警告又不听。">乱刷屏</option>
<option value="在聊天室散布有悖伦理道德的言论。">不道德</option>
<option value="不遵守聊天规则，进行人身攻击。">骂人</option>
<option value="在聊天室散布违反国家法律法规的言论。">违法</option>
</select>
<input type="text" name="why" size="26" maxlength="60" style="background-color: ecfCFF">
<input type="hidden" name="username" value="<%=username%>">
<input type="hidden" name="oldgrade" value="<%=grade%>">
</td></tr>
</table>
</form>
<%end if
End if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -