<%
Sub checkcategory(path)
'fixed 2005.07.24 SULei
if instr("0020206",path)>0 and path<>0 then response.write "c"
if path=0 and 0020206=0 then response.write "c"
End Sub
%>
<%
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","10426","view",counterTotalEntries,True)
set SiteCounters=nothing
%>
当前文档点击次数:<% =counterTotalEntries("hits").counter %>
.gif" alt="首页" name="aaa1" border="0" id="aaa1" />
.gif" alt="关于方圆" name="fff1" border="0" id="fff1" />
.gif" alt="信息服务" name="bbb1" border="0" id="bbb1" />
.gif" alt="专业服务" name="ccc1" border="0" id="ccc1" />
.gif" alt="商务平台" name="ddd1" border="0" id="ddd1" />
.gif" alt="学术园地" name="eee1" border="0" id="eee1" />
.gif" alt="English" name="ggg1" id="ggg1" />
