高校问答掌家娘子书包网番外:请给我一个图形记数器html代码
来源：百度文库 编辑：高校问答 时间：2024/04/29 19:52:05
<%
Function G_Counts(CounterFile)
Dim objFSO, objTS, Counts, StrCounts
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
'由左到右取出计数器数值的每个数字，然后对应至此数字的图形文件名称
StrCounts = CStr(Counts)
For i = 1 to Len(StrCounts)
G_Counts = G_Counts & "<IMG SRC=digit" & Mid(StrCounts, i, 1) & ".jpg>"
Next
End Function
%>
<HTML>
<BODY BGCOLOR="#FFFCC2">
<P><IMG SRC="last.jpg"></P>
你是第<%= G_Counts("Counter2.txt") %>位访客<BR>
最近一次的浏览日期时间：<%= Application("LastVisitDate") %>
<% Application("LastVisitDate") = Now() %>
</BODY>
</HTML>
图片在我这里啊,传不过去啊,我QQ375233772
计数器是基于ASP语言的，没有HTML的计数器代码。