env.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

<!--#include file ="setup.asp"-->
<%validate "login.asp",5
Call Top
Call table()
Response.Write("<style><!--	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>")

%>
<center>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"> 
	<b>&nbsp;■ 主机环境及组件支持情况！</b></td>
	</tr></table>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR> 
	<TD  height=12 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"> 服务器环境现况:</TD>
	</TR>
    </table>
	<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width=100%>
	<tr  bgColor="#ecf5ff">
	<td width="50%" align="center"  >服务器环境变量</td>
	<td height="8" align="center" width="50%" >功能简述</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("server_name")%>　</td>
	<td height="4" width="50%">服务器的域名</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("LOCAL_ADDR")%>　</td>
	<td height="4" width="50%">服务器的IP地址</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("OS")%>　</td>
	<td height="4" width="50%">服务器操作系统</td>
	</tr>
	<tr>
	<td width="50%"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
	<td height="4" width="50%">服务器解译引擎</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("SERVER_SOFTWARE")%>　</td>
	<td height="4" width="50%">服务器软件的名称及版本</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("server_port")%>　</td>
	<td height="5" width="50%">服务器正在运行的端口</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
	<td height="5" width="50%">服务器CPU数量</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("path_translated")%>　</td>
	<td height="4" width="50%">请求的物理路径</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("path_info")%>　</td>
	<td height="4" width="50%">在域名根目录外的到被请求页面的路径</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("request_method")%>　</td>
	<td height="4" width="50%">发出request的方式</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("query_string")%>　</td>
	<td height="4" width="50%">通过使用GET方法提交的任何数据</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("script_name")%>　</td>
	<td height="4" width="50%">程序被调用的路径</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("remote_host")%>　</td>
	<td height="4" width="50%">发出request请求的远端机器的名称</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("remote_addr")%>　</td>
	<td height="5" width="50%">发出request请求的远端机器的IP名称</td>
	</tr>
	<tr>
	<td width="50%"><%=Request.ServerVariables("http_user_agent")%>　</td>
	<td height="4" width="50%">client可以request的浏览器类型</td>
	</tr>
	<tr>
	<td width="50%"><%=Server.ScriptTimeout%> 秒</td>
	<td height="4" width="50%">脚本连接超时时间</td>
	</tr>
	</table>

<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR> 
<TD  height=12 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"> 服务器组件支持现况::</TD>
</TR>
</table>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width=100%>
<tr bgColor="#ecf5ff">
<td width="65%" align="center"> 组件名称</td><td width="15%" align="center">支持及版本</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.SMTPMail"
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
Response.Write "</table>"
Response.write "</center></div>"







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



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
Htmlend
%>