得到刚刚插入的记录的自动编号值

流星

<!--StartFragment-->'得到刚刚插入的记录的自动编号值
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
dim NewDbid
NewDbid = rs("id") '得刚刚插入记录的自动编号的值

rs.close
set rs = nothing
conn.close
set conn = nothing
原文:http://www.51windows.net/data/?url=/data/folders/folder_74.asp