<%
dim conn,rs,rs1,str
set conn=server.createobject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.open conn_init()
rs.open "select * from tongji",conn,2,3
rs.addnew
rs("fw_ip")=request.servervariables("remote_addr")
rs("fw_time")=formatdatetime(now(),vbshortdate)
rs.update%>
