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商提供垂直型的应用服务，针对某一特定行业提供应用服务。

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

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

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

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

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

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

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

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