我昨天利用网友spm的ip搜索程序封装成了插件，经过几次试用发觉仍可能存在问题，所以在此欢迎网友报名测试，因为仅仅是测试所以限制名额六人，其他人也不用急，如果测试没有发现大问题我会马上发布的。
这个IP插件主要功能是显示访问者的IP地址和地域信息。
注意事项：
1.如果你的插件管理器中以前没有安装任何插件，首次就使用本插件可能找不到插件的位置。可能是因为我建立了子目录的缘故～～先不管它了.........
2.使用插件必须是在你的站点中已经存在的asp页面，因为要拷贝文件所以要确定路径。
3.请测试的人留下E_Mail，我会在晚上六点前发送，还有尽快在本贴中回复使用情况。

插件使用后在网页中插入的代码:
<%

    ' Copyright 1997-2001 Powered By spm All Rights Reversed!
    ' Website: shude.126.com spm.yeah.net
    ' Email: spm@yeah.net sunpm@hotmail.com
    ' OICQ: 1271025

    Server.ScriptTimeOut=20        '设定超时为20秒
    Response.Expires=-1            '总是刷新
    DSNless = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("fullip.mdb")

    Dim userip,ip1,ip2,ip3,ip4,i,cover,temp

    '获取访问者IP地址
    if Request.form("inputip")<>"" Then
        userip=Trim(Request.form("inputip"))
    else
        userip=Trim(Request("REMOTE_ADDR"))
    end if

    '截取第1段IP
    ip1=Left(userip,Instr(userip,".")-1)
    userip=Mid(userip,Instr(userip,".")+1)
    '截取第2段IP
    ip2=Left(userip,Instr(userip,".")-1)
    Do While Len(ip2)<>3        '添加"0"
        ip2="0"&ip2
    Loop
    userip=Mid(userip,Instr(userip,".")+1)
    '截取第3段IP
    ip3=Left(userip,Instr(userip,".")-1)
    Do While Len(ip3)<>3        '添加"0"
        ip3="0"&ip3
    Loop
    '截取第4段IP
    ip4=Mid(userip,Instr(userip,".")+1)
    Do While Len(ip4)<>3        '添加"0"
        ip4="0"&ip4
    Loop

    '建立纪录集
    SQL="SELECT * FROM ip WHERE "& CCur(ip1&ip2&ip3&ip4) &" BETWEEN ipfrom1*1000000+ipfrom2 AND ipto1*1000000+ipto2 ORDER BY ((ipto1-ipfrom1)*1000000+ipto2-ipfrom2)"

    Set rs_ip = Server.CreateObject("ADODB.Recordset")
    rs_ip.ActiveConnection = DSNless
    rs_ip.Source = SQL
    rs_ip.CursorType = 1
    rs_ip.CursorLocation = 2
    rs_ip.LockType = 3
    rs_ip.Open()

    If rs_ip.eof and rs_ip.bof then
        info = "对不起，未知地址数据!"
    Else
        info = "您位于: " & rs_ip("nation")
        If rs_ip("address")<>"" Then info = info & "·"&rs_ip("address")
    End If

    rs_ip.Close()
    Set rs_ip=nothing

%>

1.代码比较工整;
2.使用简单
3.自带IP数据库
4.使用后再网页中出现" 您的IP: xxx.xxx.xxx.xxx 您位于: xxx "
5.总体感觉不错,懂asp的朋友还可以自行修改以更符合自己程序的需要
6.不足,没有使用配置界面

老大,我上不去你的网站,能不能把登陆教程发到8195ligen@263.net,谢了!

我也测试一下啊！
janssenkm@km169.net

这个插件中就带了一个啊

还有俺，也要。
qjglmail@sohu.com