方法四Server.Transfer在浏览器上看不到实际地址,其它四种response.redirect看得到跳转的实际地址
方法一
<%if Request.ServerVariables("SERVER_NAME")=www.aiweb.cn then
response.redirect "aiweb/"
else%>
<%end if%>
<%if Request.ServerVariables("SERVER_NAME")=http://www.yangchun.org then
response.redirect "yangchun/"
else%>
<%end if%>
这样就跳转了两个不同的目录……理论上可以无限绑定域名跳转。
(2)一个简单的域名自动转向源代码
<%
if Request.ServerVariables("SERVER_NAME")=www.aiweb.cn then
response.redirect "aiweb/index.asp"
else
response.redirect "websites/"
end if
%>
此ASP代码功能是当两个域名指向同一个主机时,可以自动重定向到相应的域名网站
方法二
<% ’ASP代码起始标识
'取得HTTP输入的值并付值到HTOST中
host=lcase(request.servervariables("HTTP_HOST"))
'开始条件跳转
Select CASE host
' 如果HOST的值是www.czboai.com就选择事件case"www.czboai.com"的命令
CASE "www.czboai.com"
' response.redirect 是URL转跳代码。
response.redirect "czboai/"
CASE "www.i2345.com"
response.redirect "i2345/"
END Select
%>
以上代码保存在虚拟主机的根文夹,取名为index.asp,远程访问www.czboai.com和www.i2345.com时,首先访问的是index.asp这个文件,然后再经过判断进行各自网站。
方法三
<%
host=lcase(request.servervariables("HTTP_HOST")) '取得HTTP输入的值并付值到HTOST中
select CASE host '开始条件跳转
CASE "blog.siyizhu.com" '如果HOST的值是 blog.siyizhu.com 就选择事件case"blog.siyizhu.com"的命令
response.redirect "/blog/" ' 转到指定的music目录
CASE "siyizhu.com/temp/time.htm" '如果HOST的值是 blog.siyizhu.com 就选择事件case"siyizhu.com/temp/time.htm"的命令
response.redirect "temp/time.htm" ' 转到指定的temp/time.htm文件
CASE ELSE '如果不在上述特定范围
response.redirect "/bbs/" '转到bbs目录
END select
%>
具体做法:
转向的域名需要先绑定到空间的IP,要转几个就要绑几个.
假设你的空间默认首页为INDEX.ASP,将代码添加到INDEX.ASP文件的头部.
上传就OK了
方法四
在虚拟主机的空间越来越大了,一般的情况下,一个网站是用不完的(软件、电影下载类不在其列)。
那么,怎样让已有的空间超值使用呢?请按以下步骤操作:
第一步:创建转向控制页面
创建网站默认的首页文件(通常为"index.asp"或"default.asp")如下:
<%
select case request.servervariables("http_host")
case "www.abc1.com" '域名1
Server.Transfer("index_abc1.asp")
case "www.abc2.com" '域名2
Server.Transfer("index_abc2.asp")
case "www.abc3.com" '域名3
Server.Transfer("index_abc3.asp")
'...... 继续添加 ......
case else '域名N
Server.Transfer("index_abcN.asp")
end select
%>
第二步:创建相应的被转向文件
创建"index_abc0.asp"—"index_abcN.asp",作为各个网站的首页。
第三步:将多个域名的IP地址解析到同一个网站空间
例如:将"www.abc1.com"—"www.abcN.com"的IP地址全部解析到"www.abc1.com"的WEB空间上。
第四步:设置网站的WEB服务
设置WEB服务的别名为:"www.abc1.com www.abc2.com www.abc3.com ...... www.abcN.com"(注意:别名之前用一个空格分开)
呵呵,现在你就可以使用象"http://www.abc1.com/"、……、"http://www.abcn.com/"这类顶级的网址来访问同一个WEB空间,而得到各不相同的首页面了。
立即节省了"N-1"个空间的费用,是不是很爽呀
方法五
对于专于注册域名的人来说,空间变得更显可贵,但不可能每个域名都注册一个空间吧,下来说说一个空间绑定多个域名,各个域名互不干扰的方法。
首先要做的,当然是将各个域名解析到空间的IP上来,然后在空间控制面板上绑定这些域名,设置默认首页为index.asp,下来来看代码。
<%
'首先获得当前访问的是什么域名
domainname=Request.ServerVariables("SERVER_NAME")'Request.ServerVariables("HTTP_REFERER")
'分析域名,并转向指定页面
if instr(domainname,"www.im286.com") then
'此方法适用于绑定域名,将之前的论坛首页改成wwwindex.asp,如果域名是www.im286.com,则会引入之前的首页
%>
<!--#include file="wwwindex.asp"-->
<%
elseif instr(domainname,"domain.im286.com") then
'URL转向,此方法适用于URL转向,不隐藏真实URL
response.redirect "http://www.im286.com/domain"
elseif instr(domainname,"pr.im286.com")then
'URL转向,此方法适用于URL转向,隐藏真实URL,可代替域名提供商的URL转发功能,而且速度快
%>
<html><head><title>网站名称</title><body>
<iframe src="http://www.im286.com/pr" height="100%" width="100%" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="yes"></iframe>
</body></html>
<%
end if
%>
上面的方法将各个域名绑定到一个空间上实现了,但是散乱的目录结构会使你分不清哪些文件是属于哪些文件的,所以在制作网站的时候,要给自己的程序分门别类,最好是给文件加前缀,或是不要将不重要的文件放在根目录下面。