<%@LANGUAGE="VBSCRIPT"%> <% Set con = Server.CreateObject("ADODB.Connection") con.Open "DBQ=" & Server.MapPath("db/counter.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" SQL = "SELECT * FROM counter" SET RS = con.Execute(SQL) RS.MoveFirst If session("count") = empty then count = RS("counts") + 1 Else count = Rs("counts") End If session("count") = count SQL = "UPDATE counter SET counts = '"&count&"' " SET RS = con.Execute(SQL) con.CLOSE %> 瀚祥沙發

營業時間：週一至週六 9:00~17:30
地址：台北市重慶北路四段228號　電話：(02)2811-1148　傳真：(02)2812-2815　e-mail：a0918913172@yahoo.com.tw
您是第<% =COUNT %>位蒞臨本站的貴賓。
網頁設計 沙發修理-沙發訂作