最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
今天做了一个ASP计数器,放出源码吧,挺简单的!
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
'前天在johnny的专栏看到一个计数器,忽然想起以前我也做过~~今天就翻出来改了一下嵌入到我的BLOG中了~~放在别人的服务器上~~放出源码大家有用得着的看看吧~~如果不喜欢用图片的就改成文字得了!图片文件大家可以自己找点好看的放上!
'************************调用*********************
'*
'*************************************************
javastr="
%>
document.write(javastr)
'************************调用*********************
'*
'*************************************************
javastr="
"
<%
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+"" '//计数器图片文件
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+""
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"
"<%
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+"" '//计数器图片文件
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+""
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"
%>
document.write(javastr)
-
上一个: 一个完整的案例
相关文章
- asp简单文本计数器 12-18
- asp入门教程:ASP Server 对象简单 10-31
- asp+txt创建简单的计数器 07-14
- 简单的asp入门教程 06-06
- ASP入门教程 1小时ASP入门,非常简单 01-18
- 简单ASP计数器 01-18