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 |