纯ASP(VBscript)写的全球IP地址搜索程序

时间:2007-09-27 13:28:00 

程序还不是很精简,以后再修改,程序所用的数据库为-- “冯志宏”-- 所写的--“追捕”--软件中所带IP数据库和“国华软件 Guohua Soft”的作者 --“冯国华”—所写的“全球IP地址分配表.chm”合二为一得到的。感谢“冯志宏”和“冯国华”提供的数据,数据库中还有不少的重复IP地址,希望有心人能将其删除,减小数据库。

我的程序写的还很笨拙,希望大家能多提意见,多多交流,谢谢!

取得的客户端IP一般是202.11.25.1这种,而数据库中的IP格式为202.011.025.001,这就需要将取得的客户端IP转换为与数据库中IP一样的格式,因为目前我们所用的IP是分为4段,每段3位,中间以“.”分隔,所以我的思路是将客户端IP以“.”符号分割为4段,即202/11/25/1 ,然后再分别核对每一段,如果是3位,则不变;如不足3位,为2位,该段前补1个0,为1,同理,则补2个0 。得到格式化后的IP后,去掉IP的最后一段,即取包括“.”的前11位,与数据库中的startip字段的前11位相比较,查找相同的值。

因为从数据库中可以看到,startip和endip的前三段都是一样的,而最后一段不过是内部子网地址,可以去掉,所以只要取startip或endip的任意一个字段的前11位与客户端IP的前11位相比较就可以查到正确的所在地。


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
  <html> 
  <head> 
  <title>Untitled Document</title> 
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
  </head> 
  <body> 
  <% 
   dim finishgetip,showip,allip 
function checkip_trueip() 
   ’取客户端真实IP 
   getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ’如果客户端用了代理服务器,则用Request.ServerVariables("REMOTE_ADDR")方法只能得到空值,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 
   If getclientip = "" Then 
   getclientip = Request.ServerVariables("REMOTE_ADDR")’如果客户端没用代理,则Request.ServerVariables("HTTP_X_FORWARDED_FOR")得到是空值,应该用Request.ServerVariables("REMOTE_ADDR")方法 
   end if 
  checkip_trueip = getclientip 
  end function 
function getaccessrecordset(db,sql,mark,read)’取得Recordset对象 
   set conn=getaccessconn(db)’输入参数为db-数据库的相对路径,sql-SQL语句,mark,read为数据库读取方式,1,1为只读,1,3为读写 
   ’constr="Provider=microsoft.jet.oledb.4.0;"&"data Source="&Server.MapPath(db) 
   ’ conn.open constr 
   set getaccessrecordset=server.CreateObject("ADODB.Recordset") 
   getaccessrecordset.open sql,conn,mark,read 
   End function 
function getaccessconn(db)’取得connection对象 
  set getaccessconn=server.CreateObject("ADODB.Connection") 
   ’constr="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("allcon/#bbsall.mdb") 
   constr="Provider=microsoft.jet.oledb.4.0;"&"data Source="&Server.MapPath(db) 
   getaccessconn.open constr 
   end function 
