|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。程序|计数器|网页网页计数器DIY
跟着收集年夜行其道,网页计数器也盛行起来。现实上年夜多半网站均有网页计数器,用以反应该网站的会见量。计数器的来历很广,Frontpage等网页编纂器自带了网页计数器,有的站点也供应收费的计数器下载。实在熟习了ASP编程后,本人做一个计数器很简单。上面先容一种完成办法。
计数器道理是:在第一次利用网页时置初始值1,今后每哀求网页一次,将计数器值加1。如许我们只需在服务器上安排一个文本文件counter.txt,文本文件的内容有计数器的值,今后每哀求一次页面,读出文本文件的计数器的数值,加1显现,然后再将本来的值改动为加1后的值,保留到文本文件。至于初始置1,在服务器上可先不建counter.txt,在网页中,先判别服务器上是不是有counter.txt文件,没有就天生counter.txt,在counter.txt中写进1,网页上显现计数器值1,完成初始置1。今后每次只需到指定目次下将counter.txt文件删除便可置初始值。
详细操纵时要有显现数字0、1、2….9的图象文件,0.gif、1.gif、2.gif…9.gif,文件不克不及太年夜,一样平常18*25便可。将你要放计数器的网页结构计划终了,再改成ASP文件,将上面代码输出到要显现计数器的中央,利用时,程序将主动在假造目次count下创建counter.txt文件。置初始值时将文件删除便可。对了,假造目次count必需给everyone有写的权限。
<%
ConstForReading=1,ForWriting=2,ForAppending=3
ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
filepath=server.mappath("/count")
filename=filepath+"counter.txt"
setfs=createobject("scripting.filesystemobject")
iffs.fileexists(filename)then
setf=fs.getfile(filename)
Setts=f.OpenAsTextStream(ForReading,
TristateUseDefault)
s=ts.readline+1
ts.close
else
fs.createtextfile(filename)
setf=fs.getfile(filename)
s=1
endif
向counter.txt中写数据
Setts=f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s))
ts.close
显现计数器
s=cstr(s+1000000)
s=mid(s,2,6)
fori=1to6
response.write""
next
%>
要显现n位计数器只需将下面代码改成:
<%
s=cstr(application(“visitor”)+10^n)
s=mid(s,2,n)
forI=1ton
response.write"<imgsrc=http://www.163design.net/a/images/"
&mid(s,i,1)&".gifwidth=18height=25>"
next
%>
如许要失掉8位计数器,只需加上n=8便可。
如果以为每次有效户进进网站,均对counter.txt写进太频仍,能够在session_onstart中设置,在application
(“visitor”)为十的倍数时将计数值写进counter.txt。
怎样?如今就下手吧!
</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|