網站廣播 本站提供的源碼經過測試,有前臺及后臺管理界面演示圖,免費下載!
ASP實現301域名重定向代碼
2014-12-03 12:44:55    【 】   瀏覽:
分享一例asp實現301域名重定向的代碼,使用301域名重定向可以把不帶www的頂級域名轉向到帶www的域名。

 

代碼如下:
<%
'--301域名重定向
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  
   Response.Status = "301 Moved Permanently" 
if instr(Path_infostr,"index")>0 or  instr(Path_infostr,"default")>0  Then 
  Response.AddHeader "Location","//www."&Server_Name
Else  
   Response.AddHeader "Location","//www."&Server_Name&Path_infostr&Query_Stringstr  
End if 
  Response.End 
End if %>


Tags:ASP 實現 301 域名 重定向 代碼
】【打印繁體】【關閉】 【返回頂部
上一篇ASP生成不重復隨機數的實例代碼 下一篇ADODB.Connection 錯誤 '800a..

廣告推薦

ASP技術文章推薦閱讀