Asp 实现数据库ID复制代码

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={sql server};server=localhost;uid=sa;pwd=sa;database=pubs"
on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from jobs order by job_id asc"
conn.begintrans'开始事务
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
sqlupdate="update jobs set paixu="&rs("job_id")&" where job_id="&rs("job_id")
conn.execute(sqlupdate)
%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
if err.number=0 then
conn.committrans'执行事务
Response.Write("执行成功")
else
conn.rollbacktrans'回滚事务
Response.Write(err.description)
end if
%>