一个漂亮的点击计数器
敬业的IT人
互联网
佚名
2008-4-14 16:36:31
<%@ 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>
<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>
- 最新文章
- 搜索按钮(客户端表单)[04-14]
- 转换字符串带有http://的超级链接字符串为真正的超级链接..[04-14]
- 编写数据库脚本[04-14]
- 用ASP建立邮件列表[04-14]
- 用ASP技术编制隐藏用户密码程序[04-14]
- 用ASP统计用户在站点的停留时间[04-14]
- 相关文章
