月光软件站 - 编程文档 - ASP - 查询ip的函数[来源： ygjwjj(塔克拉玛干---胡杨林)]

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

查询ip的函数[来源： ygjwjj(塔克拉玛干---胡杨林)]

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

'IP/来源
Public Function address(sip)
  Dim aConnStr,aConn,adb
  Dim str1,str2,str3,str4
  Dim num
  Dim country,city
  Dim irs,SQL
  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=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
    adb = "data/ipaddress.mdb"
    aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
    Set AConn = Server.CreateObject("ADODB.Connection")
    aConn.Open aConnStr

    sql="select top 1 country,city from dv_address where ip1 <="&num&" and ip2 >="&num&""
    Set irs=aConn.execute(sql)
    If irs.EOF And irs.bof Then
     country="亚洲"
     city=""
    Else
     country=irs(0)
     city=irs(1)
    End If
    Set irs=Nothing
    Set aConn = Nothing
    SqlQueryNum = SqlQueryNum+1
   End If
   address=country&city
  Else
   address="未知"
  End If
End Function

相关文章：

相关软件：