asp根据ip跳转域名

<%
Dim userIP
userIP = Request.ServerVariables("REMOTE_ADDR")

' 假设我们有一个IP地址范围与域名的映射表
Dim ipRangeDomainMap
ipRangeDomainMap = Array(
    Array("192.168.1.0", "255.255.255.0", "http://example1.com"),
    Array("192.168.2.0", "255.255.255.0", "http://example2.com")
)

Dim redirectURL
redirectURL = ""

For i = 0 To UBound(ipRangeDomainMap)
    Dim ipRange, subnetMask, domain
    ipRange = ipRangeDomainMap(i)(0)
    subnetMask = ipRangeDomainMap(i)(1)
    domain = ipRangeDomainMap(i)(2)
    
    If InStr(ipRange, ".") > 0 Then
        Dim ipParts, maskParts, userIpParts
        ipParts = Split(ipRange, ".")
        maskParts = Split(subnetMask, ".")
        userIpParts = Split(userIP, ".")
        
        Dim match As Boolean = True
        For j = 0 To 3
            If (CLng(ipParts(j)) And CLng(maskParts(j))) <> CLng(userIpParts(j)) Then
                match = False
                Exit For
            End If
        Next
        
        If match Then
            redirectURL = domain
            Exit For
        End If
    End If
Next

If redirectURL <> "" Then
    Response.Redirect(redirectURL)
Else
    Response.Write("Welcome to the default site.")
End If
%>