📄 admin_grade.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=admin_left.asp-->
<!--#include file=inc/grade.asp-->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
if session("masterlogin")<>"superadmin" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
call Error()
else
%>
<%
call main()
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=aTabletitlecolor%>'>
<td align=center colspan="2">欢迎<b><%=session("mastername")%></b>进入管理页面
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="20%" valign=top>
<%call left()%>
</td>
<td width="80%" valign=top>
<%
if request("action")="save" then
call savegrade()
else
call grade()
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub grade()
%>
<form method="POST" action=admin_grade.asp?action=save>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center bordercolor=<%=aTablebackcolor%>>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>用户等级设定</b></font></td>
</tr>
<tr>
<td width="30%"><b>等级一名称</td>
<td width="70%">
<input type="text" name="user_level1" size="35" value="<%=user_level1%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level1_point" size="35" value="<%=level1_point%>">
</td>
</tr>
<tr>
<td width="30%">等级一图片地址</td>
<td width="70%">
<input type="text" name="level1_pic" size="35" value="<%=level1_pic%>"><img src=<%=picurl%><%=level1_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>等级二名称</td>
<td width="70%">
<input type="text" name="user_level2" size="35" value="<%=user_level2%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level2_point" size="35" value="<%=level2_point%>">
</td>
</tr>
<tr>
<td width="30%">等级二图片地址</td>
<td width="70%">
<input type="text" name="level2_pic" size="35" value="<%=level2_pic%>"><img src=<%=picurl%><%=level2_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>等级三名称</td>
<td width="70%">
<input type="text" name="user_level3" size="35" value="<%=user_level3%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level3_point" size="35" value="<%=level3_point%>">
</td>
</tr>
<tr>
<td width="30%">等级三图片地址</td>
<td width="70%">
<input type="text" name="level3_pic" size="35" value="<%=level3_pic%>"><img src=<%=picurl%><%=level3_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>等级四名称</td>
<td width="70%">
<input type="text" name="user_level4" size="35" value="<%=user_level4%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level4_point" size="35" value="<%=level4_point%>">
</td>
</tr>
<tr>
<td width="30%">等级四图片地址</td>
<td width="70%">
<input type="text" name="level4_pic" size="35" value="<%=level4_pic%>"><img src=<%=picurl%><%=level4_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>等级五名称</td>
<td width="70%">
<input type="text" name="user_level5" size="35" value="<%=user_level5%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level5_point" size="35" value="<%=level5_point%>">
</td>
</tr>
<tr>
<td width="30%">等级五图片地址</td>
<td width="70%">
<input type="text" name="level5_pic" size="35" value="<%=level5_pic%>"><img src=<%=picurl%><%=level5_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>等级六名称</td>
<td width="70%">
<input type="text" name="user_level6" size="35" value="<%=user_level6%>">
</td>
</tr>
<tr>
<td width="30%">升级所需文章</td>
<td width="70%">
<input type="text" name="level6_point" size="35" value="<%=level6_point%>">
</td>
</tr>
<tr>
<td width="30%">等级六图片地址</td>
<td width="70%">
<input type="text" name="level6_pic" size="35" value="<%=level6_pic%>"><img src=<%=picurl%><%=level6_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>荣誉名称</td>
<td width="70%">
<input type="text" name="user_level7" size="35" value="<%=user_level7%>">
</td>
</tr>
<tr>
<td width="30%">荣誉图片地址</td>
<td width="70%">
<input type="text" name="level7_pic" size="35" value="<%=level7_pic%>"><img src=<%=picurl%><%=level7_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>版主名称</td>
<td width="70%">
<input type="text" name="user_level8" size="35" value="<%=user_level8%>">
</td>
</tr>
<tr>
<td width="30%">版主图片地址</td>
<td width="70%">
<input type="text" name="level8_pic" size="35" value="<%=level8_pic%>"><img src=<%=picurl%><%=level8_pic%>>
</td>
</tr>
<tr>
<td width="30%"><b>管理员名称</td>
<td width="70%">
<input type="text" name="user_level9" size="35" value="<%=user_level9%>">
</td>
</tr>
<tr>
<td width="30%">管理员图片地址</td>
<td width="70%">
<input type="text" name="level9_pic" size="35" value="<%=level9_pic%>"><img src=<%=picurl%><%=level9_pic%>>
</td>
</tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td width="30%"> </td>
<td width="70%">
<div align="center">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end sub
sub savegrade()
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("inc/grade.asp"),TRUE)
objTextFile.WriteLine("<" & "%")
objTextFile.WriteLine("Const user_level1=""" & request("user_level1") & """")
objTextFile.WriteLine("Const user_level2=""" & request("user_level2") & """")
objTextFile.WriteLine("Const user_level3=""" & request("user_level3") & """")
objTextFile.WriteLine("Const user_level4=""" & request("user_level4") & """")
objTextFile.WriteLine("Const user_level5=""" & request("user_level5") & """")
objTextFile.WriteLine("Const user_level6=""" & request("user_level6") & """")
objTextFile.WriteLine("Const user_level7=""" & request("user_level7") & """")
objTextFile.WriteLine("Const user_level8=""" & request("user_level8") & """")
objTextFile.WriteLine("Const user_level9=""" & request("user_level9") & """")
objTextFile.WriteLine("Const level1_point=" & request("level1_point") & "")
objTextFile.WriteLine("Const level2_point=" & request("level2_point") & "")
objTextFile.WriteLine("Const level3_point=" & request("level3_point") & "")
objTextFile.WriteLine("Const level4_point=" & request("level4_point") & "")
objTextFile.WriteLine("Const level5_point=" & request("level5_point") & "")
objTextFile.WriteLine("Const level6_point=" & request("level6_point") & "")
objTextFile.WriteLine("Const level1_pic=""" & request("level1_pic") & """")
objTextFile.WriteLine("Const level2_pic=""" & request("level2_pic") & """")
objTextFile.WriteLine("Const level3_pic=""" & request("level3_pic") & """")
objTextFile.WriteLine("Const level4_pic=""" & request("level4_pic") & """")
objTextFile.WriteLine("Const level5_pic=""" & request("level5_pic") & """")
objTextFile.WriteLine("Const level6_pic=""" & request("level6_pic") & """")
objTextFile.WriteLine("Const level7_pic=""" & request("level7_pic") & """")
objTextFile.WriteLine("Const level8_pic=""" & request("level8_pic") & """")
objTextFile.WriteLine("Const level9_pic=""" & request("level9_pic") & """")
objTextFile.WriteLine("%" & ">")
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
<center><p><b>设置成功！</b>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -