简单问题

[learnall]

怎么取域名的值？
比如：在地址栏中输入 http://www.263.net/ 需要得到 www.263.net
如果更换成 http://www.263.com/ 这时得到 www.263.com 并且显示出来
这个怎么实现呀？ 用vbscript

[learnall]

得到的地址不是固定的！ 也可能是www.csdn.net
我需要当前的域名地址！ 用vb来写

[citybird888]

<%str=request.serverVariables("Http_REFERER")%>

[TrueAndFalse]

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

[learnall]

谢谢大家！ 可能是我没说明白，不过我自己写出来了
Private Sub Command1_Click()
Dim webadd, cut, getadd
webadd = "http://www.263.net/111/2223"
Label1.Caption = webadd
arynum = Split(webadd, "//")
cut = Right(arynum(1), Len(arynum(1)))
arynum2 = Split(cut, "/")
getadd = arynum2(0)
Label2.Caption = getadd
End Sub

[xieyj]

str="http://www.263.net/"
str=mid(str, 7, instrrev(str, "/") - 7)
msgbox str

[纪俊]

<%=request.serverVariables("Http_REFERER")%>
这就是你刚才的地址