仓酷云

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

[学习教程] ASP网页设计ASP编写完全的一个IP地点地搜刮类(修改...

[复制链接]
莫相离 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;修改了查询办法,查询的办法和追捕的分歧;只是追捕会主动改正IP。
另有个函数的誊写毛病,也已修改;
包含增添了一个IP地点准确性的考证函数。(只是从格局上判别)
<%
萧冷雪(S.F.)
QQ号:410000
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()
</p>asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。
变相怪杰 该用户已被删除
沙发
发表于 2015-1-17 18:03:24 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
山那边是海 该用户已被删除
板凳
发表于 2015-1-19 21:32:23 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
柔情似水 该用户已被删除
地板
发表于 2015-1-24 17:41:14 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
活着的死人 该用户已被删除
5#
发表于 2015-2-2 11:25:56 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
小妖女 该用户已被删除
6#
发表于 2015-2-7 18:51:55 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
飘飘悠悠 该用户已被删除
7#
发表于 2015-2-22 22:55:29 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
再见西城 该用户已被删除
8#
发表于 2015-3-7 04:01:53 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
透明 该用户已被删除
9#
发表于 2015-3-14 09:15:17 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
小魔女 该用户已被删除
10#
发表于 2015-3-21 02:10:24 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 09:40

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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