<%
dim con,rs,sql
set con=server.createobject("adodb.connection")
database="database\jw.mdb" '数据库名
dbpath=server.mappath(database)
con.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &dbpath
set rs = server.createobject("adodb.recordset")
curid=request("id")
sql = "SELECT * FROM hits1 WHERE id = " + cstr(curid)
rs.open sql,con,1,1
response.write("此页已点击:")
response.write(rs("hits"))
response.write("次,上次点击时间为:")
response.write(rs("data"))
sql = "UPDATE hits1 SET hits = hits + 1,data=now() WHERE id = " + cstr(curid)
con.execute sql
%>
|
