如自动生成一个流水号码,~

根本日期,~年月日 然后加上一个四位的随机数，最前加個區別碼(比方說A)

舉個例：A 2005 12 27 0001

誰能告訴我相應人代碼嗎？謝謝了！

[此贴子已经被作者于2005-12-27 10:30:04编辑过]

對啊，就這樣一個問題！請問版竹大哥有在嗎？出來幫幫小弟忙啊？

正如這個所說的，我正要的是這種效果！

<%
ranNum=int(99*rnd)+100
iddata="A"&year(now)&month(now)&day(now)&ranNum
%>
然后調用 iddata 得到的數字是隨機的，要怎么改才能使從 A 2005 12 27 001 開始？
幫我想想辦法？謝謝大家了！

[此贴子已经被作者于2005-12-27 11:41:08编辑过]

程序已經寫好，但為什么祂不前面補0呢？
我在數據庫里添加了 WX 05 12 001 -003
但在前如添加的時候 流水號自動生成為 WX 05 12 4 應該要為 WX 05 12 004
請大家看看是哪里出錯了！

<%
stra="WX"&right(year(now()),2)&month(now)

connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.Open "select * from weix where left(dj,6)='"&stra&"' order by dj desc",conn,1,3
if rs.recordcount=0 then
intstr="001"
else
intstr=right(rs("dj"),3)
intstr=cint(intstr)+1
end if
IDNO=stra&intstr
%>

[此贴子已经被作者于2005-12-28 8:22:02编辑过]

呵呵，我用一個蠢辦法解決了，在

intstr=right(rs("dj"),5) （3改成了5）
intstr=cint(intstr)+1
下加一行
intstr=right(intstr,3)

[此贴子已经被作者于2005-12-28 8:46:38编辑过]