?? admin_grade.asp
字號:
<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=inc/grade.asp-->
<!--#include file=chkuser.asp-->
<title><%=ForumName%>--管理頁面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<BODY <%=ForumBody%>>
<%
if instr(session("flag"),"12")=0 then
Errmsg=Errmsg+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進(jìn)入。<br><li>您沒有管理本頁面的權(quán)限。"
call Error()
else
call main()
conn.close
set conn=nothing
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=Tabletitlecolor%>'>
<td><font color="<%=TablefontColor%>">歡迎<b><%=membername%></b>進(jìn)入管理頁面</font>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="100%" valign=top><font color="<%=TableContentColor%>">
<%
if request("action")="save" then
call savegrade()
else
call gradeinfo()
end if
%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub gradeinfo()
%>
<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="<%=TableContentColor%>"><b>用戶等級設(shè)定</b>：等級18為貴賓，等級19為版主，等級20為總版主，這三項(xiàng)只設(shè)定顯示名稱和圖片，不用設(shè)置積分。圖片目錄pic，本項(xiàng)功能需要FSO支持，F(xiàn)SO相關(guān)幫助請瀏覽微軟網(wǎng)站，如您網(wǎng)站不支持FSO，請手動修改Pic相關(guān)圖片文件以及inc/grade.asp文件。</font></td>
</tr>
<%for i=1 to 20%>
<tr>
<td width="30%"><font color="<%=TableContentColor%>"><b>等級<B><%=i%></B>名稱</font></td>
<td width="70%">
<input type="text" name="level<%=i%>" size="35" value="<%=grade(i)%>">
</td>
</tr>
<tr>
<td width="30%"><font color="<%=TableContentColor%>">升級所需文章</font></td>
<td width="70%">
<input type="text" name="point<%=i%>" size="35" value="<%=point(i)%>">
</td>
</tr>
<tr>
<td width="30%"><font color="<%=TableContentColor%>">等級<B><%=i%></B>圖片地址</font></td>
<td width="70%">
<input type="text" name="pic<%=i%>" size="35" value="<%=gradepic(i)%>">
<img src=<%=picurl%><%=gradepic(i)%>></td>
</tr>
<%next%>
<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'Created by shatan Jan 8
sub savegrade()
'response.write request("pic1")
'response.end
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("inc/grade.asp"),TRUE)
objTextFile.WriteLine("<" & "%")
objTextFile.WriteLine("function grade(level)")
objTextFile.WriteLine("dim user_level")
objTextFile.WriteLine("Select Case level")
for i=1 to 20
objTextFile.WriteLine("case "&i&"")
objTextFile.WriteLine(" user_level="""&request("level"&i)&"""")
next
objTextFile.WriteLine("Case Else")
objTextFile.WriteLine("user_level="""&request("level1")&"""")
objTextFile.WriteLine("end Select")
objTextFile.WriteLine("grade=user_level")
objTextFile.WriteLine("end function")
objTextFile.WriteLine("function point(p)")
objTextFile.WriteLine("dim level_point")
objTextFile.WriteLine("Select Case p")
for i=1 to 17
objTextFile.WriteLine("case "&i&"")
objTextFile.WriteLine(" level_point="&request("point"&i)&"")
next
objTextFile.WriteLine("end Select")
objTextFile.WriteLine("point=level_point")
objTextFile.WriteLine("end function")
objTextFile.WriteLine("function gradepic(pic)")
objTextFile.WriteLine("dim level_pic")
objTextFile.WriteLine("Select Case pic")
for i=1 to 20
objTextFile.WriteLine("case "&i&"")
objTextFile.WriteLine(" level_pic="""&request("pic"&i)&"""")
next
objTextFile.WriteLine("end Select")
objTextFile.WriteLine("gradepic=level_pic")
objTextFile.WriteLine("end function")
objTextFile.WriteLine("%" & ">")
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
<center><p><b>設(shè)置成功！</b>
<%
end sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -