<%
DB="database.mdb"
path=Server.MapPath(DB)
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
conn.Open connstr
Set rs=server.CreateObject("adodb.recordset")
'功能:更新新闻的点击数
'开发:www.111cn.net'
'原创文章，转载请保留此信息，谢谢
id=request("id")
sql="update news set hits=hits+1 where id="&id
conn.execute(sql)
sql="select hits from news where id="&id
rs.open sql,conn,1,1
If rs.eof Then
Else
response.write "document.write("&rs("hits")&")"
End If
rs.close
Set rs=nothing
%>
html代码与调用方法
<html>
<head>
<title>html静态页面上的动态点击数</title>
</head>
<!--
'效果:html静态页面上的动态点击数
'原创文章，转载请保留此信息，谢谢
'注意：此静态页面必须在IIS下浏览才可以看到效果，
直接双击不可以看到效果
-->
<body>
<div width="500">
<div style="width:80%; border-bottom:1px #eeeeee solid; text-align:center; height:25px;"><h1 style="color:#ff0000; font-size:14px;">江苏惊魂一胜注定放血 球迷投杂物砸巴特尔恐遭罚</h1></div>
<div style="width:80%; margin-top:10px;font-size:12px; text-align:center;">来源：sports.sina.com.cn 点击数：<script language="javascript教程" src="1.asp教程?id=1"></script>次</div>
<div style="margin-top:20px; font-size:12px;line-height:20px; width:80%;"><!-- 正文内容 begin -->
<div class="blkContainerSblkCon" id="artibody">
<!-- 显示附图 begin -->
<!-- 显示附图 end -->
<!-- 显示图片 begin -->
<!-- 显示图片 end -->
<!-- 输出内容-新分页 begin -->
<p>
<p> <中国web第一站www.111cn.net</p>
</div>
<!-- 正文内容 end --></div>
</div>
</body>
</html>