📄 server.asp

📁 视频源代码视频源代码
💻 ASP
字号:
<%response.expires=0%>

<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>易影中国 >> 系统管理 >> 服务器配置</title>
<style>
body{margin:0px;scrollbar-face-color:buttonface;scrollbar-highlight-color:buttonface;scrollbar-shadow-color:buttonface;scrollbar-3dlight-color:buttonhighlight;scrollbar-arrow-color:#797979;scrollbar-track-color:#EEEEEE;scrollbar-darkshadow-color:buttonshadow}
body,a,table,div,span,td,th,input,select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
.text{border:1 solid buttonface;background-color:buttonhighlight}
.button{height:18;border:1 ridge buttonhighlight;background-color:buttonface}
#do{background-color:ffffff;color:FF8000;text-align:center;width:8pt;height:8pt;corsur:hand}
#box{width:7pt;height:7pt;}
a{text-decoration:none;}
</style>
<body bgColor="#003063">
<table border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
  <tbody>
  <tr><td valign="top">
<br><br>
<table width="500" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr bgcolor="EFEFEF"><td colspan="2"><b>服 务 器 的 配 置</b></td></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(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 width="500" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr bgcolor="EFEFEF"><td colspan="3"><b>服 务 器 IIS 的 支 持</b></td></tr>
  <tr bgcolor="F5F5F5"><td nowrap>组　件　名　称</td><th width="20%">支　持</th><th width="20%">不　支　持</th></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 bgcolor=""#ffffff""><td nowrap>"&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><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="500" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr bgcolor="EFEFEF"><td colspan="3"><b>服 务 器 其 他 常 见 组 件 的 支 持</b></td></tr>
  <tr bgcolor="F5F5F5"><td nowrap>组　件　名　称</td><th width="20%">支　持</th><th width="20%">不　支　持</th></tr>
<%For i=12 to 18
    Response.Write "<tr bgcolor=""#ffffff""><td nowrap>"&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><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="500" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF" style="table-layout:fixed">
  <tr bgcolor="EFEFEF"><td colspan="2"><b>客 户 端 的 配 置</b></td></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 style="word-wrap:break-word"><%=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>
<%
  Dim objBrowsCap
  Set objBrowsCap = Server.CreateObject("MSWC.BrowserType")
%>

<!--METADATA TYPE="Cookie" NAME="BrowsCap" SRC="clientCap.htm"-->

<table width="500" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
  <tr bgcolor="EFEFEF"><td colspan="2"><b>客 户 端 的 浏 览 器 配 置</b></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>浏览器(Browser)</td><td><%=objBrowsCap.browser%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>浏览器版本(Version)</td><td><%=objBrowsCap.version%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Cookies</td><td><%=objBrowsCap.cookies%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>JavaApplets</td><td><%=objBrowsCap.javaapplets%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>VBScript</td><td><%=objBrowsCap.VBScript%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>JavaScript</td><td><%=objBrowsCap.JavaScript%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>PlatForm</td><td><%=objBrowsCap.platform%></td></tr>
<%If objBrowsCap.browser = "IE" and objBrowsCap.version >4 then%>
  <tr bgcolor="EFEFEF"><td colspan="2"><b>IE 5.0 以 上 版 本 新 特 性</b></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>屏幕宽度(Horizontal Resolution)</td><td><%=objBrowsCap.width%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>屏幕高度(Vertical Resolution)</td><td><%=objBrowsCap.height%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>浏览器宽度(AvailWidth)</td><td><%=objBrowsCap.availWidth%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>浏览器高度(AvailHeight)</td><td><%=objBrowsCap.availHeight%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Buffer Depth</td><td><%=objBrowsCap.bufferDepth%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Color Depth</td><td><%=objBrowsCap.colorDepth%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Java Enabled</td><td><%=objBrowsCap.javaEnabled%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Cpu Class</td><td><%=objBrowsCap.cpuClass%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>System Language</td><td><%=objBrowsCap.systemLanguage%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>User Language</td><td><%=objBrowsCap.userLanguage%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>ConnectionType<br> (lan, modem, offline)</td><td><%=objBrowsCap.connectionType%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Is Java Installed</td><td><%=objBrowsCap.Java%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>MSJava Version</td><td><%=objBrowsCap.javaVersion%></td></tr>
  <tr bgcolor="FFFFFF"><td nowrap>Is MSJava Version Equal<br> to "5,0,3016,0"</td><td><%=objBrowsCap.compVersion%></td></tr>
</table>
<%End If
  Set objBrowsCap = nothing
%>
<br><br>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -