ASP如何实现自动编号？

<%

'假设你要设定的字段是

cfields="id_auto"

ctable="products"

set rs=conn.execute("select top 1 "&cfields&" from "&ctable&" order by id desc")

if not rs.eof then

c_topid=rs(cfields) ‘得到数据库中最后一条记录的值

c_id_only=mid(topid,4,len(c_topid) '取数字

next_id=clng(c_id_only)+1 '实现自加一

next_id=formatnum(next_id) '格式化数字

c_topid="ABC"&next_id

else

c_topid="ABC001"

end if

response.write "将要添加的编号是："&c_topid

function formatnum(sid)

tmpid=sid

if tmpid>99 then

tmpid1=tmpid

end if

if tmpid>9 and tmpid<100 then

tmpid1="0"&tmpid

end if

if tmpid<10 then

tmpid1="00"&tmpid

end if

formatnum=tmpid1

end function

%>

比如说四个输入框的name分别是pros（三个项目都叫它，这样你以后用下边这段代码，不管写多少个都行了）,autoCode,下边是提交后的代码

<%

autoCode=request.Form("autoCode") '接收编号前缀

pros=request.Form("pros") '接收所有数据

pros=split(pros,",") '将数据分割成数组

i=0

for each pro in pros '遍历数组中每个值

if(i<10) then

str="00"&i '当前序数小于10就在前边加俩0

elseif(i<100) then

str="0"&i '小于100就加一个0

end if

str=autoCode&str'把编号跟序数加在一起

sql="insert into 表 (name,card) values ('"&pro&"','"&str&"')"

conn.execute(sql)

i=i+1

next

%>

---