Site hosted by Angelfire.com: Build your free website today!

 

เพื่อนช่วยเพื่อน


 

 
   
   

จำนวนผู้เคยเยี่ยมชม <% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Provider="Microsoft.Jet.OLEDB.4.0" Conn.Open Server.MapPath("counter.mdb") Sql="SELECT * FROM statistic" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open Sql,Conn,1,3 counter = rs("COUNT") counter = counter + 1 rs("COUNT") = counter rs.Update Session("visitor") = counter Session.Timeout = 30 rs.Close : Set rs = Nothing Conn.Close : set Conn = Nothing strCount=Right("000000" & counter,6) For i = 1 to Len(StrCount) Response.Write "" Next %>