$U2 Forum rautinee原创$ '$http://u2bbs.126.com$ '下面的函数将实现任意改变计数器位数,你要做的准备工作是: '1、999_count.txt建立一个文本文件,并把初始值设为0。 '2、准备一组数字图片放在gif目录下 Function GCounter(CounterLen)'CounterLen是计数器的位数 CountFile=Server.MapPath("999_count.txt") Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine'读取'999_count.txt里面的计数值 Out.Close
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter=counter+1'累计加1 Out.WriteLine(counter) Application.unlock Out.Close Dim S, i, G ,n S = CStr( counter ) if Len(s)<CounterLen then For n = 1 to CounterLen-len(s) G = G&"<IMG SRC=http://www.okasp.com/techinfo/gif/0.gif>" Next End if For i = 1 to Len(S) G = G & "<IMG SRC=gif/" & Mid(S, i, 1) & ".gif>" Next response.write G End Function
|