//这只是一个代码片段
  
function online
 dim user_ip,rs
 user_ip=Session("user_ip")
 If user_ip="" Then
  session("user_ip")=getuserip
  user_ip=Session("user_ip")
 End If
 set rs=conn.execute ("select * from online where ip='"&user_ip&"'")
 if rs.eof Then
  conn.execute ("insert into online(ip,sname,entertime,newtime) values ('"&user_ip&"',null,'"&now()&"','"&now()&"')")
Else
  conn.execute ("update online set newtime='"&now()&"' where ip='"&user_ip&"'")
 End If
  
我在IIS中对网站测试的时候，他说的是红色部分需要一个可以更新的查询语句，请各位高手指点一下，我应该怎样修改那段代码！