中国空间|BGP空间|双线空间|多线空间|免备案空间|电信空间|美国空间|韩国空间-曼曼科技
  专业国外虚拟主机、服务器提供商
会员中心 | 付款方式 | 加盟代理 | 代理登陆 | 控制面板 | 有问必答 | 主机帮助 | 域名帮助 | 新闻公告 |
欢迎访问曼曼科技,我们的域名是:mmkdm.com和66162.com,曼曼科技为您服务!  
当前位置:首页 >> 会员中心
在线支付
购买产品
产品管理
客户中心
    ASP编程301重定向代码
 

将以下代码放在每个asp页面的头部即可。

<% Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="http://"& Servername & ScriptAddress
end if
End Function
dim urlstr,a,b,oldurl,c
urlstr=GetUrl
oldurl=GetUrl
urlstr=replace(urlstr,"http://","")
a=instr(urlstr,"/")
if a>0 then
urlstr=left(urlstr,a)
end if
urlstr=replace(urlstr,"/","")
b=lcase(urlstr)
if b<>"www.mmkdm.com" then
c=replace(oldurl,"http://" & b,"")
response.redirect "http://www.mmkdm.com" & c
end if
%>

这段代码其实并不难看懂,Function GetUrl()这个过程是获取用户所访问的当前URL地址,下面是对URL进行判断,如果不是www.mmkdm.com域名下的地址,就把url中的域名改成www.mmkdm.com,如果是的话,就终止这段代码!www.mmkdm.com这个地址只是一个地址的举例,用户可以根据的需要改成任何地址。

本301定向代码可以完美支持任何参数形式的跳转,无论什么参数也无论多长的地址,都没有问题!