<% 	sub count()
'计数器
  dim conncount,connpathcount,dbpathcount,tmprscount,vtotalcount,lcount,num,Display
 set conncount=server.createobject("adodb.connection")
 connpathcount= "count/count.mdb"
 DBPathcount = Server.MapPath(connpathcount)
 conncount.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathcount

'所有总访问数、开始访问日期（从主数据库读取）
    tmprscount=conncount.execute("Select count(id) As vtotal  from view")
    vtotalcount=tmprscount("vtotal")
	conncount.Close
	set conncount=nothing
    Lcount=Len(vtotalcount)
	i = 1
	For i = i to Lcount
		num = Mid(vtotalcount,i,1)
	Display = Display&"<img src=count/c/"&num&".gif>&nbsp;"
	Next
	  
response.write "<TABLE cellSpacing=0 cellPadding=0 width="""&TableWidth&""" border=0 align=center><tr valign=center><td align=center><font color="& BodyFontColor &"><a href=count><img src=count/c/0.gif border=0></a>&nbsp;"&Display&"</font></td></tr></table> </body> </html>"
end sub
%>