主题:  求教一个问题!

aoh1117

职务:普通成员
等级:1
金币:0.0
发贴:22
注册:2002/10/7 15:08:35
#12002/10/7 15:15:22
如何制作一个图形计数器?请给出较详细的方法!谢谢!!!!!!!!!



绿茶

职务:普通成员
等级:8
金币:10.0
发贴:19267
注册:2000/12/28 12:10:01
#22002/10/7 15:51:39
在纯文本数字计数器的基础上,把相应的数字替换成图片即可
取出数字后用一循环即可,注:图片名分别为:0.gif,1.gif...
如:
count=0
Set objCountFile = objFSO.OpenTextFile(dName,1,True)
    If Not objCountFile.AtEndOfStream Then count=CLng(objCountFile.ReadAll)
    objCountFile.Close
    Set objCountFile=Nothing

for i=1 to len(count)
s=mid(count,i,1)
response.write ""
next
这只是示例,没进行过测试

不要告诉我你不会写计数器哦



沉默是金

职务:普通成员
等级:6
金币:11.2
发贴:4357
注册:2004/2/18 11:17:25
#32002/10/8 13:17:14
先在同级目录里建一个count.txt文件,并写上要出现的数字,然后分别做从0-9的gif图片,再试试下面这段代码。
您是本站第
<% set rs=server.createobject("scripting.filesystemobject")
file=server.mappath("count.txt")
set cn=rs.opentextfile(file,1)
count=cn.readline
if session("in")<>"in" then
session("in")="in"
set cn=rs.createtextfile(file,true)
application.Lock
count=cint(count)+1
cn.writeline count
application.UnLock
end if %>
<% for i=1 to len(count) %>

<% next %>    位访客


难人一个……

emzz

职务:普通成员
等级:1
金币:0.0
发贴:3
注册:2002/10/16 13:14:47
#42002/10/16 14:27:30
如何做一个计数器?请高手告诉我最简单的一种代码.