Function GetTopLevelDomain(url)
Dim arrUrl
arrUrl = Split(url, ".")
If UBound(arrUrl) > 1 Then
GetTopLevelDomain = arrUrl(UBound(arrUrl) 2) & "." & arrUrl(UBound(arrUrl) 1)
Else
GetTopLevelDomain = arrUrl(0)
End If
End Function
这个函数首先将URL分割成一个数组，然后检查数组的长度，如果长度大于1，那么顶级域名就是数组的最后两个元素（即"."前后的部分），否则，如果数组长度为1，那么整个URL就是顶级域名。
2、我们可以在ASP页面中使用这个函数来获取并显示URL的顶级域名。
这将输出："The top level domain of the URL is: example.com"
请注意，这个函数假设URL是有效的，并且至少包含一个"."，如果URL可能不符合这些条件，那么你可能需要添加一些额外的错误检查和处理代码。
下面是一个简单的介绍，展示了如何在ASP中获取顶级域名并报告相关信息：
zbhjl140kds4x01.jpg
（图片来源网络，侵删）
参数名
描述
示例代码 ASP Classic
示例代码 ASP.NET
请求的URL
用户请求的完整URL地址
Request.ServerVariables("URL")
Request.Url.AbsoluteUri
域名
获取请求的域名
Request.ServerVariables("HTTP_HOST")
Request.Url.Host
顶级域名
从域名中提取顶级域名
以下自定义函数提取
以下自定义函数提取
服务器变量
用于存储顶级域名信息的环境变量
定义在服务器端脚本中
定义在服务器端脚本中
以下是ASP中用于提取顶级域名的自定义函数示例：
ASP Classic
1 Then
GetTopLevelDomain = parts(UBound(parts) 1) & "." & parts(UBound(parts))
Else
GetTopLevelDomain = httpHost
End If
End Function
Dim domain
domain = Request.ServerVariables("HTTP_HOST")
Response.Write "顶级域名: " & GetTopLevelDomain(domain)
%>
ASP.NET
“`asp.net
