<%
dim conn, rs, sql, newid
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\demo\db1.mdb"
sql = "select top 1 * from website"
conn.open
rs.open sql,conn,3,3
rs.addnew
rs("name")="木子屋"
rs("url")="http://www.mzwu.com/"
newid=rs("id")
rs.update
rs.close
conn.close
set conn = nothing
response.Write(newid)
%>

<%
dim conn, sql, newid
set conn = Server.CreateObject("ADODB.Connection")
conn.connectionstring = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=mydb;User ID=sa;Password=sa"
conn.open
sql = "insert into website(name,url) values('木子屋','http://www.mzwu.com/')"
conn.execute(sql)
sql = "select scope_identity()"
newid = conn.execute(sql)(0)
conn.close
set conn = nothing
response.Write(newid)
%>

using (SqlConnection conn = new SqlConnection("Data Source=(local);Initial Catalog=mydb;User ID=sa;Password=sa"))
{
    conn.Open();
    using (SqlCommand cmd = new SqlCommand("insert into website(name,url) values('木子屋','http://www.mzwu.com/');select scope_identity();", conn))
    {
        MessageBox.Show(cmd.ExecuteScalar().ToString());
    }
    conn.Close();
}