技术文章 订阅所有【技术文章】的日志

Asp实现不带www301重定向到带www且带参数

作者:admin 日期:2012-11-04

字体大小: 小 中 大

带参数的301重定向代码好像不多见，自己写了一段：

ASP/Visual Basic代码
  1. Dim strHostName,strScriptName,strSubUrl,strRequestItem   
  2. strHostName=CStr(Request.ServerVariables("HTTP_HOST"))  
  3. if strHostName="shanxicoal.com" then  
  4.     strScriptName=CStr(Request.ServerVariables("SCRIPT_NAME"))  
  5.     strSubUrl=""  
  6.     If Request.QueryString<>"" Then  
  7.         strScriptName=strScriptName&"?"  
  8.         For Each strRequestItem In Request.QueryString  
  9.             If InStr(strScriptName,strRequestItem)=0 Then  
  10.                 If strSubUrl="" Then  
  11.                     strSubUrl=strSubUrl&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))  
  12.                 Else  
  13.                     strSubUrl=strSubUrl&"&"&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))  
  14.                 End If  
  15.             End If  
  16.         Next  
  17.     End If  
  18.     GetUrl="http://www."&strHostName&strScriptName&strSubUrl  
  19.     Response.Status="301 Moved Permanently"  
  20.     Response.AddHeader "Location",GetUrl  
  21. end if  

参考文章：ASP获取当前网址https://blog.guanjianci.net/article.asp?id=349

 



[本日志由 admin 于 2012-11-04 01:01 AM 更新]
上一篇: google英文相关长尾关键词采集器
下一篇: 百度观察期内的网站不要随便动！
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2259
发表评论
昵　称:
密　码: 游客发言不需要密码.
邮　箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网　址: 输入网址便于回访.
内　容:
验证码:
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭

 广告位

↑返回顶部↑