<%@ 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 %>