dim conn,rs
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("51windows.mdb")
set rs=Server.CreateObject("ADODB.Recordset")

sql="select * from [table] where ID is null" '自动编号字段为id
rs.open sql,conn,1,3
rs.addnew
rs("Name") = Request.form("Name")
rs("Name2") = Request.form("Name2")
rs.update

response.write "ID值：<strong style=""color:red;"">" & rs("ID") & "</strong>" '得刚刚插入记录的自动编号的值

rs.close
set rs = nothing
conn.close
set conn = nothing