瀏覽人次計算

利用Request.ServerVariables("Remote_Addr") 計算瀏覽人次

1. 抓取cliend端ip
   Request.ServerVariables("Remote_Addr")
2. 將cliend端ip存入session
3. 條件(1或2)：
   1.判斷比較「cliend端ip」與「session存入的ip」，不相同。
   2.判斷session值為空。
   執行動作：計數+1。 session存入ip 。
4. 完畢。

<%    sqlstr = "SELECT top 1 * FROM WebCount"    Set Rs = Server.CreateObject("ADODB.Recordset")    Rs.open sqlstr,connE, 1, 3    if session("RemoteAddr_E") = "" or session("RemoteAddr_E") <> Request.ServerVariables("Remote_Addr") then       Rs("Web_Count") = Rs("Web_Count") + 1       session("RemoteAddr_E") = Request.ServerVariables("Remote_Addr")       Rs.update       Web_E_Count = "0000000" & Rs("Web_Count")       Session("Web_E_Count") = right(Web_E_Count,7)    End if    Rs.close    set Rs = nothing %>