CSDN博客

img yanweidong1030

用ASP实现一个空间多个域名

发表于2004/7/6 23:06:00  915人阅读

分类: ASP

好像没什么用.不过放在这里,我怕以后有用.

<%
 Server_Name=Request.ServerVariables("SERVER_NAME")
 For I=1 To Len(Server_Name)
   If Mid(Server_Name,i,1)="." Then Exit For
     USER = USER & Mid(Server_Name,i,1)
 Next
 domain=Replace(Server_Name, USER&".", "")
 if domain="Z173.com" then
   response.redirect "Z173.com/index.asp"
 end if
%>

0 0

相关博文

我的热门文章

img
取 消
img