填补access删除的自动编号

<%
Set conn=server.CreateObject("adodb.connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/admin.mdb")
conn.open connstr
SQL="INSERT INTO news(newsid) values (694)"   '假如694行被删除
conn.execute(sql)
conn.close
set connnews=nothing
%>

access数据库中自增长字段被删除的位置，直接打开不好修改，这样添加居然可以的