admin_server.asp

庐江二中

<%PageName="admin_server"%>
<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"--><br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
<table border="1" cellspacing="0" cellpadding="3" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr bgcolor="<%=MainTColor%>"  align="center">
<td colspan="2" height="20" background="images/admin/b3.gif"><b>服 务 器 的 配 置</b></td>
</tr>
<tr>
<td>检取ISAPIDLL的metabase路径</td>
<td><%=Request.ServerVariables("APPL_MD_PATH")%></td>
</tr>
<tr>
<td>路径信息</td>
<td><%=Request.ServerVariables("PATH_INFO")%></td>
</tr>
<tr>
<td>服务器IP地址</td>
<td><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td>显示执行SCRIPT的虚拟路径</td>
<td><%=Request.ServerVariables("SCRIPT_NAME")%></td>
</tr>
<tr>
<td>返回服务器的主机名，DNS别名，或IP地址</td>
<td><%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td>返回服务器处理请求的端口</td>
<td><%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr>
<td>协议的名称和版本</td>
<td><%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr>
<td>服务器的名称和版本</td>
<td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td>服务器操作系统</td>
<td><%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td>脚本超时时间</td>
<td><%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td>服务器CPU数量</td>
<td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td>服务器解译引擎</td>
<td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
</table>
<br>
<br>
<%
Dim ServerObject(18)
ServerObject(0) = "MSWC.AdRotator"
ServerObject(1) = "MSWC.BrowserType"
ServerObject(2) = "MSWC.NextLink"
ServerObject(3) = "MSWC.Tools"
ServerObject(4) = "MSWC.Status"
ServerObject(5) = "MSWC.Counters"
ServerObject(6) = "IISSample.ContentRotator"
ServerObject(7) = "IISSample.PageCounter"
ServerObject(8) = "MSWC.PermissionChecker"
ServerObject(9) = "Scripting.FileSystemObject"
ServerObject(10) = "JRO.JetEngine"
ServerObject(11) = "adodb.connection"

ServerObject(12) = "SoftArtisans.FileUp"
ServerObject(13) = "SoftArtisans.FileManager"
ServerObject(14) = "JMail.SMTPMail"
ServerObject(15) = "CDONTS.NewMail"
ServerObject(16) = "Persits.MailSender"
ServerObject(17) = "LyfUpload.UploadFile"
ServerObject(18) = "Persits.Upload.1"
%>
<table border="1" cellspacing="0" cellpadding="3" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr  align="center">
<td colspan="3" height="20" bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>服 务 器 IIS
的 支 持</b></td>
</tr>
<tr align="center">
<td>组　件　名　称</td>
<td width="20%">支　持</td>
<td width="20%">不　支　持</td>
</tr>
<%Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function

