仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 459|回复: 9
打印 上一主题 下一主题

[学习教程] ASP编程:ASP编写完全的IP地点地搜刮类

[复制链接]
第二个灵魂 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:29 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。ASP编写完全的一个IP地点地搜刮类的修改文稿

  修改了查询办法,查询的办法和追捕的分歧;只是追捕会主动改正IP。

  另有个函数的誊写毛病,也已修改;

  包含增添了一个IP地点准确性的考证函数。(只是从格局上判别)
  
  <%
  Server.ScriptTimeout=&HE10&H3C
  Response.Buffer=("S.F."="S.F.")
  DimIpSearch
  创建工具
  SetIpSearch=NewclsIpSearch
  该句创建SQLServer的IP地点库的毗连,可以使用默许毗连,但要包管存在wry.mdb
  IpSearch.ConnectionString="DRIVER={SQLServer};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
  设置要查询的IP,可用默许值,这里设置的是127.0.0.1
  IpSearch.IpAddress=&H7F&"."&&H00&"."&&H00&"."&&H01
  IfRequest.QueryString("IP")""Then
  IfIpSearch.Valid_IP(Request.QueryString("IP"))Then
  IpSearch.IpAddress=Trim(Request.QueryString("IP"))
  EndIf
  EndIf
  获得IP地点地,反应值有三个,以逗号支解
  格局为:地点国度或区域,外地上彀区域,供应准确IP地点信息的用户名
  Response.Write("地点地:"&IpSearch.GetIpAddrInfo()&"<br>")
  掏出IP地点
  Response.Write("IP:"&IpSearch.IpAddress&"<br>")
  将IP地点转换为数值
  Response.Write("IP转换为数值:"&IpSearch.CLongIP(IpSearch.IpAddress)&"<br>")
  将IP地点转换为数值后复原成IP字符串
  Response.Write("数值复原成IP:"&IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress))&"<br>")
  Response.Write("<hr>")

  这里是测试代码
  dima,b,c,d
  fora=0to255
  forb=0to255step20
  forc=0to255step20
  ford=0to255step20
  IpSearch.IpAddress=a&"."&b&"."&c&"."&d
  Response.Write("地点地:"&IpSearch.GetIpAddrInfo()&"<br>")
  Response.Write("IP:"&IpSearch.IpAddress&"<br>")
  Response.Write("IP转换为数值:"&IpSearch.CLongIP(IpSearch.IpAddress)&"<br>")
  Response.Write("数值复原成IP:"&IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress))&"<br>")
  Response.Write("<hr>")
  next
  next
  next
  next
  %>




  <%
  ClassclsIpSearch
  ##################################################################
  声明:本程序接纳的数据为收集上出名的IP工具软件《追捕》作者“冯志宏”
  师长教师所经心汇集收拾。
  《追捕》数据库的转换办法:
  修正wry.dll文件后缀称号为wry.dbf
  办法一:
  启动Access数据,选择翻开数据库,选择翻开的文件范例为“dBASE5(*.dbf)”
  翻开wry.dbf文件,选择《工具》菜单下的《数据库有用工具》中的《转换数据库》
  选择《转换为Access97格局(版本可选)》功效,保留文件便可成为MDB格局。
  办法二:
  利用SQLServer供应的《导进和导出数据》导游。
  办法扼要申明:在ODBC把持面板中设置指向wry.dbf的DSN。
  利用《导进和导出数据》导游,选择其准确的驱动程序和要导进的库便可。
  大概间接导进由办法平生成的MDB文件进库。
  办法三:
  利用Access翻开wry.dbf文件后将主动经由过程MDB库援用原库数据。
  
  未安装其他数据库平台,其他办法欠思索。

  ######################类申明####################################
  #IP地点地搜刮类
  #ConnectionString为数据库毗连声明,默许声明同级目次的wry.mdb
  #IpAddress请设置为举行搜刮的IP地点,默许取以后会见者IP
  #类创建办法
  #DimobjVal声明一个变量
  #SetobjVal=NewclsIpSearch创建类工具
  #Response.Write(objVal.IpAddress)显现以后会见者IP
  #IP搜刮类办法列表:
  #.Valid_IPIP地点准确性效验
  #参数:IPIP数值大概字符串
  #.CLongIP将IP地点转换为长整型的数值
  #参数:asNewIP要转换的IP地点字符串
  #.CStringIP将长整型的数值转换为IP
  #参数:anNewIP要复原为IP地点的数值
  #.GetClientIP取会见者的IP
  #.GetIpAddrInfo失掉设置过IpAddRess属性的IP地点地
  #属性列表(主动初始化):
  #ConnEctionStringADo会见数据库毗连申明
  #IpAddress要操纵的IP地点
  #外部毛病处置:
  #完善,未做,请自行增补。

  ##################################################################





  PublicConnectionString
  PublicIpAddress
  PrivateDBConn毗连工具,模块级声明
  ────────────────────────────────
  类初始化
  PrivateSubClass_initialize()
  这里创建的是经由过程“数据转换--办法一”天生的mdb库文件
  ConnectionString="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("wry.mdb")
  IpAddress=GetClientIP()
  SetDBConn=OpenConnection()
</p>对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,
老尸 该用户已被删除
10#
发表于 2015-3-23 01:03:22 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
金色的骷髅 该用户已被删除
9#
发表于 2015-3-16 21:01:05 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
柔情似水 该用户已被删除
8#
发表于 2015-3-9 07:23:33 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
再见西城 该用户已被删除
7#
发表于 2015-2-27 14:37:47 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
若相依 该用户已被删除
6#
发表于 2015-2-9 17:53:23 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-4 06:44:45 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
冷月葬花魂 该用户已被删除
地板
发表于 2015-1-25 22:40:51 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
小魔女 该用户已被删除
板凳
发表于 2015-1-24 11:27:45 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
莫相离 该用户已被删除
沙发
发表于 2015-1-19 08:44:00 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-25 02:34

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表