一个漂亮的点击计数器

　2001-02-13 10:55:53　来源：WEB开发网　　　

核心提示：<%@ Language=VBScript %> <html><% Set Conn = Server.CreateObject("ADODB.Connection")Conn.PRovider = "Microsoft.Jet.OLEDB.4.0"

<%@ Language=VBScript %>

<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
%>
<body bgcolor="#FFFFFF">
<center>
　 <table width=97 height="44">
　　<tr>
　　　<td background="counter.jpg" height="32" align="center" valign="top"> <%=RS( "counter" )%>
　　　</td>
　　</tr>
　</table>
</center>
<%
set Rs = nothing
set Conn = nothing
%>
</body>
</html>