如何在ASP读取数据库中的URL时截取URL的顶级域名并输出来？

url=“h

t

t

p:

//

您的顶级域名/

目录/

文件名字”

url1

=

right

(url,len(url)-7)

去除http://

url2

=

split(url1,"/")

以“/”

为标识分割字符串

response.write

url2(0)

输出顶级域名

可以的

<%

Function GetLocationURL() '获得本页url地址

Dim Url

Dim ServerPort,ServerName,ScriptName,QueryString

ServerName = Request.ServerVariables("SERVER_NAME")

ServerPort = Request.ServerVariables("SERVER_PORT")

ScriptName = Request.ServerVariables("SCRIPT_NAME")

QueryString = Request.ServerVariables("QUERY_STRING")

Url="http://"&ServerName

If ServerPort <>"80" Then Url = Url &":" &ServerPort

Url=Url&ScriptName

If QueryString <>"" Then Url=Url&"?"&QueryString

GetLocationURL=Url

End Function

%>

<%

Function sServerName() '获取顶级域名

Dim aServerName, iCount

aServerName = Split(Request.ServerVariables("SERVER_NAME"), ".")

iCount = UBound(aServerName)

sServerName = aServerName(iCount-1) &"." &aServerName(iCount)

End Function

%>

如果想获得当前网址用这个<textarea name="textarea"><%response.write GetLocationURL()%></textarea>

如果想获得当前网站顶级域名用这个<textarea name="textarea"><%response.write sServerName()%></textarea>

以asp程序为例，

在顶级域名空间的根目录下建一个asp文件。比如ip.asp。

把主机的第一默认主页改成ip.asp。第二，三默认主页才是index.asp,index.html等。

全站只有一个ip.asp，不影响网站的运行。

ip.asp里面里只跳转语句。

先获取IP地址

Request.ServerVariables("REMOTE_ADDR")%

再筛选IP地址，

不同的地区ip跳到不同的二级载名

response.redirect "二级域名绝对路径"

只给你讲方法，具体实现，自己搞定。

---