从二级域名从提取根域名(ASP)
- http://blog.gufang.org/
- 2011/2/26 11:20:29
- 来源:Gufang
- 点击:
<%
'以下仅用于二级域名不包含.的二级域名
dim I,ChangDu 'I代表开始的字符。
HostName=Request.ServerVariables('Server_name') '全域名
I=InStr(HostName,'.')
ChangDu=Len(HostName)
RootHostName=Right(HostName,ChangDu-I)
response.write RootHostName
%>
'以下仅用于二级域名不包含.的二级域名
dim I,ChangDu 'I代表开始的字符。
HostName=Request.ServerVariables('Server_name') '全域名
I=InStr(HostName,'.')
ChangDu=Len(HostName)
RootHostName=Right(HostName,ChangDu-I)
response.write RootHostName
%>
发表评论(0)