?? right.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"> 組件名稱</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> " & theInstalledObjects(i) & "<font color=888888> "
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 + -