For i=0 to 11
Response.Write "<tr><td>"&ServerObject(i)&"<font color=aaaaaa>"
Select case i
case 9 :Response.Write "(FSO 文本文件读写)"
case 10:Response.Write "(ACCESS 数据库)"
case 11:Response.Write "(ACCESS 数据库)"
End Select
Response.Write "</font></td>"
If Not IsObjInstalled(ServerObject(i)) Then
Response.Write "<td></td><td align=""center""><font color=red><b>×</b></font></td>"
Else
Response.Write "<td align=""center""><b>√</b></td><td></td>"
End If
Response.Write "</tr>" & vbCrLf
Next%>
</table>
<br>
<br>
<table border="1" cellspacing="0" cellpadding="3" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr  align="center">
<td colspan="3" height="20" bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>服 务 器 其 他
常 见 组 件 的 支 持</b></td>
</tr>
<tr align="center">
<td>组　件　名　称</td>
<td width="20%">支　持</td>
<td width="20%">不　支　持</td>
</tr>
<%For i=12 to 18
Response.Write "<tr><td>"&ServerObject(i)&"<font color=aaaaaa>"
Select case i
case 12:Response.Write "(SA-FileUp 文件上传)"
case 13:Response.Write "(SA-FM 文件管理)"
case 14:Response.Write "(JMail 邮件发送)"
case 15:Response.Write "(CDONTS 邮件发送 SMTP Service)"
case 16:Response.Write "(ASPEmail 邮件发送)"
case 17:Response.Write "(LyfUpload 文件上传)"
case 18:Response.Write "(ASPUpload 文件上传)"
End Select
Response.Write "</font></td>"
If Not IsObjInstalled(ServerObject(i)) Then
Response.Write "<td></td><td align=""center""><font color=red><b>×</b></font></td>"
Else
Response.Write "<td align=""center""><b>√</b></td><td></td>"
End If
Response.Write "</tr>" & vbCrLf
Next%>
</table>
<br>
<br>
<table border="1" cellspacing="0" cellpadding="3" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%" style="table-layout:fixed">
<tr bgcolor="<%=MainTColor%>"  align="center">
<td colspan="2" height="20" background="images/admin/b3.gif"><b>客 户 端 的 配 置</b></td>
</tr>
<tr>
<td width="30%">IP地址</td>
<td width="70%"><%=Request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td width="30%">操作系统，浏览器，及版本</td>
<td width="70%"><%=Request.ServerVariables("HTTP_USER_AGENT")%></td>
</tr>
<tr>
<td width="30%">图片支持</td>
<td width="70%"><%=Request.ServerVariables("HTTP_ACCEPT")%></td>
</tr>
<tr>
<td width="30%">语言支持</td>
<td width="70%"><%=request.ServerVariables("HTTP_ACCEPT_LANGUAGE")%></td>
</tr>
<tr>
<td width="30%">主机名称</td>
<td width="70%"><%=request.ServerVariables("HTTP_HOST")%></td>
</tr>
<tr>
<td width="30%">最后访问地址</td>
<td width="70%"><%=request.ServerVariables("HTTP_REFERER")%></td>
</tr>
<tr>
<td width="30%">Cookies</td>
<td style="word-wrap:break-word" width="70%"><%=request.ServerVariables("HTTP_COOKIE")%></td>
</tr>
<tr>
<td width="30%">HTTP_ACCEPT_ENCODING</td>
<td width="70%"><%=request.ServerVariables("HTTP_ACCEPT_ENCODING")%></td>
</tr>
<tr>
<td width="30%">HTTP_CONNECTION</td>
<td width="70%"><%=request.ServerVariables("HTTP_CONNECTION")%></td>
</tr>
</table>
<br>
<br>
<%
Dim objBrowsCap
Set objBrowsCap = Server.CreateObject("MSWC.BrowserType")
%>
<table border="1" cellspacing="0" cellpadding="3" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr bgcolor="<%=MainTColor%>"  align="center">
<td colspan="2" height="20" background="images/admin/b3.gif"><b>客 户 端 的 浏 览 器 配 置</b></td>
</tr>
<tr>
<td>浏览器(Browser)</td>
<td><%=objBrowsCap.browser%></td>
</tr>
<tr>
<td>浏览器版本(Version)</td>
<td><%=objBrowsCap.version%></td>
</tr>
<tr>
<td>Cookies</td>
<td><%=objBrowsCap.cookies%></td>
</tr>
<tr>
<td>JavaApplets</td>
<td><%=objBrowsCap.javaapplets%></td>
</tr>
<tr>
<td>VBScript</td>
<td><%=objBrowsCap.VBScript%></td>
</tr>
<tr>
<td>JavaScript</td>
<td><%=objBrowsCap.JavaScript%></td>
</tr>
<tr>
<td>PlatForm</td>
<td><%=objBrowsCap.platform%></td>
</tr>
<%If objBrowsCap.browser = "IE" and objBrowsCap.version >4 then%>
<tr bgcolor="<%=MainTColor%>"  align="center">
<td colspan="2" height="20"><b>IE 5.0 以 上 版 本 新 特 性</b></td>
</tr>
<tr>
<td>屏幕宽度(Horizontal Resolution)</td>
<td><%=objBrowsCap.width%></td>
</tr>
<tr>
<td>屏幕高度(Vertical Resolution)</td>
<td><%=objBrowsCap.height%></td>
</tr>
<tr>
<td>浏览器宽度(AvailWidth)</td>
<td><%=objBrowsCap.availWidth%></td>
</tr>
<tr>
<td>浏览器高度(AvailHeight)</td>
<td><%=objBrowsCap.availHeight%></td>
</tr>
<tr>
<td>Buffer Depth</td>
<td><%=objBrowsCap.bufferDepth%></td>
</tr>
<tr>
<td>Color Depth</td>
<td><%=objBrowsCap.colorDepth%></td>
</tr>
<tr>
<td>Java Enabled</td>
<td><%=objBrowsCap.javaEnabled%></td>
</tr>
<tr>
<td>Cpu Class</td>
<td><%=objBrowsCap.cpuClass%></td>
</tr>
<tr>
<td>System Language</td>
<td><%=objBrowsCap.systemLanguage%></td>
</tr>
<tr>
<td>User Language</td>
<td><%=objBrowsCap.userLanguage%></td>
</tr>
<tr>
<td>ConnectionType<br>
(lan, modem, offline)</td>
<td><%=objBrowsCap.connectionType%></td>
</tr>
<tr>
<td>Is Java Installed</td>
<td><%=objBrowsCap.Java%></td>
</tr>
<tr>
<td>MSJava Version</td>
<td><%=objBrowsCap.javaVersion%></td>
</tr>
<tr>
<td>Is MSJava Version Equal<br>
to "5,0,3016,0"</td>
<td><%=objBrowsCap.compVersion%></td>
</tr>
</table>
<%End If
Set objBrowsCap = nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%set rs=nothing%>