asp 关于网页留言本显示IP和地区

来源：百度知道 编辑：UC知道 时间：2024/06/29 23:38:23
关于asp,有谁会弄显示留言者的IP地址和地区的呢?

留言本网页的格式如下:
(客户) 来自 (地区) IP:(IP)

要具体点的,我是新手.
(完整代码加在哪里,我有下载了一个IP数据库,如何链接.)

谢谢

先获取用户IP地址.

用:Request.ServerVariables("REMOTE_ADDR")

然后跟据IP查询IP数据库.

这是一个跟据IP查地址的函数,里面包含连接IP数据,你跟据自己的情况,改一下IP数据库地址就可以用.
Public Function LookAdd(Sip)
Dim Str1,Str2,Str3,Str4
Dim Num
Dim Irs
If IsNumeric(Left(sip,2)) Then
If Sip="127.0.0.1" Then sip="192.168.0.1"
Str1=Left(Sip,InStr(Sip,".")-1)
Sip=Mid(Sip,InStr(Sip,".")+1)
Str2=Left(Sip,InStr(Sip,".")-1)
Sip=Mid(Sip,InStr(Sip,".")+1)
Str3=Left(Sip,InStr(Sip,".")-1)
Str4=Mid(Sip,InStr(Sip,".")+1)
If IsNumeric(Str1)=0 Or isNumeric(Str2)=0 Or isNumeric(Str3)=0 Or isNumeric(Str4)=0 Then
Else
num=CInt(Str1)*256*256*256+CInt(Str2)*256*256+CInt(Str3)*256+CInt(Str4)-1
Dim adb,aConnStr,AConn
adb = "IPDATA/ipaddress.mdb"
aConnStr = "Provider = Microsoft.