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是一样的,应用于每一个新闻页面可以做一下改进