飘飘悠悠 发表于 2015-1-16 22:04:03

ASP编程:ASP获得地点URL中的顶级域名的函数

缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全ASP获得地点栏中URL网址中的顶级域名函数,非正则,十分有用,亲身调试好用。在制造一个DLL组件中,因为DLL里不便利挪用正则函数,以是,制造了一个不必要正则的获得跟域名的函数,奉献给人人!

以下内容为程序代码PrivateFunctiondurl(url)
Dimdomext,s1,s2,re,matches,arrdom,dd
domext="comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn"
arrdom=Split(domext,"")
durl="":url=LCase(url)
Ifurl=""OrLen(url)=0ThenExitFunction
url=Replace(Replace(url,"http://",""),"https://","")
s1=InStr(url,":")-1过滤失落端口
Ifs1<0Thens1=InStr(url,"/")-1过滤失落/前面的字符
Ifs1>0Thenurl=Left(url,s1)
s2=Split(url,".")(UBound(Split(url,".")))
IfInStr(domext,s2)=0Then
durl=url
Else
Fordd=0ToUBound(arrdom)
IfInStr(url,"."&arrdom(dd))>0Then
durl=Replace(url,"."&arrdom(dd)&"","")
IfInStr(durl,".")=0Then
durl=url
Else
durl=Split(durl,".")(UBound(Split(durl,".")))&"."&arrdom(dd)
EndIf
EndIf
Next
EndIf
EndFunction
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。

分手快乐 发表于 2015-1-18 19:56:21

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

小魔女 发表于 2015-1-27 06:48:49

我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。

admin 发表于 2015-2-5 04:57:16

哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?

精灵巫婆 发表于 2015-2-11 05:44:32

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

飘灵儿 发表于 2015-3-1 22:45:36

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

金色的骷髅 发表于 2015-3-11 01:15:27

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)

乐观 发表于 2015-3-17 18:08:24

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

小妖女 发表于 2015-3-24 18:56:00

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
页: [1]
查看完整版本: ASP编程:ASP获得地点URL中的顶级域名的函数