ASP教程之ASP编写完全的一个IP地点地搜刮类
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()
EndSub
────────────────────────────────
类刊出
PrivateSubClass_Terminate()
ConnectionString=Null
IpAddress=Null
DBConn.Close
SetDBConn=Nothing
EndSub
────────────────────────────────
创建一个毗连
PrivateFunctionOpenConnection()
DimtmpConn
SettmpConn=Server.CreateObject("ADODB.Connection")
tmpConn.OpenConnectionString
SetOpenConnection=tmpConn
SettmpC</p>因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
页:
[1]