让一个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）
暂无评论。