admin_other.asp

教师评估系统

<!-- #include file="AdminCls.asp" -->
<%
CheckLogin()

select case Request("menu")
case "Log"
Log
case "ServerInfo"
ServerInfo
case "ShowCache"
ShowCache
end select

sub ShowCache
%><div class="tb dt">
<div id="tt">系统缓存列表</div>
<div class="intro cb">
<div class="fl r w3">名称</div><div class="fl w6">值</div>
</div>
<%for each item in Application.Contents%>
<div class="tc b cb">
<div class="fl w3"><%=item%></div><div class="fl left w6"><%if IsArray(Application.Contents(item)) then
Response.Write "[数组]"
else
Response.Write Replace(Server.HTMLEncode(Application.Contents(item)),chr(10),"<br />")
end if%></div>
</div>
<%next%>
</div>
<%
end sub

sub ServerInfo
intCpuNum = Request.ServerVariables("NUMBER_OF_PROCESSORS")
strOS = Request.ServerVariables("OS")
if IsObjInstalled("WScript.Shell") Then
Set wsX = Server.CreateObject("WScript.Shell")
Set objWshSysEnv = wsX.Environment("SYSTEM")
intCpuNum = objWshSysEnv("NUMBER_OF_PROCESSORS")
strOS = objWshSysEnv("OS")
strCpuInfo = objWshSysEnv("PROCESSOR_IDENTIFIER")
Set wsX = Nothing
Set objWshSysEnv = Nothing
end if
%><div class="tb dt">
<div id="tt">服务器组件支持</div>
<div class="intro cb">
<div class="fl r w3">组件名称(点击搜索)</div><div class="fl w6">支持及版本</div>
</div>
<%
Dim ObjectsList
objList="Adodb.Connection|ADODB.Stream|Scripting.FileSystemObject|Persits.Upload|JMail.Message|CDO.Message|Persits.MailSender|Persits.Jpeg|WScript.Shell|SoftArtisans.FileUp|Microsoft.XMLHTTP|Microsoft.XMLDOM"
objArray=Split(objList,"|")
For i=0 to UBound(objArray)
objName=objArray(i)
if Not IsObjInstalled(objName) Then
objSupport="<span class=red>×</span>"
Else
objSupport="√ "&getver(objName)
end if
ServerItem objName,objSupport
Next%>
</div>
<div class="tb dt">
<div id="tt">服务器环境</div>
<div class="intro cb">
<div class="fl r w3">项目</div><div class="fl w6">值</div>
</div>
<%
ServerItem "域名",Request.ServerVariables("server_name")
ServerItem "IP地址",Request.ServerVariables("LOCAL_ADDR")
ServerItem "服务端口",Request.ServerVariables("SERVER_PORT")
ServerItem "服务器软件",Request.ServerVariables("SERVER_SOFTWARE")
ServerItem "脚本解释引擎",ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
ServerItem "服务器操作系统",strOS
ServerItem "服务器CPU数量",intCpuNum
ServerItem "服务器CPU详情",strCpuInfo
ServerItem "脚本执行超时",Server.ScriptTimeout&" 秒"
ServerItem "服务器Application数量",Application.Contents.Count
ServerItem "服务器Session数量",Session.contents.Count
ServerItem "本文件物理路径",Request.ServerVariables("path_translated")
ServerItem "本文件URL","http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")
%></div><%
end sub

sub ServerItem(name,value)
%><div class="tc b cb">
<div class="fl r w3"><a target="_blank" href="http://www.baidu.com/s?tn=wxskycn_pg&wd=<%=name%>"><%=name%></a></div><div class="fl w6"><%=value%></div>
</div><%
end sub

sub Log
%>
<div class="tb dt">
<div id="tt">系统操作日志</div>
<div class="intro cb">
<div class="fl r w1a">操作人</div>
<div class="fl w8">详细资料</div>
</div>
<%
Key=HTMLEncode(Request("Key"))
if Key<>"" then Searchlist="where Content like '%"&Key&"%'"
TopSql="[WxLog] "&Searchlist&""
TotalCount=Conn.Execute("select count(UserName) From "&TopSql&" ")(0) '获取数据数量
PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
sql=""&TopSql&" order by DateCreated Desc"
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
i=0
Do While Not Rs.Eof and i<PageSetup
i=i+1
%><div class="tc b cb">
<div class="fl w1a ac"><a target="_blank" href="User.asp?Name=<%=Rs("UserName")%>"><%=Rs("UserName")%></a></div>
<div class="fl left w8">时间：<%=Rs("DateCreated")%><br /><%=Rs("Content")%></div>
</div>
<%
Rs.MoveNext
loop
Rs.close
%><div class="tc cb">
<form method="post" action="Admin_Other.asp?menu=Log">
<span class="fl"><%ShowPage()%></span>
<span class="fr"><input name="Key" onclick="this.value=''" onchange="javascript:VerifyText(this,'关键字','bt1');" value="关键字" /> <input type="submit" id="bt1" disabled="disabled" value="搜索" /></span>
</form>
</div>
</div>
<%
end sub

function getver(Classstr)
On Error Resume Next
Set xTestObj = Server.CreateObject(Classstr)
if 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
On Error GoTo 0
end function

AdminBottom%>