1.网上流传方法：

<%
Function GetIP()
    GetIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If GetIP = "" or IsNull(GetIP) Then GetIP = Request.ServerVariables("REMOTE_ADDR")
End Function
%>

2.Dvbbs获取IP方法

<%
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)
        actforip=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)
        actforip=Request.ServerVariables("REMOTE_ADDR")
    Else
        strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        actforip=Request.ServerVariables("REMOTE_ADDR")
    End If
    getIP = CheckStr(Trim(Mid(strIPAddr, 1, 30)))
End Function

Function Checkstr(Str)
    If Isnull(Str) Then
        CheckStr = ""
        Exit Function
    End If
    Str = Replace(Str,Chr(0),"")
    CheckStr = Replace(Str,"'","''")
End Function
%>

上一篇: 让FlashFXP密码变明文
下一篇: 实现Web页面内容动态改变的dhtml操作
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: