|
|
||
|
© Copy Right By SIC, Tel: (855)11 825888 SSEAYP 04 |
<% Dim sql,sql1,str,rs,cnn Set cnn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.Recordset") str="Driver={Microsoft Access Driver(*.mdb)};"&"dbq="& Server.MapPath("data.mdb") cnn.open str sql="SELECT*FROM Hits" rs.Open sql,cnn,1,2 rs(0)=rs(0)+1 rs.Update rs.Close set rs=Nothing cnn.Close set cnn=Nothing Set cnn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.Recordset") cnn.Open str sql1="SELECT*FROM Hits" Set rs=cnn.Execute(sql1) If rs.EOF then response.Write(0) response.End Else %> <% End if rs.Close set rs=Nothing cnn.Close set cnn=Nothing %>