asp如何让浏览器在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
％>