asp获取当前域名方法asp获取当前域名从来就不是什么有难度的事情，但是在实际项目使用中，大家获取的具体URL信息可能是不同的，各个方法获取见下表，而如果要获取当前域名，可以看下面加粗部分：

Request.ServerVariables("SERVER_NAME")'当前域名

Request.ServerVariables("SERVER_PORT")'当前端口

Request.ServerVariables("SCRIPT_NAME")'当前文件名

Request.ServerVariables("QUERY_STRING")'当前页面的传入参数

Request.ServerVariables("HTTP_USER_AGENT")'取得当前浏览器信息

request("remote_addr")'取得IP

Request.ServerVariables("HTTP_REFERER")'上个页面地址

Request.ServerVariables("HTTP_HOST")'获取当前域名

当采用SERVER_NAME时返回的是不带端口号的URL。

以下是代码：

chr(60) chr(37)

response.write getdomain("www.5u.hk") & "
"

response.write getdomain("blog.5u.hk") & "
"

response.write getdomain("mscga.blog.5u.hk") & "
"

function getdomain(byval dom) ’ 返回空则表示域名不复合域名根要求

dim i,ext,exts

exts = "com.cn,net.cn,org.cn,hk.cn,com,net,cn,hk" ’ 复根在前,单根在后

ext = split(exts,",")

for i = 0 to ubound(ext)

if lcase(ext(i)) = right(lcase(dom),len(ext(i))) then

dim dom_ext,dom_pre

dom_ext = lcase(ext(i))

dom_pre = split(left(dom,len(dom)-len(dom_ext)-1),".")

getdomain = dom_pre(ubound(dom_pre)) & "." & dom_ext

exit function

end if

next

getdomain = ""

end function

chr(37) chr(62)

ASP获取url地址中顶级域名的函数

ASP获取url地址中顶级域名的函数，非正则，非常实用，亲自调试好用。在制作一个DLL组件中，由于DLL里不方便调用正则函数，所以，制作了一个不需要正则的取得跟域名的函数，贡献给大家！

Private Function durl(url)

Dim domext, s1, s2, re, matches, arrdom, dd

domext = "comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn"

arrdom = Split(domext, "")

durl = "": url = LCase(url)

If url = "" Or Len(url) = 0 Then Exit Function

url = Replace(Replace(url, "http://", ""), "https://", "") s1 = InStr(url, ":") - 1 '过滤掉端口

if s1 < 0 Then s1 = InStr(url, "/") - 1 '过滤掉/后面的字符 If s1 > 0 Then url = Left(url, s1) s2 = Split(url, ".")(UBound(Split(url, ".")))

If InStr(domext, s2) = 0 Then

durl = url

Else

For dd = 0 To UBound(arrdom)

If InStr(url, "." & arrdom(dd)) > 0 Then

durl = Replace(url, "." & arrdom(dd) & "", "")

If InStr(durl, ".") = 0 Then

durl = url

Else

durl = Split(durl, ".")(UBound(Split(durl, "."))) & "." & arrdom(dd)

End If

End If

Next

End If

End Function

[本文来源：由《星空写作网》整理首发 - http://www.xkxzw.com/webHtml/20130304028.html ]