在http和https之間轉(zhuǎn)化

在做電子商務(wù)站點(diǎn)的時(shí)候，經(jīng)常要求瀏覽器在https和http之間轉(zhuǎn)化
    下面我給出相應(yīng)的代碼： 讓一個(gè)ASP頁面以https開始，請?jiān)谠揂SP頁面頂部添加如下代碼：
    <%
    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
    %>
    相反的，強(qiáng)迫以Http開始
    請?zhí)砑尤缦麓a
    <%
    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
    %>