<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("test.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [test] where testid is null" '自动编号字段为id
rs.open sql,conn,1,3
rs.addnew
rs("title") = ""
rs.update
response.write "testid值:<strong style=""color:red;"">" & rs("testid") & "</strong>" '得刚刚插入记录的自动编号的值
rs.close
set rs = nothing
conn.close
set conn = nothing
%>