%@LANGUAGE="VBSCRIPT"%>
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DBQ=" & Server.MapPath("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
%>
有限責任台北市原住民清潔環保工程勞動合作社
 |
 |
|
您好!如果想進一步詢問詳細介紹,歡迎透過此聯絡表單,
將意見傳達給我們,我們會儘快為您服務,謝謝!
(此聯絡表單將會透過E-MAIL將訊息傳達給我們)
|
|
|
|
| |
|
|
| 有限責任台北市原住民清潔環保工程勞動合作社 |
| |
|