📄 sysinfo.asp
字号:
<%@ Language="VBScript" %>
<!--#include file="seeadmin.asp"-->
<%
call gadmin
%>
<%
Dim theInstalledObjects(24)
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) = "LyfUpload.UploadFile"
theInstalledObjects(14) = "Persits.Upload.1"
theInstalledObjects(15) = "w3.upload"
theInstalledObjects(16) = "JMail.SmtpMail"
theInstalledObjects(17) = "CDONTS.NewMail"
theInstalledObjects(18) = "Persits.MailSender"
theInstalledObjects(19) = "SMTPsvg.Mailer"
theInstalledObjects(20) = "DkQmail.Qmail"
theInstalledObjects(21) = "Geocel.Mailer"
theInstalledObjects(22) = "IISmail.Iismail.1"
theInstalledObjects(23) = "SmtpMail.SmtpMail.1"
'检查组件是否被支持
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
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>服务器信息</TITLE>
<style>
<!--
A { COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:hover { COLOR: green; FONT-FAMILY: 宋体; TEXT-DECORATION: underline}
.A2 { COLOR: green; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
.A2:hover { COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: underline}
body {
font-family: 宋体;
font-size: 9pt;
background-color: #CCCCFF;
}
td { font-family: 宋体; font-size: 9pt}
.input { BACKGROUND-COLOR: #ffffff;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt}
.backc { BACKGROUND-COLOR: #3F8805;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt;color:white}
.style1 {color: #EEFEE0}
.style2 {color: #000000}
-->
</STYLE>
</HEAD>
<BODY>
<table width="50%" border="0" align="center" height="98">
<tr>
<td>
<font color=green>服务器的有关参数</font>
<table width=450 border=0 cellpadding=0 cellspacing=0 bordercolor="#D4BFFF" bgcolor="#3F8805">
<tr><td>
<table width=450 border=0 cellpadding=0 cellspacing=1 bordercolor="#D4BFFF">
<tr bgcolor="#EEFEE0" height=18>
<td align=left bgcolor="#D4BFFF"><span class="style1"> <span class="style2">服务器名</span></span></td>
<td bgcolor="#D4BFFF"><span class="style1"> <span class="style2"><%=Request.ServerVariables("SERVER_NAME")%></span></span></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 服务器IP</td><td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 服务器端口</td>
<td> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 服务器时间</td>
<td bgcolor="#D4BFFF"> <%=now%></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> IIS版本</td>
<td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 脚本超时时间</td><td> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 本文件路径</td>
<td> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 服务器CPU数量</td>
<td> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr bgcolor="#D4BFFF" height=18>
<td align=left> 服务器解译引擎</td>
<td> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left bgcolor="#D4BFFF"> 服务器操作系统</td><td bgcolor="#D4BFFF"> <%=Request.ServerVariables("OS")%></td>
</tr>
</table>
</td></tr>
</table>
<br>
<font color=green>组件支持情况</font>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then
Response.Write "<br>您指定的组件的检查结果："
If Not IsObjInstalled(strClass) then
Response.Write "<br><font color=red>很遗憾，该服务器不支持" & strclass & "组件！</font>"
Else
Response.Write "<br><font color=green>恭喜！该服务器支持" & strclass & "组件。该组件版本是：" & getver(strclass) & "</font>"
End If
Response.Write "<br>"
end if
%>
<br>■ IIS自带的ASP组件
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>
<table border=0 width=450 cellspacing=1 cellpadding=0>
<tr height=18 style="color:#ffffff" align=center>
<td width=350>组 件 名 称</td><td width=100>支持及版本</td>
</tr>
<%
dim i
For i=0 to 10
Response.Write "<TR bgcolor=#D4BFFF align=center height=18><TD align=left> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td align=left> <font color=red><b>×</b></font></td>"
Else
Response.Write "<td align=left> <font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
</td></tr>
</table>
<br>■ 常见的文件上传和管理组件
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>
<table border=0 width=450 cellspacing=1 cellpadding=0>
<tr height=18 style="color:#ffffff" align=center>
<td width=350>组 件 名 称</td><td width=100>支持及版本</td>
</tr>
<%
For i=11 to 15
Response.Write "<TR bgcolor=#D4BFFF align=center height=18><TD align=left> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(LyfUpload 文件上传)"
case 14
Response.Write "(ASPUpload 文件上传)"
case 15
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td align=left> <font color=red><b>×</b></font></td>"
Else
Response.Write "<td align=left> <font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
</td></tr>
</table>
<br>■ 常见的收发邮件组件
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>
<table border=0 width=450 cellspacing=1 cellpadding=0>
<tr height=18 style="color:#ffffff" align=center>
<td width=350>组 件 名 称</td><td width=100>支持及版本</td>
</tr>
<%
theInstalledObjects(16) = "JMail.SMTPMail"
theInstalledObjects(17) = "CDONTS.NewMail"
theInstalledObjects(18) = "Persits.MailSender"
theInstalledObjects(19) = "SMTPsvg.Mailer"
theInstalledObjects(20) = "dkQmail.Qmail"
theInstalledObjects(21) = "Geocel.Mailer"
theInstalledObjects(22) = "iismail.iismail.1"
theInstalledObjects(23) = "SmtpMail.SmtpMail.1"
For i=16 to 23
Response.Write "<TR bgcolor=#D4BFFF align=center height=18><TD align=left> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 16
Response.Write "(w3 Jmail 收发信)"
case 17
Response.Write "(WIN虚拟SMTP 发信)"
case 18
Response.Write "(ASPemail 发信)"
case 19
Response.Write "(ASPmail 发信)"
case 20
Response.Write "(dkQmail 发信)"
case 21
Response.Write "(Geocel 发信)"
case 22
Response.Write "(IISemail 发信)"
case 23
Response.Write "(SMTPmail 发信)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td align=left> <font color=red><b>×</b></font></td>"
Else
Response.Write "<td align=left> <font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
</td></tr>
</table>
<br>
<font color=green>其他组件支持情况检测</font><br>
在下面的输入框中输入你要检测的组件的ProgId或ClassId。
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>
<table border=0 width=450 cellspacing=1 cellpadding=0>
<FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
<tr bgcolor="#EEFEE0" height=18>
<td height=30 align=center bgcolor="#D4BFFF"><input class=input type=text value="" name="classname" size=40>
<INPUT type=submit value="确定" class=backc id=submit1 name=submit1>
<INPUT type=reset value="重填" class=backc id=reset1 name=reset1>
</td>
</tr>
</FORM>
</table>
</td></tr>
</table>
<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr>
<td height="25" align=center> 可以网络在线 <a href="http://www.koyee.com">http://www.koyee.com</a></td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -