在http和https之间转化

id="baiduframe" border="0" marginwidth="0" framespacing="0" marginheight="0" src="http://unstat.baidu.com/bdun.bsc?tn=wdd775_pg&cv=0&cid=1034445&csid=106&rkcs=4&bgcr=F0F6FB&ftcr=0000CC&rk=1&bd=1&tbsz=&tbst=&bdas=0" frameborder="0" width="468" scrolling="no" height="60">

<script type="text/javascript"> google_ad_client = "pub-9718468514884886"; google_ad_width = 468; google_ad_height = 60; google_ad_format = "468x60_as"; google_ad_type = "text_image"; google_ad_channel = ""; </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

在做电子商务站点的时候，经常要求浏览器在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 %> 希望能对你有所帮助

<script type="text/javascript"> google_ad_client = "pub-9718468514884886"; google_ad_width = 336; google_ad_height = 280; google_ad_format = "336x280_as"; google_ad_type = "text_image"; google_ad_channel = ""; </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

id="baiduframe" border="0" marginwidth="0" framespacing="0" marginheight="0" src="http://unstat.baidu.com/bdun.bsc?tn=wdd775_pg&cv=0&cid=1034445&csid=106&rkcs=4&bgcr=F0F6FB&ftcr=0000CC&rk=1&bd=1&tbsz=&tbst=&bdas=0" frameborder="0" width="468" scrolling="no" height="60">