<!--#include file = "../inc/dbconn.asp"-->
<!--#include file = "../inc/cache.asp"-->
<!--#include file = "../inc/function.asp"-->
<% call dbconn %>
<% 
if IS_Pop("IS08") then '判断是否开启统计 首页/分页全面点击监控
  Call PreventRefresh(20)
  on error resume next
  dim a,u,t:a=gqv("a"):u=gqv("u"):t=gqv("t") 
  if  a<> "" and  u<> "" and t<> "" then 
	 if FindText(u,"/html/")=true then 
	    if FindText(u,"itmop.com")=false then response.end
	 end if
    dim rs,sql
	set rs = server.createobject (G_654_RS)
	    sql = "select * from TJ654_Track where u='"&u&"'"
	    rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
	       Conn.Execute("Update TJ654_Track Set click ="&rs("click")+1&" Where u= '"& u&"'")
	       rs.close
		else
           rs.close   
           rs.open "insert into TJ654_Track (a,u,t) values('"&a&"','"&u&"','"&t&"')"
		end if		
		set rs = nothing
		if a="A" then Call Creatlivejs()
		'if a="S" then Call createindex()
  end if  
end if
		
%>
