海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
网上看过不少查询IP的程序，写法不尽相同，但是有些仅仅按单一的方法计算出来的IP地址不准确，有的偏差还是很大的，再上次的文章中，已经把最近的纯真IP数据库转换好给大家了【最新纯真IP数据库（ACCESS格式）http://www.030904.com/blog/blogview.asp?logID=746】，但是怕有些人还是不会利用这么好的资源，今天，就再送大家一个简单的IP查询程序。

我看过有些程序在写的时候利用了Const函数，这样，当你修好程序的时候，就会出现乱码了，这样也是为了他人修改自己的程序，但是如果你理解了Const函数，还是一样可以修改的，这里给大家一个不使用Const函数的ASP代码，大家可以根据自己的需要随意修改：
<%
IP=request("ip")
if IP="" then
IP = Request.ServerVariables("REMOTE_ADDR") 
end if
Function cacuIp(IP)
On Error Resume Next
Dim srIp, aIp
srIp=0
aIp = Split(IP,".")
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("ipdata.mdb")
iIp=cacuIp(IP)
SQL = "SELECT country,city FROM [ipdata] WHERE startid<=" & iIp & " AND endid>=" & iIp
Set rsCnt = CONN.Execute ( SQL )
If rsCnt.Eof Then
sPlace=""
Else
sPlace=rsCnt(0)&" "&rsCnt(1)
End If
Set rsCnt=Nothing
Response.Write("<font color=RED>"&sPlace&"["&IP&"]</font>")
%>
记得根据自己的需要修改数据库的路径，显示的效果为：广东省 电信[113.109.79.246] 样式。

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!