一个漂亮的点击计数器

1@ Language=VBScript

1<html>

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from table1", Conn, 1,3
Rs.addnew
rs.movelast
Rs("hits") =hits
Rs.update

1<body bgcolor="#FFFFFF">
2<center>
3<table height="44" width="97">
4<tr>
5<td align="center" background="counter.jpg" height="32" valign="top"> ```
6=RS( "counter" )

```

set Rs = nothing
set Conn = nothing

1</body>
2</html>