|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|