仓酷云

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

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

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

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

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

x
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用程序修改了查询办法,查询的办法和追捕的分歧;只是追捕会主动改正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地点
#外部毛病处置:
#完善,未做,请自行增补。
##################################################################


[1][2][3]下一页

</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。
因胸联盟 该用户已被删除
沙发
发表于 2015-1-18 16:02:54 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
飘飘悠悠 该用户已被删除
板凳
发表于 2015-1-22 08:44:25 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
深爱那片海 该用户已被删除
地板
发表于 2015-1-24 14:07:59 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
灵魂腐蚀 该用户已被删除
5#
发表于 2015-1-27 22:26:53 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
第二个灵魂 该用户已被删除
6#
发表于 2015-2-11 09:08:26 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
小魔女 该用户已被删除
7#
发表于 2015-3-2 08:05:16 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
再见西城 该用户已被删除
8#
发表于 2015-3-11 02:30:09 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
变相怪杰 该用户已被删除
9#
发表于 2015-3-17 19:09:32 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若相依 该用户已被删除
10#
发表于 2015-3-24 20:46:44 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 20:54

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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