yd12300浜戦《绾胯矾(鑲′唤)鏈夐檺鍏�鍙�

第一种：直接sql语句解决

conn.Execute "insert into tbl(a) values('aaa')"

Set rs = conn.Execute("select @@identity as NewID"

第二种：

rs.addnew

rs("yhm")=yhm

rs("mm")=mm

rs("sfsh")="未审核"

rs("tjsj")=now

rs("hyjb_id")=hyjb_id

rs("sjh")=sjh

rs("xm")=xm

rs("xm")=xm

rs("yqm")=yqm

rs("sfzh")=sfzh

rs("scsfzzp")=scsfzzp

rs("sj_id")=sj_id

rs.update

newID=rs("id")

response.Write newID