一个漂亮的点击计数器

<%@ Language=VBScript %>





<%



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

%>





   

    

      

    

  

<%=RS( "counter" )%>

<%

set Rs = nothing

set Conn = nothing

%>