您所在的位置:小祥子 » 编程 » ASP » 正文

ASP常用系统检测代码

时间:2015-02-17 编辑:本站 来源:本站原创

这些代码常用于后台的主页,让你对系统的各个信息做一个了解。

服务器名:<%=Request.ServerVariables("SERVER_NAME")%>

服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%>

服务器端口:<%=Request.ServerVariables("SERVER_PORT")%>

服务器时间:<%=now%>

当前文件的绝对路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>

浏览器版本:<%=Request.ServerVariables("Http_User_Agent")%>

脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>

是否支持Jmail

<%If IsObjInstalled("JMail.Message") Then%>
          Jmail4.3邮箱组件支持
            <%elseIf IsObjInstalled("JMail.SMTPMail") then%>
            Jmail4.2组件支持
            <%else%>
            不支持Jmail组件
          <%end if%>

是否支持FSO

<%If IsObjInstalled("Scripting.FileSystemObject") then%>FSO支持
<%else%>不支持FSO组件
<%end if%>

以上两个组件判断需要以下方法

<%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
%>