asp获取当前准确域名的代码

以下代码可以很简单的获取当前页面的准确域名
[code lang="vb"]
<% call chaxun
sub chaxun()'定义函数chaxun
yuming=Request.ServerVariables("SERVER_NAME")
yuming=right(yuming,(len(yuming)-4))
response.write yuming
end sub %>[/code]