ASP程序自增

set rs = server.createobject("adodb.recordset")
'这里ProdId 是数据库里，你要做自增的字段
sql = "select * from bproduc where ProdId is not null"
rs.cursorlocation = 3
rs.open sql,conn,1,1
if rs.bof and rs.eof then'数据库没有数据，则设为1，暂时存到autoid
autoid=1
else
totalid=rs.RecordCount'有数据，根据数据库记录总数增1存到autoid
autoid=totalid+1
end if
rs.close
set rs=nothing

autoidtxt=cstr(autoid)

for i=1 to totalid
'检查自动生成的编号是否有重复，若有重复则自动加1

set rs=conn.execute("select prodid from bproduc where prodid='"&autoidtxt&"'")
if not (rs.eof and rs.bof) then
autoid=autoid+1
autoidtxt=cstr(autoid)
end if
set rs=nothing
next