服务器环境变量

服务器环境变量名称	功能简述
服务器的域名	<%=Request.ServerVariables("server_name")%>
服务器的IP地址	<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器操作系统	<%=Request.ServerVariables("OS")%>
服务器解译引擎	<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器软件的名称及版本	<%=Request.ServerVariables("SERVER_soFTWARE")%>
服务器正在运行的端口	<%=Request.ServerVariables("server_port")%>
服务器CPU数量	<%=Request.ServerVariables("NUMBER_OF_prOCESsoRS")%> 个
请求的物理路径	<%=Request.ServerVariables("path_translated")%>
在域名根目录外的到被请求页面的路径	<%=Request.ServerVariables("path_info")%>
发出request的方式	<%=Request.ServerVariables("request_method")%>
通过使用GET方法提交的任何数据	<%=Request.ServerVariables("query_string")%>
程序被调用的路径	<%=Request.ServerVariables("script_name")%>
发出request请求的远端机器的名称	<%=Request.ServerVariables("remote_host")%>
发出request请求的远端机器的IP名称	<%=Request.ServerVariables("remote_addr")%>
client可以request的浏览器类型	<%=Request.ServerVariables("http_user_agent")%>
脚本连接超时时间	<%=Server.ScriptTimeout%> 秒

组件支持情况

<% Dim theInstalledObjects(18) 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.Message" theInstalledObjects(14) = "CDONTS.NewMail" theInstalledObjects(15) = "Persits.MailSender" theInstalledObjects(16) = "LyfUpload.UploadFile" theInstalledObjects(17) = "Persits.Upload.1" theInstalledObjects(18) = "w3.upload" For i=0 to 18 Response.Write "" & vbCrLf Next %>

组件名称

支持及版本

" & theInstalledObjects(i) & " " select case i case 9 Response.Write "(Fso 文本文件读写)" case 10 Response.Write "(ACCESS 数据库)" case 11 Response.Write "(SA-FileUp 文件上传)" case 12 Response.Write "(SA-FM 文件管理)" case 13 Response.Write "(JMail 邮件发送)" case 14 Response.Write "(WIN虚拟SMTP 发信)" case 15 Response.Write "(ASPEmail 邮件发送)" case 16 Response.Write "(LyfUpload 文件上传)" case 17 Response.Write "(ASPUpload 文件上传)" case 18 Response.Write "(w3 upload 文件上传)" end select Response.Write "

" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write "×" Else Response.Write "√ " & getver(theInstalledObjects(i)) & "" End If Response.Write "