如何取得域名？

[52694]

有如下网址：

http://mail.abcd.com/mail/kl/lop.dll?y=uer

---------------------------------

这是网站:abcd.com 下的一个连接。如何取得该网站的域名：abcd.com

[chense]

<%=Request.ServerVariables("SERVER_NAME")%>

[chense]

sURL = Request.ServerVariables("SERVER_NAME")
sURL = Right(sURL,(Len(sURL)-Instr(sURL,".")))

[yaozhg]

Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
Response.write GetUrl()

[Struggling]

楼上呀，你那是得到当前页面的地址。