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