 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@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 \\\'///////////////////////////////////////////////////////// \\\'程序还不是很精简，以后再修改 \\\'数据库中还有不少的重复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位相比较就可以查到准确的所在地 \\\'/////////////////////////////////////////////////////////////// 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})$" re1.global=false re1.Ignorecase=false checkiplocal=re1.test(checkstring) set re1=nothing end function \\\'////////////////////////////////////////////////////////////////////// function checkip_remote(checkstring) dim iplength \\\'IP字符串的长度 dim locations \\\'"."字符出现的位置 iplength=Len(checksting) locations=Instr(checkstring,".") \\\'从左到右检索“.”符号在IP字符串中第一次出现的位置 \\\'以“.”字符将IP分割为4段 locations2=iplength-locations ipstring1=Left(checkstring,locations) ipstring2=Right(checkstring,locations2) end function \\\'///////////////////////////////////////////////////////// \\\'///////////////////////////////////////////////////////// ipinfo_local="您的IP是内部网IP!" ipinfo_remote="外部网IP!" getip=checkip_trueip() currentip=checkiplocal(getip) \\\'调用checkiplocal（）函数对得到的IP进行检查，确定是内部网地址还是外部网地址 \\\'if currentip=true then\\\'测试代码 \\\'response.Write(ipinfo_local) if currentip=true then \\\'为假 response.Write(ipinfo_local)\\\'说明为内部网IP else \\\'进行转变 \\\'以下为循环提取并按位补0将IP分为4段 locations=checkip_locations(getip)\\\'取得“.”在第一次分割前在IP中第一次出现的位置 iplength=Len(getip) \\\'取得客户端IP的长度 divide_locations=iplength-locations \\\'取得将客户端IP从右向左数到IP从左往右数第一个“.”的位置 ipstr1=Trim(Replace(Left(getip,locations),".","")) ipstr2=Right(getip,divide_locations)\\\'取得第一次分割后客户端右边剩下的数值 \\\'假如IP分为4段后每一段不足3位则补0 if Len(ipstr1)="2" then ipstr1="0"&ipstr1 \\\'长度为二，不足三位，在字符串之前补一个0 if Len(ipstr1)="3" then ipstr1=ipstr1 \\\'据上类推 if Len(ipstr1)="1" then ipstr1="00"&ipstr1 \\\'这时的ipstr1为IP的第一段 ipstr12=checkip_right(ipstr2) \\\'这时的ipstr12为IP的第二段 ipstr122=checkip_left(ipstr2) ipstr13=checkip_right(ipstr122) \\\'这时的ipstr13为IP的第三段 ipstr14=checkip_left(ipstr122) \\\'这时的ipstr14为IP的第四段 if Len(ipstr14)="1" then ipstr14="00"&ipstr14 \\\'对得到的IP的第四段进行补0，此步骤可不要 if Len(ipstr14)="2" then ipstr14="0"&ipstr14 if Len(ipstr14)="3" then ipstr14=ipstr14 \\\'response.write ipstr1&"<br>" \\\'写出IP分割后的每段的值 \\\'response.write ipstr12&"<br>" \\\'response.write ipstr13&"<br>" \\\'response.write ipstr14 allip=ipstr1&"."&ipstr12&"."&ipstr13&"."&ipstr14 finishgetip=left(allip,11) dim ipaddr,iplocal,sqls \\\'以下SQL语句为提取startip字段左边11位值是否等于客户端IP的左边的11位的值 sqls="SELECT country_state,areauser FROM ip WHERE Left(startip,11)=\\\'"&finishgetip&"\\\'" set rs=getaccessrecordset("#worldip.mdb",sqls,"1","1") \\\'得到查询值 if rs.eof then \\\'假如没找到与客户端IP相等的值 showip=checkip_trueip() \\\'把客户端IP赋予showip ipaddr="未知地区" \\\'国家或省份 iplocal="未知地点" \\\'详细的地方 else showip=checkip_trueip() ipaddr=rs("country_state") iplocal=rs("areauser") end if \\\'response.write("您的IP是："&showip&" ") \\\'response.write("您来自："&ipaddr&" ") \\\'response.write("您是:"&iplocal) rs.close set rs=nothing %> <%="您的IP是："&showip&" "%> <%="您来自："&ipaddr&" "%> <%="您是:"&iplocal&"<br>"%> 假如IP地址有错误，请与我联系，或下载数据库更正，谢谢！<br> <table width="760" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="203"><a href="Script56.rar">下载Script56.CHM</a>-->1.34M</td> <td width="548">简介：Microsoft的帮助文档，有VBscript语法,JScript语法,正则表达式 </td> <td width="3"> </td> <td width="6"> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td><a href="ipsearch.rar">下载ASP全球IP地址搜索程序</a></td> <td>ASP+ACCESS 大小401K；格式rar</td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td><font color="#000099"> </font> <font color="#0000FF"> </font></td> <td> </td> <td> </td> </tr> <tr> <td>假如你的IP是未知，假如你愿意，请提交你的所在地：</td> <td> <form name="form1" method="post" action="postip.asp"> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="21%"> 省份： </td> <td width="44%"> <input type="text" name="country_state"> </td> <td width="35%"> </td> </tr> <tr> <td width="21%">详细所在地或是什么网的用户：</td> <td width="44%"> <input type="text" name="areauser"> </td> <td width="35%">例如：北京清华大学或北京网通用户</td> </tr> <tr> <td width="21%"> </td> <td width="44%"> <input type="hidden" name="startip" value="<%=finishgetip&".000"%>"> <input type="hidden" name="endip" value="<%=finishgetip&".255"%>"> </td> <td width="35%"> </td> </tr> <tr> <td width="21%"> </td> <td width="44%"> <input type="submit" name="Submit" value="提交"> </td> <td width="35%"> </td> </tr> </table> </form> </td> <td> </td> <td> </td> </tr> </table> <% end if %> </body> </html> 返回类别: 教程 上一教程: ASP变量-函数-过程和条件语句 下一教程: 用ASP怎样编写文档搜索页面(5) 您可以阅读与"纯ASP(VBSCRIPT)写的全球IP地址搜索程序"相关的教程: · 纯ASP(VBSCRIPT)写的全球IP地址搜 · 利用索引服务和ASP建立面向整个网站搜索程序 · 结合ASP和存储过程做的搜索程序 · 用VBSCRIPT判定EMAIL地址的合法性 · 运用ASP结合VBSCRIPT模仿股票滚屏 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
