FDS’s Blog

2008年11月27日

超简单的ASP计数器

Filed under: ASP — FDS @ 18:41

这里介绍一个超简单的ASP计数器实现方式给各位,希望对你有用哦。

以下是实现代码:我们把它保存为count.asp

javastr=”<div algin=’center’>”
<%
max=Request(“max”) ‘//计数器位数
If Request.cookies(“count”)=”" Then ‘//防刷
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
Set fp=fso.OpenTextFile(Server.MapPath(“count.dat”)) ‘//计数器统计文件
countn=fp.Readline
countn=countn+1
Fp.close
Set fp=Nothing
set fp=fso.createtextfile(server.mappath(“count.dat”))
fp.Writeline countn
set fp=nothing
set fso=nothing
Response.Cookies(“count”)=countn
End If
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
Set fp=fso.OpenTextFile(Server.MapPath(“count.dat”))
s=fp.Readline
For n=(max-len(s)) to 1 step -1
%>
javastr=javastr+”<img src=count/0.gif’ border=0>” ‘//存放计数器图片文件的位置
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+”<img src=’count/<%=mid(s,j,1)%>.gif’ border=0>”
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+”</div>”
%>

document.write(javastr)

在你想要显示的地方,添加如下代码,千万要搞正确文件的路径哦。

<script language=”javascript” src=”count.asp?max=8″></script>

评论暂缺 »

还没有任何评论。

这篇文章上的评论的 RSS feed TrackBack URL

留下评论

Powered by WordPress