|
<%
Dim Cn,Rs
Set Cn = Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath( "MDB/reSource.mdb" ) & ";" & _
"User Id=Admin;" & _
"Jet OLEDB:Database Password=9811;"
SQL="UPDATE TCount Set xCount=xCount+1;"
Cn.Execute (SQL)
SQL="SELECT xCount from TCount Where TID=1"
Rs.Open sql,cn,1,1
xCount=Rs("xCount")
Rs.close
Cn.Close
SET RS=NOTHING
SET CN=NOTHING
%>
| |
繁體中文 ∣ English |
| |
參訪人數：<%=string(8-Len(xCount),"0")%><%=xCount%> 位 |
|
 |
 |
 |
 |
 |
 |
 |
 |
|
|
