正则表达式分割URL，获得二级域名

<script language="javascript">
url="http://Hello.Yuwen.com.Cn/"
url = url.replace(/^http:\/\/([^\.]+)(.|\n)+$/gi,"$1")
//alert(url)
</script>
<%
'**********************************************************
' 名称:ReplaceString
' 作用:替换一个字符串
' 参数:strTxt----将要进行文本替换的字符串
'      patrn----匹配的字符串
'      strRpl----替换文本字符串
' 返回:返回一个字符串ReplaceString
'**********************************************************
Function ReplaceString(strTxt, patrn, strRpl)
 Dim regEx 
 Set regEx = New RegExp  ' 建立对象
 regEx.Pattern = patrn  ' 设置模式
 regEx.IgnoreCase = True  ' 设置不区分大小写
 regEx.Global = True  ' 设置全文匹配
 ReplaceString = regEx.Replace(strTxt, strRpl)         ' 作替换
End Function
%>
例：
<%
 url = "http://Hello.Yuwen.com.Cn"
 url = ReplaceString(url, "^http:\/\/([^\.]+)(.|\n)+$", "$1")
 Response.Write(url)
%>