仓酷云

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

[学习教程] ASP教程之将IP地点转换为长整型、将长整型转换为...

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

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

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

x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。ip地点|转换将IP地点转换为长整型

Convertsastringipaddress("192.168.0.1")toaLongnumber(3232235521).OneofthereasonstodothiswouldbetostoreIPaddressesindatabases.Numbersgreatlyreducethesizerequiredtostorethisinformation.
Inputs:asNewIP-StringIPaddress("192.168.0.1")toconverttoanumber.

Returns:ReturnsaLongIntegerrepresentingtheIPaddress(3232235521)

Assumes:ThisfunctionassumesthatyourIPaddresshas4integersdelimitedbydecimalsandthatthenumbersrangefrom0to255.

FunctionCLngIP(ByValasNewIP)
DimlnResults
DimlnIndex
DimlnIpAry
SplittheIPaddressusingthedotasadelimiter
lnIpAry=Split(asNewIP,".",4)
LoopthroughEachnumberIntheIPaddress
ForlnIndex=0To3

IfweareNotworkingWiththelastnumber...
IfNotlnIndex=3Then

ConvertthenumberToavaluerangethatcanbeparsedfromtheothers
lnIpAry(lnIndex)=lnIpAry(lnIndex)*(256^(3-lnIndex))

EndIf

AddthenumberTotheresults
lnResults=lnResults+lnIpAry(lnIndex)

Next
IfstoringnumberwithinanAccessDatabase,
ThevariableType"Long"rangesfrom-2147483648To2147483647
YouwillneedTosubtract2147483648fromthenumber
beforequeryingthedatabase.

lnResults=lnResults-2147483648
Returntheresults
CLngIP=lnResults
EndFunction

将长整型转换为IP地点

Name:ConvertLongIPtoStringIP
Description:ThisfunctionconvertsaLongNumber(3232235521)intoanIPAddress("192.168.0.1").Whywouldyouwanttodothis?Clickhere.
Inputs:anNewIP-IPAddressasaLongNumber(nodots)

Returns:ReturnsthestringrepresentationofanIPAddress("192.168.0.1")

FunctionCStrIP(ByValanNewIP)
DimlsResultsResultsTobereturned
DimlnTempTemporaryvaluebeingparsed
DimlnIndexPositionofnumberbeingparsed
IfpullingnumberfromanAccessDatabase,
ThevariableType"Long"rangesfrom-2147483648To2147483647
YouwillfirstneedToadd2147483648tothenumbertoparsecorrectly.
anNewIP=anNewIP+2147483648
Parsehighestnumbersfirst
ForlnIndex=3To0Step-1

ParsethecurrentvalueForthisposition
lnTemp=Int(anNewIP/(256^lnIndex))

AppendthenumberTothefinalresultsdelimitedbyadot
lsResults=lsResults&lnTemp&"."

Removethenumberthatwejustparsed
anNewIP=anNewIP-(lnTemp*(256^lnIndex))

Next

Cutofflastdot
lsResults=Left(lsResults,Len(lsResults)-1)

Returntheresults
CStrIP=lsResults

EndFunction源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码
爱飞 该用户已被删除
沙发
发表于 2015-1-22 07:13:14 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-1-30 23:39:22 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
再现理想 该用户已被删除
地板
发表于 2015-2-6 17:02:13 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
小妖女 该用户已被删除
5#
发表于 2015-2-17 13:05:39 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
若相依 该用户已被删除
6#
发表于 2015-3-5 19:50:56 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
老尸 该用户已被删除
7#
发表于 2015-3-12 13:40:14 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
透明 该用户已被删除
8#
发表于 2015-3-19 22:54:33 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 00:23

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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