% Dim conn dim rst dim rst2 Dim rs Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("control/wx_b_db.mdb") set rs2=Server.CreateObject("ADODB.Recordset") set rst=Server.CreateObject("ADODB.Recordset") set rst2=Server.CreateObject("ADODB.Recordset") Set rst=conn.Execute("Select * From tongji2") Set rst2=conn.Execute("Select * From tongji where ip地址='"&Request.serverVariables("REMOTE_ADDR")&"' order by 登陆时间 desc") set rs5=Server.CreateObject("ADODB.Recordset") set rs6=Server.CreateObject("ADODB.Recordset") set rs7=Server.CreateObject("ADODB.Recordset") rs5.Open"Select * from firstpage where id=1" ,Conn,3 rs6.Open"Select * from firstpage where id=2" ,Conn,3 rs7.Open"Select * from firstpage where id=3" ,Conn,3 if rst2.eof<>true then If datediff("n",rst2.fields("登陆时间"),now)>20 Then SQLstr="Insert Into tongji (ip地址,登陆时间) Values ('"&Request.serverVariables("REMOTE_ADDR")&"','"&Now&"')" conn.Execute(SQLstr) SQLstr="Update tongji2 Set 总访问量=总访问量+1 Where 编号=1" conn.Execute(SQLstr) End If else SQLstr="Insert Into tongji (ip地址,登陆时间) Values ('"&Request.serverVariables("REMOTE_ADDR")&"','"&Now&"')" conn.Execute(SQLstr) SQLstr="Update tongji2 Set 总访问量=总访问量+1 Where 编号=1" conn.Execute(SQLstr) end if %>
|
地址:成都天府大道南沿线 |
|
版权所有:成都川抗派德生物医药科技有限公司 Copyright (C) 2002-2005 All Rights Reserved |
|---|