📄 right.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--#include file="../conn2.asp"-->
<!--#include file="set.asp"--><head>

<LINK 
href="/css.css" type=text/css rel=stylesheet>

<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</head>


<br>
<table width=622 border="0"  align=center cellpadding="2" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
  <tr bgcolor="f1f1f1" class=a1> 
    <td  width="614" height="25" colspan="2" align="center"><span class="style1">主机环境变量</span></td>
</tr>
  <tr bgcolor="#FFFFFF" class=a3> 
    <td width="141" height="25">服务器的域名</td>
    <td width="463" height="25"><%=Request.ServerVariables("server_name")%></td>
</tr>
  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">服务器的IP地址</td>
    <td width="463" height="25"><%=Request.ServerVariables("LOCAL_ADDR")%> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a3> 
    <td height="25" width="141">服务器操作系统</td>
    <td width="463" height="25"><%=Request.ServerVariables("OS")%> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">服务器解译引擎</td>
    <td width="463" height="25"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a3> 
    <td height="25" width="141">服务器软件的名称及版本</td>
    <td width="463" height="25"><%=Request.ServerVariables("SERVER_SOFTWARE")%> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">服务器正在运行的端口</td>
    <td width="463" height="25"><%=Request.ServerVariables("server_port")%> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a3> 
    <td height="25" width="141">服务器CPU数量</td>
    <td width="463" height="25"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
</tr>

  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">服务器Application数量</td>
    <td width="463" height="25"><%=Application.Contents.Count%></td>
</tr>

  <tr bgcolor="#FFFFFF" class=a3> 
    <td height="25" width="141">服务器Session数量</td>
    <td width="463" height="25"><%=Session.Contents.Count%></td>
</tr>

  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">请求的物理路径</td>
    <td width="463" height="25"><%=Request.ServerVariables("path_translated")%> 
  </tr>
  <tr bgcolor="#FFFFFF" class=a3> 
    <td height="25" width="141">请求的URL</td>
    <td width="463" height="25">http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">服务器当前时间</td>
    <td width="463" height="25"><%=now()%> </tr>
  <tr bgcolor="#FFFFFF" class=a4> 
    <td height="25" width="141">脚本连接超时时间</td>
    <td width="463" height="25"><%=Server.ScriptTimeout%> 秒</td>
</tr>
</table>
<table width="622" border=0 align=center cellpadding=3 cellspacing=1 bordercolordark="#FFFFFF">
  <tr bgcolor="#FFFFFF" > 
    <td width="57%" height="25">&nbsp;组件名称</td>
    <td width="41%" height="25">支持及版本</td> 
</tr> 
<% 
Dim theInstalledObjects(16) 
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) = "MSWC.PermissionChecker" 
theInstalledObjects(7) = "Scripting.FileSystemObject" 
theInstalledObjects(8) = "adodb.connection" 
theInstalledObjects(9) = "SoftArtisans.FileUp" 
theInstalledObjects(10) = "SoftArtisans.FileManager" 
theInstalledObjects(11) = "JMail.Message" 
theInstalledObjects(12) = "CDONTS.NewMail" 
theInstalledObjects(13) = "Persits.MailSender" 
theInstalledObjects(14) = "LyfUpload.UploadFile" 
theInstalledObjects(15) = "Persits.Upload.1" 
theInstalledObjects(16) = "w3.upload" 
For i=0 to 16 
Response.Write "<TR ><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;" 
select case i 
case 7 
Response.Write "(FSO 文本文件读写)" 
case 8 
Response.Write "(ACCESS 数据库)" 
case 9 
Response.Write "(SA-FileUp 文件上传)" 
case 10 
Response.Write "(SA-FM 文件管理)" 
case 11 
Response.Write "(JMail 邮件发送)" 
case 12 
Response.Write "(WIN虚拟SMTP 发信)" 
case 13 
Response.Write "(ASPEmail 邮件发送)" 
case 14 
Response.Write "(LyfUpload 文件上传)" 
case 15 
Response.Write "(ASPUpload 文件上传)" 
case 16 
Response.Write "(w3 upload 文件上传)" 
end select 
Response.Write "</font></td><td height=25>" 
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
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  
%> 
</table>
⌨️ 快捷键说明

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