添加一条记录后，立即获取此条记录的id

添加一条记录后，立即获取此条记录的id

dim tmpi,NewRecId

set rs=server.createobject("adodb.recordset")

sql="select * from UserInfo where (id is null)"

rs.open sql,conn,1,3

rs.addnew

rs("UserName")="张三"

rs.update

tmpi=rs.bookmark '记录当前的标记

rs.bookmark=tmpi '把游标移动到记录的位置

NewRecId=rs("id") '获取新记录id

rs.close

set rs=nothing