ServerVariables属性(参数)的一些说明

  取上一页地址
Request.ServerVariables("HTTP_REFERER")

'取服务器的名称1
Request.ServerVariables("SERVER_NAME")

'取服务器的名称2
Request.ServerVariables("HTTP_HOST")

'取服务器IP
Request.ServerVariables("LOCAL_ADDR")

'取用户IP
Request.ServerVariables("Remote_Host")

'取用户真实IP1
Request.serverVariables("REMOTE_ADDR")

'取用户真实IP函数

Function GetRealIP()  GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  IF(GetRealIP = "")THEN GetRealIP = Request.ServerVariables("REMOTE_ADDR")  End Function

'取服务器端口
Request.ServerVariables("SERVER_PORT")

'取服务器操作系统
Request.ServerVariables("OS")

'取服务器的绝对路径
Request.ServerVariables("APPL_PHYSICAL_PATH")

'取本文件的绝对路径1
Requet.ServerVariables("PATH_TRANSLATED")

'取本文件的绝对路径2
Server.mappath(Request.ServerVariables("script_NAME"))

'取本文件的相对路径1
Request.ServerVariables("URL")

'取本文件的相对路径2
Request.ServerVariables("script_NAME")

'取本文件的相对路径3
Request.ServerVariables("PATH_INFO")

'取地址栏后的参数
Request.ServerVariables("QUERY_STRING")

'取服务器系统信息
Request.ServerVariables("HTTP_USER_AGENT")

'服务器组件检测

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("Persits.Upload")=True)THEN  ’ Response.Write "支持AspUpload组件"  ’ELSE  ’ Response.Write "不支持AspUpload组件"  ’END IF

'取客户端语言环境
^!Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

' 取客户端信息:HTTP_USER_AGENT
^!Request.ServerVariables("HTTP_USER_AGENT")

'取表单(Form)值元素值
Request.Form("^!")

'取URL传递的值
Request.QueryString("^!")

'取完整URL地址

Function GetUrl()  GetUrl="http://"&Request.ServerVariables("SERVER_N ... .ServerVariables("URL")  IF(Request.ServerVariables("QUERY_STRING")<>"")THEN GetURL=GetUrl&"?"& Request.ServerVariables("QUERY_STRING")  End Function