最簡(jiǎn)單的用以下語(yǔ)句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但這種方法對(duì)代理服務(wù)器上網(wǎng)的就不準(zhǔn)了,故比較全面的是用下面的方法:
復(fù)制代碼 代碼如下:
%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write(ip)
%>
您可能感興趣的文章:- Android手機(jī)獲取IP地址的兩種方法
- Linux下Python獲取IP地址的代碼
- JS不能跨域借助jquery獲取IP地址的方法
- PowerShell腳本實(shí)現(xiàn)網(wǎng)卡DHCP自動(dòng)獲取IP地址、設(shè)置靜態(tài)IP地址的方法
- js獲取IP地址的方法小結(jié)
- java獲取ip地址示例
- java中通過網(wǎng)卡名稱獲取IP地址
- 在InstallShield中通過主機(jī)名獲取IP地址的代碼
- 安卓 獲取手機(jī)IP地址的實(shí)現(xiàn)代碼
