📄 check.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer= True
Session.CodePage=65001
Response.Expires = 0
dim action,i
Dim theInstalledObjects(19)
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"
theInstalledObjects(18) = "Persits.Jpeg"
theInstalledObjects(19) = "SoonBiz.cls_soonfuncs"
action=trim(Request.QueryString ("action"))
if action="" then action="servemess"
top
Select Case action
case "servemess"
call servemess()
case "IIsmess"
call IIsmess()
case "othermess"
call othermess()
case "speedmess"
call speedmess()
case else
call servemess()
end Select
foot()
sub top()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="html" content="no-cache">
<title>迅捷商务-服务器信息查询. 相关网址:http://www.soonbiz.com</title>
<meta name="keywords" content="迅捷商务服务器探针">
<meta name="description" content="迅捷商务中英双语自助网站建设">
<style type="text/css">
body{margin:0px; font:normal 12px 宋体; word-break:break-all; word-wrap:break-word; }
table.TableBorder0{width:95%;}
table.TableBorder1{width:95%;border: 1px; background-color:#848284;}
table.TableBorder2{width:100%;border: 1px; background-color:#848284;}
td{font:normal 12px 宋体; line-height : 18px ;}
tr.tablebody1{background-color: #FFFFFF;}
tr.tablebody2{background-color: #EFEFEF;}
th{background-color: #EFEFEF;line-height : 18px ;font-size: 12px;font-weight:bold;}
img {border:0px; }
a { font:normal 12px 宋体; color:#000000; }
a:hover { color:#428EFF;text-decoration:underline; }
input,select,Textarea,option{font-family:Tahoma,Verdana,""宋体""; font-size: 12px; line-height: 15px;COLOR: #000000;}
hr{height:1px;}
</style>
</head>
<BODY leftMargin=0 topMargin=8 >
<BR><BR><BR><BR>
<%
end sub
Sub foot()
Response.Write "<BR><table cellspacing=0 cellpadding=0 align=center width=750>"
Response.write "<tr>"
Response.write "<td width=20%/><B>请选择您的测试内容:</B></td>"
Response.write "<td width=20%/><A HREF='?action=servemess'>查看服务器有关参数</a></td>"
Response.write "<td width=20%/><A HREF='?action=IIsmess'>查看IIS自带的ASP组件</A></td>"
Response.write "<td width=20%/><A HREF='?action=othermess'>其他组件支持情况</A></td>"
Response.write "<td width=20%/><A HREF='?action=speedmess'>测试服务器运行速度</A></td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "<BR>"
Response.write "<table cellspacing=1 cellpadding=3 align=center>"
Response.write "<tr>"
Response.write "<td Align='center'><hr width=500 size=1>程序制做:<a href='http://www.soonbiz.com' target=_blank title='域名注册 主机租用 网页制做 脚本开发'>迅捷商务</a> Version:1.0</td>"
Response.write "</tr>"
Response.write "</table>"
Response.Write "</body>"
Response.write "</html>"
End Sub
sub servemess
%>
<BR>
<table class=TableBorder1 cellspacing=1 cellpadding=3 align="center">
<tr><th colspan=2>服务器有关参数</th></tr>
<tr class=tablebody1>
<td width=50%\> 服务器名</td><td> <%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr class=tablebody1>
<td> 服务器IP</td><td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr class=tablebody1>
<td> 服务器端口</td><td> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr class=tablebody1>
<td> 服务器时间</td><td> <%=now%></td>
</tr>
<tr class=tablebody1>
<td> IIS版本</td><td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class=tablebody1>
<td> 脚本超时时间</td><td> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr class=tablebody1>
<td> 本文件路径</td><td> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>
<tr class=tablebody1>
<td> 服务器CPU数量</td><td> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr class=tablebody1>
<td> 服务器解译引擎</td><td> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr class=tablebody1>
<td> 服务器操作系统</td><td> <%=Request.ServerVariables("OS")%></td>
</tr>
</table>
<%
end sub
'--------------------------------------------
sub iismess
%>
<BR>
<table class=TableBorder1 cellspacing=1 cellpadding=3 align="center">
<tr class=tablebody2>
<td width=70%><B>组 件 名 称</B></td><td width=30%>支持及版本</td>
</tr>
<%
For i=0 to 10
Response.Write "<TR class=tablebody1>"
Response.write "<TD> " & theInstalledObjects(i) & " "
select case i
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
end select
Response.Write "</td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td> <font color=red><b>×</b></font></td>"
Else
Response.Write "<td> <font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
<%
end sub
sub othermess
%>
<BR><table class=tableborder1 cellspacing=1 cellpadding=3 align="center" >
<tr class=tablebody2>
<td width=70%><B>组 件 名 称</B></td><td width=30%>支持及版本</td>
</tr>
<%
For i=11 to UBound(theInstalledObjects)
Response.Write "<TR class=tablebody1><TD> " & theInstalledObjects(i) & " "
select case i
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(JMail 邮件发送)"
case 14
Response.Write "(CDONTS 邮件发送 SMTP Service)"
case 15
Response.Write "(ASPEmail 邮件发送)"
case 16
Response.Write "(LyfUpload 文件上传)"
case 17
Response.Write "(ASPUpload 文件上传)"
case 18
Response.Write "(AspJpeg 图片处理)"
case 19
Response.Write "(SoonBiz 迅捷中英双语自助建站,http://www.soonbiz.com)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td> <font color=red><b>×</b></font></td>"
Else
Response.Write "<td> <font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
<%
end sub
sub speedmess
dim t1,t2,soonhost,thetime
t1=now
for i=1 to 5000000
soonhost= 1 + 1
next
t2=now
thetime=cstr(int(cdbl((t2-t1)*24*60*60)+0.5))
%>
<BR>
<table class=tableborder1 cellspacing=1 cellpadding=3 align="center" >
<tr class=tablebody2>
<td align=center>服 务 器</td><td align=center>完成时间(分10次测试,记录了每次完成时间,单位,秒)</td>
</tr>
<tr class=tablebody1>
<td> 中国频道虚拟主机</td><td> 8 7 8 10 7 8 7 6 7 8 秒</td>
</tr>
<tr class=tablebody1>
<td> 中资源主机</td><td class=TD1pxblank> 9 11 8 10 10 11 8 9 10 8 秒</td>
</tr>
<tr class=tablebody1>
<td> <A HREF="http://www.soonhost.com">迅捷主机网主机</A></td><td class=TD1pxblank> 4 4 4 4 3 4 4 3 4 4 秒</td>
</tr>
<tr class=tablebody1>
<td> <B>您正在使用的这台服务器</B></td><td class=TD1pxblank> <%=thetime%> 秒</td>
</tr>
</table>
<%
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
'================================================
'程序制做:迅捷商务. http://www.soonbiz.com
'提供中英双语网站开发建设,免费下载中英双语建站系统
'业务范围:域名注册,虚拟主机,网站推广,网站建设,网站翻译
'=================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -