Web编程 订阅所有【Web编程】的日志

一个小技巧，在http和https之间转化

编辑:dnawo 日期:2007-03-06

字体大小: 小 中 大
在做电子商务站点的时候，经常要求浏览器在https和http之间转化，下面我给出相应的代码

让一个ASP页面以https开始，请在该ASP页面顶部添加如下代码：

复制内容到剪贴板程序代码 程序代码
<%
Response.Buffer = True
If (Request.ServerVariables("HTTPS") = "off") Then
Dim xredir, xqstr
xredir = "https://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
xqstr = Request.ServerVariables("QUERY_STRING")
if xqstr <> "" Then xredir = xredir & "?" & xqstr
Response.redirect xredir
End if
%>


相反的，强迫以Http开始请添加如下代码：

复制内容到剪贴板程序代码 程序代码
<%
Response.Buffer = True
If (Request.ServerVariables("HTTPS") = "on") Then
Dim xredir, xqstr
xredir = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
xqstr = Request.ServerVariables("QUERY_STRING")
if xqstr <> "" Then xredir = xredir & "?" & xqstr
Response.redirect xredir
End if
%>


上一篇: IIS中实现http自动转换到https
下一篇: 长文章分页一点思路
文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 1 | 引用: 0 | 查看次数: 3914
发表评论
请登录后再发表评论！