• 您的位置：創(chuàng)新互聯(lián) >> 網(wǎng)站建設(shè) >> 虛擬主機(jī)空間 >> ASP實(shí)現(xiàn)301重定向代碼
  

ASP實(shí)現(xiàn)301重定向代碼

• 作者：譚孝梅 文章來源：網(wǎng)站設(shè)計(jì)制作 點(diǎn)擊數(shù)：1012 更新時(shí)間：2009-9-04

• ASP實(shí)現(xiàn)301重定向代碼如下：

  注：要使以下的代碼能在一開始就執(zhí)行，比如說在數(shù)據(jù)庫連接文件里加入以下代碼就可以

  -----------------------------------------------

  <%
  Dim Server_Name,Path_infostr,Query_Stringstr
  Path_infostr=lcase(request.ServerVariables("PATH_INFO"))
  Server_Name=lcase(request.ServerVariables("Server_Name"))
  Query_Stringstr=request.ServerVariables("Query_String")
  If Query_Stringstr<>"" Then Query_Stringstr=" "&Query_Stringstr
  IF instr(Server_Name,"www.")<1 Then '此處含義是實(shí)現(xiàn)不帶www.的域名將被重定向
  Response.Status = "301 Moved Permanently"
  if instr(Path_infostr,"index")>0 or instr(Path_infostr,"default")>0 Then
  Response.AddHeader "Location","http://www."&Server_Name
  Else
  Response.AddHeader "Location","http://www."&Server_Name&Path_infostr&Query_Stringstr
  End if
  Response.End
  End if
  

  %>

  ---------------------------------------------------------

  以上就是ASP實(shí)現(xiàn)301重定向代碼，有用到的朋友可以參考下

• 上一篇文章：asp禁止站外提交表單方法
  下一篇文章：Asp中Server.ScriptTimeOut注意點(diǎn)