fgg

<!--#include file="conn.asp"-->
<%
Function vis(page)
    Set rs=Server.CreateObject("ADODB.Recordset")
 sql="select * from vistable"
  rs.open sql,conn,1,3
  oldtime=rs("tim")
  rs.close
  usertime = FormatDateTime(now,1)
  If oldtime<>usertime Then
 b="select * from vistable where pageclass='"&page&"'"
 rs.open b,conn,1,3
 sumcount=rs("sumcount")
 sumcount=cInt(sumcount)+1
 rs.close
    a="select today from vistable where pageclass='"&page&"'"
    rs.open a,conn,1,3
 today=rs("today")
    sqlinster="update vistable set tim= '"&usertime&"',today='1',yesterday='"&today&"',sumcount='"&sumcount&"' where pageclass='"&page&"'"
    conn.execute(sqlinster)
    today=cInt(today)+1
 rs.close
 Set rs=Nothing
    Else
  conn.execute("update vistable set today=today+1 where pageclass='"&page&"'")
  conn.execute("update vistable set sumcount=sumcount+1 where pageclass='"&page&"'")
  End If
  End Function

%>