怎么读取网址的后面几位？

[bzhchl]

比如http://mail.163pc.net我想要163pc.net这怎么截取呢？
因为输入的网址不一样截取的东西就不一样。比如http://mail.soufa.cn我想要soufa.cn这几个应该怎么做呢？

[patchclass]

temp="http://mail.163pc.net"
MyStr = Right(temp,Instr(temp, "."))

[kkkbs]

URL="www.XXX.com"

right(URl,需要取的尾位数)

[zy51]

可以自定义取出N级的域名值。你的要求就是取出1级的域名. 仔细看下面的函数.

<%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
Response.Write GetSERVER_NAME(3,SERVER_NAME)

'// n ：域名级数，SERVER_NAME ：域名值
Function GetSERVER_NAME(n,SERVER_NAME)
Dim C_NAME
If Instr(SERVER_NAME,".") = 0 Then GetSERVER_NAME = SERVER_NAME : Exit Function
C_NAME = Ubound(Split(SERVER_NAME,".")) '以域名中的"."点分割。
If n>0 and n<C_NAME Then
n = C_NAME -n
SERVER_NAME = Split(SERVER_NAME,".",n+1)(n)
End if
GetSERVER_NAME = SERVER_NAME
End Function
%>

[spec_lc]

str="http://mail.163pc.net"
str=mid(str,13,len(str)-12)

[richwong]

如果位数固定
用 Right(Request.ServerVariables("HTTP_HOST"), 9) ‘9是右边的个数

[richwong]

如果不固定用数组分段 再组合。

split()

[goodstuday]

可以用 Split(url,".")分开 http://mail 163pc net或更多个，然后循环取下标最大的两个；

或是用正则表达式匹配