啊啦神灯
::
首页
::
联系
::
聚合
::
管理
11 Posts :: 0 Stories :: 1 Comments :: 0 Trackbacks
常用链接
我的随笔
我的评论
我参与的随笔
我参与的团队
随笔分类
asp(4)
c#
js/ajax(5)
net
平面设计
数据库(2)
文摘
新闻时势
随笔档案
2006年9月 (11)
友情链接
中国粉体商贸网
搜索
在http和https之间转化
在做电子商务站点的时候,经常要求浏览器在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
%
>
posted on 2006-09-14 16:28
啊啦神灯
阅读(166)
评论(0)
编辑
收藏
引用
所属分类:
asp
只有注册用户
登录
后才能发表评论。
Copyright @ 啊啦神灯
Powered by:
.Text
and
ASP.NET
Theme by:
.NET Monster