SSLでのアクセスを必須にする方法です。
http://〜 ?query=valueでアクセスした場合にhttps://〜 ?query=valueにリダイレクトします。

ソースコード

Sub sslCheck()
    Dim url,l
    If Request.ServerVariables("HTTPS") <> "on" Then
        url = "https://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
        If Request.QueryString.Count > 0 Then url = url & "?" & Request.ServerVariables("QUERY_STRING")
        Response.Redirect url
    End If
End Sub

パラメータ

なし

戻り値

なし

説明

環境変数HTTPSの値をチェックし、HTTPSがonになっていない場合に、HTTPSをonにするためにリダイレクトします。

例

Call sslCheck