| 下载次数: |
<%
dim counterTotalEntries
set counterTotalEntries=Server.CreateObject("ActiveContent.CounterTotalEntries")
call counterTotalEntries.Add("hits",0,date)
Dim SiteCounters
Set SiteCounters = server.CreateObject("ActiveContent.SiteCounters")
call sitecounters.WriteCounter("document","334","view",counterTotalEntries,True)
set SiteCounters=nothing
%>
<% =counterTotalEntries("hits").counter %> |