dim getip 
  ’getip=(trim(request.ServerVariables("REMOTE_ADDR")))’从客户端获取IP 
  ’getip=(trim(request.QueryString("comes"))) ’自己输入IP测试 
  ’response.Write(getip&"<br>") 
 
  function checkip_locations(checkstring) ’返回IP中分隔字符的位置函数 
   checkip_locations=Instr(checkstring,".") ’将位置的值赋予给函数 
  end function 
  ’
  ’以下函数为分割IP,取得每次分割后“.”符号右边的IP剩余的字符串 
  function checkip_left(checkstring) 
   locations_left=checkip_locations(checkstring) ’得到在IP剩余的字符串中“.”第一次出现的位置 
   iplength_left=Len(checkstring) ’取得IP剩余的字符串的长度 
   divide_locations_left=iplength_left-locations_left ’取得在IP剩余的字符串中“.”第一次出现的位置,从右往左数是多少位 
   ipstr_left=Right(checkstring,divide_locations_left) ’取得本次分割后,“.”符号右边的IP剩余的字符串 
   checkip_left=ipstr_left ’将上面得到的字符串赋给函数 
  end function 
  ’
  ’以下函数为分割IP,取得每次分割后“.”符号左边的IP字符串,即将IP分为四段,每一段的字符串 
   
  function checkip_right(checkstring) 
   locations_right=checkip_locations(checkstring) ’取得在IP中“.”第一次出现的位置 
   iplength_right=Len(checkstring) ’取得IP字符串长度 
   divide_locations_right=iplength_right-locations_right ’取得在IP剩余的字符串中“.”第一次出现的位置,从右往左数是多少位 
   ipstr11=Trim(Replace(Left(checkstring,locations_right),".","")) ’将得到的“.”左边的字符串去掉"."符号 
   ’如果IP分为4段后每一段不足3位则补0 
   if Len(ipstr11)="2" then ipstr11="0"&ipstr11 
   if Len(ipstr11)="3" then ipstr11=ipstr11 
   if Len(ipstr11)="1" then ipstr11="00"&ipstr11 
   checkip_right=ipstr11 ’得到“.”符号之前的字符串,即本次分割后得到的IP分割为四段后其中的一段 
  end function 
   
  ’
  ’检查IP是否为内部网IP 
  ’我写的判断是以:127.0.0.0-127.XXX.XXX.255和192.0.0.0-192.XXX.XXX.255为依据,如果为这二者,则是内部网IP,反之为外部网 
  ’判断内部IP的依据是什么,我也不清楚,所以这里要高手多多指点,并加以修正,与我联系 
  function checkiplocal(checkstring) 
   dim re1 
   set re1=new RegExp ’取得正则表达式对象 
   ’re1.pattern中的表达式为,内部网的IP应为127或192开头,中间为0-9中任意1-3个数字加"."组成一段 
   re1.pattern="^(127\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})|(192\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})$"


 

标签:ip,搜索,asp
0
投稿

猜你喜欢

  • python程序中的线程操作 concurrent模块使用详解

    2021-08-28 00:27:39
  • python编程测试电脑开启最大线程数实例代码

    2023-07-07 12:19:46
  • Python matplotlib可视化绘图详解

    2021-11-11 12:03:26
  • Python 中的 else详解

    2021-12-15 09:42:18
  • python因子分析的实例

    2021-12-29 18:20:44
  • Mysql字段为null的加减乘除运算方式

    2024-01-17 23:35:40
  • 详解 MySQL的FreeList机制

    2024-01-28 13:56:44
  • c#如何利用定时器自动备份数据库详解

    2024-01-27 12:11:33
  • JS事件在IE与FF中的区别详细解析

    2023-09-24 23:02:35
  • Python面向对象类的继承实例详解

    2023-04-19 11:06:38
  • 一次MySQL慢查询导致的故障

    2024-01-21 12:18:17
  • Golang控制协程执行顺序方法详解

    2024-02-20 13:00:21
  • 五个方便好用的Python自动化办公脚本的实现

    2022-04-13 10:10:59
  • Ewebeditor及fckeditork单引号的问题

    2010-04-05 21:12:00
  • Python批量启动多线程代码实例

    2021-09-01 04:41:16
  • java前端javascript生成动态表格示例演示

    2023-08-24 11:13:45
  • Django自定义用户表+自定义admin后台中的字段实例

    2022-05-27 08:16:01
  • Python实现输出某区间范围内全部素数的方法

    2022-04-25 10:04:50
  • Python数据结构树与算法分析

    2023-10-10 19:30:18
  • CentOS 8 安装 MySql并设置允许远程连接的方法

    2024-01-28 23:17:11
  • asp之家 网络编程 m.aspxhome.com