<!--#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
%>