asp下比較全面的獲取IP地址的代碼
更新時(shí)間：2007年08月27日 22:47:03 作者：
最簡單的用以下語句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但這種方法對代理服務(wù)器上網(wǎng)的就不準(zhǔn)了,故比較全面的是用下面的方法:
<%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)
%>
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但這種方法對代理服務(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)
%>
相關(guān)文章
現(xiàn)在黑客經(jīng)常測試網(wǎng)站，一些網(wǎng)站經(jīng)常被各種注入，為程序員的成長提供了比較緊迫的環(huán)境，所以大家在寫程序的時(shí)候一定要注意網(wǎng)站安全問題2006-10-10
VBScript ASP CDbl() 函數(shù)轉(zhuǎn)換為雙精度類型
CDbl 函數(shù)用于進(jìn)行從其他數(shù)據(jù)類型到 Double 子類型的國際公認(rèn)的格式轉(zhuǎn)換。例如，十進(jìn)制分隔符和千位分隔符的識別取決于系統(tǒng)的區(qū)域設(shè)置。2011-05-05
很多時(shí)候，我們需要用到定時(shí)生成html頁面的功能，原理簡介：利用文件如index.html的最后修改時(shí)間和當(dāng)前的時(shí)間做比較，當(dāng)時(shí)間差超過一定間隔如2小時(shí)，則調(diào)用相關(guān)頁面進(jìn)行生成新頁面。原始源代碼如下2021-07-07
Asp函數(shù)返回引用類型代碼，需要的朋友可以參考下。2010-03-03
asp重定向頁面的方法總結(jié)...2007-08-08
GetBody asp實(shí)現(xiàn)截取字符串的代碼
GetBody asp實(shí)現(xiàn)截取字符串的代碼...2007-09-09
asp #include命令...2007-09-09
asp之字符串函數(shù)示例...2007-09-09
最近公司開放網(wǎng)站需要用到根據(jù)用戶添加的出生日期得到生肖發(fā)現(xiàn)了這個(gè)函數(shù)。使用起來不錯(cuò)2008-01-01
解決 JScript 中使用日期類型數(shù)據(jù)時(shí)出現(xiàn)類型錯(cuò)誤的問題
在服務(wù)端JScript中，有些時(shí)候需要使用日期類型的數(shù)據(jù)，比如說設(shè)置一個(gè)cookie的到期時(shí)間，更新數(shù)據(jù)庫中的日期字段等。但是按照平常的方法來用js里的date類型數(shù)據(jù)時(shí)，運(yùn)行時(shí)就會發(fā)生錯(cuò)誤。2008-05-05