谁有图象计数器的代码？ - ASP技术论坛

楼主

问题点数：0 回复次数：5

谁有图象计数器的代码？

哪位大哥大姐有图象计数器的代码？麻烦给小弟贴一个上来哦！我在网上下的怎么都不好用呢？

搜索更多相关主题的帖子: 计数器　图象　代码　

第 2 楼

得分:0

<html>
                 <head>

　　<meta http-equiv="refresh" content="3">
<% function gc(bb)
                                 s=cstr(bb)
for i=1 to len(s)
                                                g=g&"<img src=im\"& mid(s,i,1)&".gif>"
next
gc=g
                end function
                                %>
</head>
                 <body>
<% application.lock
                                application("a")=application("a")+1
application.unlock        %>
                        欢迎您，第<% =gc(application("a"))        %>位客人
                 </body>
</html>

[此贴子已经被作者于2005-3-2 13:55:24编辑过]

第 3 楼

得分:0

楼上办法虽简单，但不足之处就是要是服务器从起了所有数据又都回“0“了
我把我写的代码发上来补充一下，是用文本来记录访问数据的
可能有点麻烦，还忘各大虾指出更简单的办法

<%
Sub NumR()
sFile = Server.Mappath("Num.txt")
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
if not oFso.FileExists(sFile) then
    Set FileNum = oFso.CreateTextFile(sFile)
        FileNum.Write(1)
        FileNum.Close
    Response.write "<img src=image\1.gif>"
  else
    Set FileNum = oFso.OpenTextFile(sFile,1)
        Num = FileNum.ReadLine()+1
        FileNum.Close
    For i = 1 to Len(Num)
        Response.write "<img src=image\" & Mid(Num,i,1) & ".gif>"
    Next
Set FileNum = oFso.OpenTextFile(sFile,2)
    FileNum.Write(Num)
    FileNum.Close
end if
end Sub
%>
你是第<% Call NumR() %>位访问本站的！

这里是一到十的图片下载[attach]1442[/attach]

[此贴子已经被作者于2005-3-3 17:23:50编辑过]