<%
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
%>
川抗派德|多肽|质量控制
