server.asp

asp

<%response.expires=0%>
<!--#include file="inc/conn.asp"-->
<%
userid=Session("userid")
userlevel=Session("userlevel")
if userid="" or userlevel="" then
  call msgbox("请重新登陆！",3)
end if
if not isnumeric(userid) or not isnumeric(userlevel) then
  call msgbox("请重新登陆！",3)
end if
userid=CCur(userid)
userlevel=CCur(userlevel)
if not userlevel=1 then
  call msgbox("您的级别不够！",0)
end if
%>
<!--#include file="inc/head.asp"-->
<br><br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr class="menutitle"><th colspan="2">服务器的配置</th></tr>
  <tr bgcolor="#ffffff"><td nowrap>检取ISAPIDLL的metabase路径</td><td><%=Request.ServerVariables("APPL_MD_PATH")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>路径信息</td><td><%=Request.ServerVariables("PATH_INFO")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>服务器IP地址</td><td><%=Request.ServerVariables("LOCAL_ADDR")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>显示执行SCRIPT的虚拟路径</td><td><%=Request.ServerVariables("SCRIPT_NAME")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>返回服务器的主机名，DNS别名，或IP地址</td><td><%=Request.ServerVariables("SERVER_NAME")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>返回服务器处理请求的端口</td><td><%=Request.ServerVariables("SERVER_PORT")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>协议的名称和版本</td><td><%=Request.ServerVariables("SERVER_PROTOCOL")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>服务器的名称和版本</td><td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>服务器操作系统</td><td><%=Request.ServerVariables("OS")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>脚本超时时间</td><td><%=Server.ScriptTimeout%> 秒</td></tr>
  <tr bgcolor="#ffffff"><td nowrap>服务器CPU数量</td><td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
  <tr bgcolor="#ffffff"><td nowrap>服务器解译引擎</td><td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
</table>
<br><br>
<%
Dim ServerObject(17)
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) = "adodb.connection"
    
ServerObject(11) = "SoftArtisans.FileUp"
ServerObject(12) = "SoftArtisans.FileManager"
ServerObject(13) = "JMail.SMTPMail"
ServerObject(14) = "CDONTS.NewMail"
ServerObject(15) = "Persits.MailSender"
ServerObject(16) = "LyfUpload.UploadFile"
ServerObject(17) = "Persits.Upload.1"
%>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr class="menutitle"><th colspan="3">服务器IIS的支持</th></tr>
  <tr class="menutitle"><td nowrap>组件名称</td><td>支持</td><td>不支持</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 10
    Response.Write "<tr bgcolor=""#ffffff""><td nowrap>"&ServerObject(i)&"<font color=aaaaaa>"
    Select case i
      case 9:Response.Write "(FSO 文本文件读写)"
      case 10:Response.Write "(ACCESS 数据库)"
    End Select
    Response.Write "</font></td>"
    If Not IsObjInstalled(ServerObject(i)) Then 
      Response.Write "<td></td><th><font color=red><b>×</b></font></th>"
    Else
      Response.Write "<th><b>√</b></th><td></td>"
    End If
    Response.Write "</tr>" & vbCrLf
  Next%>
</table>
<br><br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr class="menutitle"><th colspan="3">服务器其他常见组件的支持</th></tr>
  <tr class="menutitle"><td nowrap>组件名称</td><td>支持</td><td>不支持</td></tr>
<%For i=11 to 17
    Response.Write "<tr bgcolor=""#ffffff""><td nowrap>"&ServerObject(i)&"<font color=aaaaaa>"
    Select case i
      case 11:Response.Write "(SA-FileUp 文件上传)"
      case 12:Response.Write "(SA-FM 文件管理)"
      case 13:Response.Write "(JMail 邮件发送)"
      case 14:Response.Write "(CDONTS 邮件发送 SMTP Service)"
      case 15:Response.Write "(ASPEmail 邮件发送)"
      case 16:Response.Write "(LyfUpload 文件上传)"
      case 17:Response.Write "(ASPUpload 文件上传)"
    End Select
    Response.Write "</font></td>"
    If Not IsObjInstalled(ServerObject(i)) Then 
      Response.Write "<td></td><th><font color=red><b>×</b></font></th>"
    Else
      Response.Write "<th><b>√</b></th><td></td>"
    End If
    Response.Write "</tr>" & vbCrLf
  Next%>
</table>
<br><br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr class="menutitle"><th colspan="2">请求机器的配置</th></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器IP地址</td><td><%=Request.ServerVariables("REMOTE_ADDR")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器操作系统，浏览器，及版本</td><td><%=Request.ServerVariables("HTTP_USER_AGENT")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器图片支持</td><td><%=Request.ServerVariables("HTTP_ACCEPT")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器语言支持</td><td><%=request.ServerVariables("HTTP_ACCEPT_LANGUAGE")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器主机名称</td><td><%=request.ServerVariables("HTTP_HOST")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器最后访问地址</td><td><%=request.ServerVariables("HTTP_REFERER")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>请求机器Cookies</td><td><%=request.ServerVariables("HTTP_COOKIE")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>HTTP_ACCEPT_ENCODING</td><td><%=request.ServerVariables("HTTP_ACCEPT_ENCODING")%></td></tr>
  <tr bgcolor="#ffffff"><td nowrap>HTTP_CONNECTION</td><td><%=request.ServerVariables("HTTP_CONNECTION")%></td></tr>
</table>
<br><br>


<!--#include file="inc/foot.asp"-->