server.asp

电子商务网络购物系统

<!--#include file="conn.asp" -->
<%
select case Request("menu")

case "components"
components

case "serverpara"
serverpara

end select

sub serverpara

%>
<div align="center"><b>服务器环境变量</b><br><br><br>
  <table border="0" cellpadding="2" cellspacing="1" width="90%">
    <tr> 
      <td width="50%">服务器环境变量名称</td>
      <td>功能简述</td>
    </tr>
    <tr> 
      <td width="50%"><font size="1">服务器的域名</font></td>
      <td><font size="1"><%=Request.ServerVariables("server_name")%></font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">服务器的IP地址</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("LOCAL_ADDR")%></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">服务器操作系统</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("OS")%>　</font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">服务器解译引擎</font></td>
      <td height="4"><font size="1"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">服务器软件的名称及版本</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("SERVER_soFTWARE")%>　</font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">服务器正在运行的端口</font></td>
      <td height="5"><font size="1"><%=Request.ServerVariables("server_port")%>　</font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">服务器CPU数量</font></td>
      <td height="5"><font size="1"><%=Request.ServerVariables("NUMBER_OF_prOCESsoRS")%> 个</font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">请求的物理路径</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("path_translated")%></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">在域名根目录外的到被请求页面的路径</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("path_info")%></font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">发出request的方式</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("request_method")%></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">通过使用GET方法提交的任何数据</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("query_string")%></font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">程序被调用的路径</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("script_name")%></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">发出request请求的远端机器的名称</font></td>
      <td height="4"><font size="1"><%=Request.ServerVariables("remote_host")%></font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">发出request请求的远端机器的IP名称</font></td>
      <td height="5"><font size="1"><%=Request.ServerVariables("remote_addr")%></font></td>
    </tr>
    <tr class=a3> 
      <td width="50%"><font size="1">client可以request的浏览器类型</font></td>
      <td nowrap="nowrap"><font size="1"><%=Request.ServerVariables("http_user_agent")%></font></td>
    </tr>
    <tr class=a4> 
      <td width="50%"><font size="1">脚本连接超时时间</font></td>
      <td height="4"><font size="1"><%=Server.ScriptTimeout%> 秒</font></td>
    </tr>
  </table>
</div>
<%
end sub

sub components
%>

<div align="center"><b>组件支持情况 </b><br><br>
<table border=0 width="90%" cellspacing=1 cellpadding=0>
<tr>
<td width="50%"> 组件名称</td><td width="20%">支持及版本</td>
</tr>
<%
Dim theInstalledObjects(18)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.Message"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "w3.upload"
For i=0 to 18
Response.Write "<TR><TD>&nbsp;" & theInstalledObjects(i) & "<font color=#888888>&nbsp;"
select case i
case 9
Response.Write "(Fso 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(JMail 邮件发送)"
case 14
Response.Write "(WIN虚拟SMTP 发信)"
case 15
Response.Write "(ASPEmail 邮件发送)"
case 16
Response.Write "(LyfUpload 文件上传)"
case 17
Response.Write "(ASPUpload 文件上传)"
case 18
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table></div>
<%
end sub

''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>