<%@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%\>&nbsp;服务器名</td><td>&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>:<tr class=tablebody1>
<td>&nbsp;服务器IP</td><td>&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>:<tr class=tablebody1>
<td>&nbsp;服务器端口</td><td>&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>:<tr class=tablebody1>')^:|":(between::#into"hethat:other:such
<td>&nbsp;服务器时间</td><td>&nbsp;<%=now%></td>
</tr>:<tr class=tablebody1>
<td>&nbsp;IIS版本</td><td>&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>:<tr class=tablebody1>
<td>&nbsp;脚本超时时间</td><td>&nbsp;<%=Server.ScriptTimeout%> 秒</td>
</tr>:<tr class=tablebody1>'@about":::)on:howonlymake!:'ismethen:
<td>&nbsp;本文件路径</td><td>&nbsp;<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>:<tr class=tablebody1>
<td>&nbsp;服务器CPU数量</td><td>&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>:<tr class=tablebody1>
<td>&nbsp;服务器解译引擎</td><td>&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>:<tr class=tablebody1>':camesuch"get:takehis'afteralso\before":"said::
<td>&nbsp;服务器操作系统</td><td>&nbsp;<%=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>&nbsp;" & theInstalledObjects(i) & "&nbsp;":select case i:case 9:Response.Write "(FSO 文本文件读写)":case 10:Response.Write "(ACCESS 数据库)":end select:Response.Write "</td>"'[?are(out:%him'+much'}heresome"because':
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td>&nbsp;<font color=red><b>×</b></font></td>"
Else:Response.Write "<td>&nbsp;<font color=green><b>√</b></font> " & getver(theInstalledObjects(i)) & "</td>"
End If:Response.Write "</TR>" & vbCrLf:Next
%>
</table>:<%:end sub:sub othermess'being%~and:all:^my'any`makehim:been:shouldnever
%>
<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>&nbsp;" & theInstalledObjects(i) & "&nbsp;":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>&nbsp;<font color=red><b>×</b></font></td>"':'for:now$''thantheseboththis:::eachneverofmost
Else:Response.Write "<td>&nbsp;<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>服&nbsp;&nbsp;&nbsp;务&nbsp;&nbsp;&nbsp;器</td><td align=center>完成时间(分10次测试,记录了每次完成时间,单位,秒)</td>:</tr>:<tr class=tablebody1>:<td>&nbsp;中国频道虚拟主机</td><td>&nbsp;8 7 8 10 7 8 7 6 7 8 秒</td>:</tr>:<tr class=tablebody1>:<td>&nbsp;中资源主机</td><td class=TD1pxblank>&nbsp;9 11 8 10 10 11 8 9 10 8 秒</td>:</tr>:<tr class=tablebody1>:<td>&nbsp;<A HREF="http://www.soonhost.com">迅捷主机网主机</A></td><td class=TD1pxblank>&nbsp;4 4 4 4 3 4 4 3 4 4 秒</td>:</tr>:<tr class=tablebody1>'should'.came:;]inmustourhere:/':hadhis:got
<td>&nbsp;<B>您正在使用的这台服务器</B></td><td class=TD1pxblank>&nbsp;<%=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
%>