%@ Language=VBScript %> <% vs_today = mid(now(),1,4)&mid(now(),6,2)&mid(now(),9,2) Set rs=Server.CreateObject("ADODB.RECORDSET") sql = "select indate,w from web_log_tbl where indate = '" & vs_today & "'" rs.Open sql,mconn,1 if rs.eof or rs.bof then m=1 d1=0 d2=0 d3=0 d4=0 w=0 p1=0 p2=0 p3=0 p4=0 gf=0 gb=0 gp=0 ssql="Insert into web_log_tbl (indate,m,d1,d2,d3,d4,w,p1,p2,p3,p4,gf,gb,gp) values(" ssql = ssql & "'" & vs_today & "'" ssql = ssql & "," & m & "," & d1 & "," & d2 & "," & d3 & "," & d4 & "," & w ssql = ssql & "," & p1 & "," & p2 & "," & p3 & "," & p4 ssql = ssql & "," & gf & "," & gb & "," & gp & ")" mconn.execute(ssql) else w = rs("w") + 1 ssql = "update web_log_tbl set w = " & w & " where indate = '" & vs_today & "'" mconn.execute(ssql) end if rs.close set rs = nothing %>
|
|
||||||||||||||||
Copyright(c) 2003 by WISE InfoNet All Rights Reserved. Contact wiseinfonet@wiseinfonet.com for more informaiton. |
|||||||||||||||||