<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from table
rs.addnew
rs("title") = "title"
rs("content") = "content"
rs.update
newid = rs("id")
rs.Close
Set rs = Nothing
%>(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)SQLSERVER用上面的方法不行,必须在UPDATE后多加一句,rs.movelast.
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from table
rs.addnew
rs("title") = "title"
rs("content") = "content"
rs.update
rs.movelast
newid = rs("id")
rs.Close
Set rs = Nothing
%>(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)
使用SQL获取的另外一种方法：http://www.aspbc.com/tech/showtech.asp?id=705