|
...ยินดีต้อนรับ...
เข้าสู่เว็บไซต์มะม่วง
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("mangodb.mdb")
Sqlc = "Select * From statistic"
Set rsCounter = Server.CreateObject("ADODB.Recordset")
rsCounter.Open Sqlc,Conn,1,3
Counter = rsCounter("COUNT")
If Session("visitor") = "" then
Counter = Counter+1
rsCounter("COUNT") = Counter
rsCounter.update
Session("visitor") = Counter
Session.Timeout = 30
End if
rsCounter.Close : Set rsCounter = nothing
Conn.Close : Set Conn = nothing
StrCount = Right("000000" & Counter,6)
Response.Write("" & StrCount & "")
%>
|
ชื่อภาษาอังกฤษ
