<%@ LANGUAGE="VBSCRIPT" %>
<%=ForumName%>--管理页面
<%
if not master then
Errmsg=Errmsg+" "+"
本页面为管理员专用，请登陆后进入。"
call Error()
else
call main()
conn.close
set conn=nothing
end if
sub main()
%>
align=center>
欢迎<%=session("mastername")%>进入管理页面
>
<%call leftmenu()%>
<%
if request("action")="save" then
call savegrade()
else
call gradeinfo()
end if
%>
<%
end sub
sub gradeinfo()
%>
<%
end sub'Created by shatan Jan 8
sub savegrade()
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
%>