木子屋
 

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

作者: dnawo

日期: 2007-03-06 09:33 AM

分类: Web编程

内容: 在做电子商务站点的时候，经常要求浏览器在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
%>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.079 ms

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

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.079 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.079 ms