名客技术网

简体
繁体
×警告!请输入搜索关键词(仅提示一次)
网站建设电话:15927179345(资深程序)

KESIONCMS 完美301跳转代码

作者:网站小编时间:2013-11-25 10:11:19

KESIONCMS 完美301跳转代码:

301是优化的必备步骤之一,让不带www的域名跳转到带www的域名上,从而增加带www域名的权重(减少分权)。然而部分空间是不支持301跳转的,为此在科汛CMS程序中开发出ASP版完美301跳转。
只需修改一处asp文件
/Conn.asp

<%
'========301跳转开始========
Dim An_Jump,An_Static
An_Jump=False '是否开启301跳转 开启: True  关闭: False
An_Static=False '是否开启伪静态 开启: True  关闭: False

If Lcase(Left(Request.ServerVariables("Server_name"),3))<>"www" and An_Jump Then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", GetUrl
Response.End
End If
'Response.Write  GetUrl '测试url
Function GetUrl() 
On Error Resume Next 
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
  strTemp = "http://"
Else 
  strTemp = "https://"
End If 
If Lcase(Left(Request.ServerVariables("Server_name"),3))<>"www" Then
  strTemp = strTemp&"www."
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME") 
If Request.ServerVariables("SERVER_PORT") <> 80 Then 
strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") 
end if
If An_Static Then
  Dim id,page,m,d,n
  id=Request.QueryString("id")
  page=Request.QueryString("page")
  m=Request.QueryString("m")
  d=Request.QueryString("d")
  n=Request.QueryString("n")
  If id<>"" Then
    If page<>"" Then
  strTemp = strTemp & "/list-"&id&"-"&page&".html"
Else
  strTemp = strTemp & "/list-"&id&".html"
End If
  End If
  If m<>"" and d<>"" Then
    strTemp = strTemp & "/thread-"&d&"-"&m&".html"
  End If
  If n<>"" Then
    strTemp = strTemp & "/plus/tags.asp?n="&n
  End If
Else
  strTemp = strTemp & Replace(Request.ServerVariables("URL"),"index.asp","") 
  If Trim(Request.QueryString) <> "" Then 
    strTemp = strTemp & "?" & Trim(Request.QueryString) 
  end if
End If
GetUrl = strTemp 
End Function
'========301跳转结束========
%>
<%
'Response.Buffer=True
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S,DataPart_W,DataPart_M,CurrentPage
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0                 '系统数据库类型,"1"为MS SQL2000数据库,"0"为MS ACCESS 2000数据库
Const MsxmlVersion=".3.0"                '系统采用XML版本设置

Const EnableSiteManageCode = False         '是否启用后台管理认证密码 是: True  否: False
Const SiteManageCode = "8888"      '后台管理认证密码,请修改,这样即使有人知道了您的后台用户名和密码也不能登录后台
Const IsBusiness=False              '是否正式官方授权版本,免费版本请填写False,正式版填写True


备注:红色为添加部分
注释:1、默认是关闭301跳转
         2、默认跳转后没有开启伪静态,如果后台开启了伪静态(不带问号的)此处也要开启,不然跳转后的连接是asp

名客技术网如果无意之中侵犯了您的版权,请联系站长,本站将在3个工作日内删除 QQ:175352796
Copyright 2011-2020 Powered by 121ASK.COM, All Rights Reserved.
备案号:鄂ICP备11013833号-3