<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Set con = Server.CreateObject("ADODB.Connection") con.Open "DBQ=" & Server.MapPath("counter.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MSAccess;" SQL = "SELECT * FROM counter" SET RS = con.Execute(SQL) RS.MoveFirst count = RS("counts") + 1 SQL = "UPDATE counter SET counts = '"&count&"' " SET RS = con.Execute(SQL) con.CLOSE %> 宜蘭民宿 - 界楠園農莊
~ 請 勿 任 意 使 用 本 站 圖 片 、 文 字 內 容 ~

您是第 <%=count%> 位參觀本站的貴賓