城杆

test.htm
<script language="JavaScript" src="test.asp" type="text/JavaScript"></script>

-------------------------------------------------------

test.asp
<%
filename=server.MapPath("count.txt")
set fso=server.CreateObject("scripting.filesystemobject")
set myfile=fso.opentextfile(filename,1,true)
num=myfile.readline+1
myfile.close
set myfile=fso.opentextfile(filename,2,true)
myfile.writeline num
myfile.close
text=text&"document.write('"&num&"');"&chr(13)&chr(10)
response.write text
%>

------------------------------------------------------------

count.txt
0

------------------------------------------------------------

这是一个十分简单的例子，打开test.htm可以看到你想要的效果
操作ACCESS或SQL是一样的，应用于每一个新闻页面可以做一下改进