服务器有关的变量
"
divMNBoard "ASP脚本解译引擎",ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion,2
divMNBoard "检取ISAPIDLL的metabase路径",request.ServerVariables("APPL_MD_PATH"),1
divMNBoard "显示站点物理路径",request.ServerVariables("APPL_PHYSICAL_PATH"),2
divMNBoard "路径信息",request.ServerVariables("PATH_INFO"),1
divMNBoard "显示请求机器IP地址",request.ServerVariables("REMOTE_ADDR"),2
divMNBoard "服务器IP地址",Request.ServerVariables("LOCAL_ADDR"),1
divMNBoard "显示执行SCRIPT的虚拟路径",request.ServerVariables("SCRIPT_NAME"),2
divMNBoard "返回服务器的主机名，DNS别名，或IP地址",request.ServerVariables("SERVER_NAME"),1
divMNBoard "返回服务器处理请求的端口",request.ServerVariables("SERVER_PORT"),2
divMNBoard "协议的名称和版本",request.ServerVariables("SERVER_PROTOCOL"),1
divMNBoard "服务器的名称和版本",request.ServerVariables("SERVER_SOFTWARE"),2
divMNBoard "服务器操作系统",Request.ServerVariables("OS"),1
divMNBoard "脚本超时时间",Server.ScriptTimeout&"秒",2
divMNBoard "服务器CPU数量",Request.ServerVariables("NUMBER_OF_PROCESSORS")&"个",1
Response.Write"
组件支持情况
"
Response.Write"
"
Dim strClass
strClass = Trim(Request("classname"))
If strClass<>"" then
Response.Write "
您指定的组件的检查结果："
If Not IsObjInstalled(strClass) then
Response.Write "很遗憾，该服务器不支持" & strclass & "组件！"
Else
Response.Write "恭喜！该服务器支持" & strclass & "组件。"
End If
Response.Write "
"
end if
Response.Write"
IIS自带组件
"
dim i,S,S1,Style
For i=0 to 10
If I mod 2=0 Then style=1 Else Style=2
S=""
select case i
case 9
S= "(FSO 文本文件读写)"
case 10
S= "(ACCESS 数据库)"
end select
If Not IsObjInstalled(theInstalledObjects(i)) Then
S1= "
×"
Else
S1="
√"
End If
divMNBoard theInstalledObjects(i)&S,S1,Style
Next
Response.Write"
其他常见组件
"
For i=11 to UBound(theInstalledObjects)
If I mod 2=0 Then style=1 Else Style=2
S=""
select case i
case 11
S= "(SA-FileUp 文件上传)"
case 12
S= "(SA-FM 文件管理)"
case 13
S="(JMail 邮件发送)"
case 14
S="(CDONTS 邮件发送 SMTP Service)"
case 15
S="(ASPEmail 邮件发送)"
case 16
S="(LyfUpload 文件上传)"
case 17
S="(ASPUpload 文件上传)"
end select
If Not IsObjInstalled(theInstalledObjects(i)) Then
S1= "
×"
Else
S1="
√"
End If
divMNBoard theInstalledObjects(i)&S,S1,Style
Next
Response.Write"