<%@ LANGUAGE="VBSCRIPT" %> <% ck=request.cookies("wwwxingzhounet") response.buffer=true Response.Expires=0 //id=request.querystring("id") if ck<>"xingzhou" then Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("log.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From view ", conn,3,3 rs.addnew userip = Request.ServerVariables("REMOTE_ADDR") rs("ip")=userip ' rs("os")=Request.ServerVariables("HTTP_UA_OS") ' //rs("pixel")=Request.ServerVariables("HTTP_UA_PIXELS") rs("date")=now() rs.update rs.close conn.close set rs=nothing set conn=nothing end if %> |行洲软件*进销存*财务软件*财务进销存*进销存财务一体化软件--提供程序设计 软件开发 软件订制 网页设计 电子商务建设...
 联系我们   注册产品   产品FAQ   收藏本站 
天工商业进销存 
精工进销存2004
天工财务 
飞机定票系统
英语学习软件
 
关于我们
公司新闻
客户留言
信息反馈表
 
 
 
 
  包括:自动过帐(能将进、销收款等各种单据自动生成会计凭证)、会计凭证录入及会计报表(损益表、资产负债表)
 
 
 
<% if ck="xingzhou" then Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("log.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From view ", conn,3,3 ncounter=rs.recordcount rs.close rs.open "select * from view where year(date)=" & year(date()) & " and month(date) =" & month(date()) & " and day(date)=" & day(date()) ntoday=rs.recordcount response.write "该浏览器Cookies功能:"& ck response.write " 总人数"& ncounter response.write " 今天总人数"& ntoday %> chinadaily 访问记录 酷站访问记录 下载记录 下载记录(时间) 其他网站下载记录 visit visitlog 后台 <% rs.close conn.close set rs=nothing set conn=nothing else %> <% end if %>