计数器：141984

 网页计数器 ASP 代码

<%

'1.创建连接对象 Connection

set cn=Server.CreateObject("ADODB.Connection")

'打开“网上书店库”连接

'cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

DATA SOURCE="&Server.MapPath ("/fsxss/mdb/wssdk.mdb")

'中国学生网 ASP 会员 OLEDB 要修改“/会员名/路径/数据库名”与实际对应，

虚拟主机不加会员名。

'自管主机软件要求 Windows Server 2000 服务版，

IIS 管理发布 Web 站点，支持 ASP 脚本运行。

'OLEDB：提供程序 MICROSOFT.JET.OLEDB.4.0，

数据源路径要对应本机硬盘物理路径。

cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;

DATA SOURCE="&Server.MapPath ("/mdb/wssdk.mdb")

'2.创建记录集对象 Recordset

set rs=Server.CreateObject("ADODB.Recordset")

'3.打开计数表，向计数字段赋值,用Update写入

rs.open"select 计数 from 计数表",cn,adOpenDynamic,3

rs("计数")=rs("计数")+1

rs.Update

%>

<p>

计数器：<% =rs("计数")%>

<p>

<%

rs.close

%>