asp在日期后自动编号

<%
'2009
'fdate 文本
'fno 数字
'2009920
'0
'数据库建表2009，2个字段：fdate 文本，fno 数字
'初始化2009数据为：2009920，0

dim n
application.Lock()
sdate = year(now())&month(now())&day(now())
Set rsv=Server.CreateObject("ADODB.Recordset")
sqlv="select * from [2009]"
rsv.open sqlv,conn,1,3
if sdate <> rsv("fdate") then
n = 1
rsv("fdate")=sdate
rsv("fno")=1
else
n = rsv("fno")+1
rsv("fno") = n
end if
rsv.update
application.UnLock()
do while len(n)<3
n = "0"&n
loop

id=year(now())&month(now())&day(now())&n
%>

<%dim id,n
randomize()
n=Request("n")
n=n+1
if n<10 then
n="00"&n
elseif n>99 then
n=n
elseif n>9 then
n="0"&n
end if
id=year(now())&month(now())&day(now())&n%>

n=000+1不行吧,结果还是1
n=cstr("000") + cstr("1")

http://zhidao.baidu.com/question/118331220.html
看下我在这的回答，应该对你有所帮助