<%
'website:http://www.angelasp.com
' Angel工作室技术开发团队:QQ:815657032、QQ：709047174
' Copyright (C) Angel工作室 (http://www.angelasp.com).  All rights reserved
 if  request.Cookies("guest")("id")<>"" then
     response.End
 else
   T_ip =request.ServerVariables("REMOTE_ADDR")
   set rsc =server.CreateObject("adodb.recordset")
   sqlc="select * from Statistics"
   rsc.open sqlc,conn,1,3
   rsc.addnew
   rsc("sta_ip")=T_ip
   rsc("sta_addtime") = now()
   rsc("sta_number") = 1
   rsc.update
   response.Cookies("guest")("id") = rsc("id")
   response.End
   rsc.close
   set rsc = nothing
  end if
%>
