public sub xie '这是写入
dim a
a=ip()
conn.execute"insert into sess(ip,dd) values('" & a & "','" & now() & "')"
end sub
public sub du '这是读出
dim a
a=ip()
conn.execute"delete from sess where datediff('s',dd,'" & now() & "')>10"
create_rs "select ip from sess where ip='" & a & "'"
end sub