ip.asp

来自「销售系统SQL」· ASP 代码 · 共 34 行

<%
sIp = Request.ServerVariables("REMOTE_ADDR") 

Function cacuIp(sIP)
On Error Resume Next
Dim srIp, aIp
srIp=0
aIp = Split(sIP,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For i=0 To 3
srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function 

Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dbIpAddress.mdb")

iIp=cacuIp(sIp)
strSQL = "SELECT country,city FROM tblIPAddress WHERE ip1<=" & iIp & " AND ip2>=" & iIp
Set rsCnt = connCnt.Execute ( strSQL )
If rsCnt.Eof Then
sPlace="[其它]"
Else
sPlace=rsCnt(0)&" "&rsCnt(1)
End If
Set rsCnt=Nothing

Response.Write "你的IP所在地为："&sPlace
%>