在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
%>
0條評論