服务器有关参数
服务器名	<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP	<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口	<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间	<%=now%>
IIS版本	<%=Request.ServerVariables("SERVER_SOFTWARE")%>
脚本超时时间	<%=Server.ScriptTimeout%> 秒
服务器CPU数量	<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个
服务器解译引擎	<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统	<%=Request.ServerVariables("OS")%>
FSO读写	<%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%> <%if IsObjInstalled("Scripting.FileSystemObject") then response.write ("已安装") else response.write ("未安装") end if%>
程序制作	版权所有：阿达工作室