一台服务器上多个泛域名解析的方法

By | 2007 年 2 月 3 日

以前有人问过,重新贴出来吧。也许大家用得到。
这个程序适用于同一主机上放任意多个oblog站点,甚至可以用这个程序给别人提供解析服务,呵呵。
欢迎大家讨论。

各个blog的主机头都不要设置为空,都各自填好自己的域名。
然后再新建一个站点,把主机头设为空,在这个站点使如下的default.asp

 <%
 Dim fromURL, subName, domainName, userDomainRoot
 fromURL = LCase(Replace(Request.ServerVariables("SERVER_NAME"), "www.", ""))
 subName = Split(fromURL, ".")
 domainName = subName(0)
 Select Case UBound(subName)
 Case 2:’二级域名
userDomainRoot = subName(1)&"."&subName(2)&"/"
‘ userDomainRoot = "www."& userDomainRoot
‘如果你的blog站点是www开头的,那么请开放上边一句
‘如果是其他二级域名,请再将www.改为对应的二级域名,比如blog.

 Case 3:’三级域名
userDomainRoot = subName(1)&"."&subName(2)&"."&subName(3)&"/"
 End Select
 response.Write( "<frameset><frame src=http://&userDomainRoot&"blog.asp?domain="&fromURL&"""></frameset>")
 ‘response.redirect "http://"&UserDomainRoot&"blog.asp?domain="&FromURL
 %>

 

发表评论

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据