网页中如何用代码设置网页访问计数器?

1、将以下代码加在你需要得位置； 2、在根目录下创建名为count的文件夹，并在里面创建counter.txt文件,文件初始值为0（可更改）； 3、将设置好的网页保存为.asp格式； 4、ok 您是第<span class="style2"> <% Const ForReading = 1, ForWriting = 2, ForAppending =3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 filepath=server.mappath("/count") filename=filepath+"\counter.txt" set fs=createobject("scripting.filesystemobject") if fs.fileexists(filename) then set f=fs.getfile(filename) Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s=ts.readline+1 ts.close else fs.createtextfile(filename) set f=fs.getfile(filename) s=1 end if '向counter.txt中写数据 Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.writeline(cstr(s)) ts.close '显示计数器 s=cstr(s+1000000) s=mid(s,2,8) for I=1 to 8 response.write mid(s,I,1) next %> </span>位访问者

你可以到别的网站去申请计数器、留言本什么的，然后只需把它给你的一段话插在主页里就行了，告诉你一个简单的法子，在编辑主页时你一定看到下面的三个标签，其中中间一个是“HTML”标签，点一下，你要插入一段语句，（这句话大抵是“<script src="http://…………"></script>或<a href="http://……">”什么的）就必须插入到HTML的页面里，在“HTML”而里找一下这句话“</body>”（看清了，这句话有个“/”，是在HTML的未尾。)找到这个语句后将你申请的计数器的那句话复制到这个语句之后，（最好之前备份一下这个页面文件，免得搞错了）复制完了保存一下，会发现那个“</body>”自己跑到后面去了，然后回到编辑页里看看，页面最后是不是多点东东？你可以试着上网看看这个计数器管不管用，方法嘛，你只要刷新一下你在硬盘上的页面文件就应能看到计数器了。记好，刷新是很重要的，凡是你修改并保存了页面，想看看改变后的结果，你只需点一下刷新就成啦，不必关掉再打开IE。这时你就可以对这个计数器象 *** 作图片一样放在你喜欢的地方了，剪切复制粘贴都行，放好后就不必管它，当你的主页上传后它就会每天忠实的给你报告访问量了。

满意请采纳

---