<!--#include file="../common/conn.asp"-->
<%
 isCounter=GetKey("Enable",WebUserID,"counter")
 if isCounter<>"Yes" then
 	response.End()
 End if
 sql="select * from web_counter"
 rs.open sql,conn,3,3
 NewHits=CLng(rs("counter"))

  '累加计数
  if rs("prevent") then
  	'防刷新，如果是第一次才计数
	if Trim(Session("WellCome"))="" then
		Session("WellCome")="1"
		 NewHits = NewHits + 1
		 rs("counter")=NewHits
		 rs.update
	end if
  else
	  NewHits = NewHits + 1
	  rs("counter")=NewHits
	  rs.update
  end if
 
 L=Len(NewHits)
	i = 1
	For i = i to L
		num = Mid(NewHits,i,1)
	Display = Display & "document.write('<img src=admin/count/" & num & ".gif>');" & chr(13)
	Next
	Response.Write Display

  rs.close
  conn.close
  set rs=nothing
  set conn=nothing
%>
