请大家帮个忙，我想ASP客户生成订单能不能随机生成（只是6位）这个代码怎么写。我现在写出生成20121109001339订单号的代码（可是太长了）我想随机生成6位就行了例如290313这样的号或是7为也行。这个代码怎么写，请大哥帮帮忙。谢谢了
------解决方案--------------------
asp流水号怎么写，小弟不会，请大哥赶紧帮帮忙
------解决方案--------------------
6位随机的话太少了 容易重复。
如果要6位，那就不如直接用计数的方式了。用数据库自增字段。前面加0得到6位.
s = Right("00000" & id, 6)
------解决方案--------------------
生成一个顺序的表，然后从里边拿6位数。用过的delete
------解决方案--------------------
好深奥的问题，菜鸟经过
------解决方案--------------------
用121109 这个不就6位了
------解决方案--------------------
首先 你要估算订单量大小
下面的供你参考
如果是7位订单号：0 00 0000
第1位：表示单据分类 1:订单 2：出库单 3：入库单…………（用字母开头也可以）
第2,3位：表示年份 <%=right(year(date),2)%>
最后几位流水号：按照2楼的方法做！
建一张表，用来存储当前订单最后四位。每次使用时，取出来+1就可以了。如果订单删除了，请不要-1。订单删除用逻辑删除。
年度结束以后，将存储当前订单最后四位的字段重置为0，新一年的订单号又重新开始鸟。。。。。
------解决方案--------------------
怎么写还是不太会，有没有源码的例子。
------解决方案--------------------
不重复的，可以这么写
<%
Randomize
OrderID = Year(Now) & Right("0"& Month(Now),2) & Right("0"& Day(Now),2) & Right("0"& Hour(Now),2) & Right("0"& Minute(Now),2) & Right("0"& Second(Now),2) Right("00000"& Round(Rnd*89999,0),5)
%>
------解决方案--------------------
<%dim shijian,dingdan
shijian=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shopxp_action where username='"&username&"' and zhuangtai=7",conn,1,3
if request.Cookies("shopxp")("username")<>"" then
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if
do while not rs.eof
rs("zhuangtai")=1
rs("dingdan")=dingdan
rs("dingdan2")=dingdan2
rs.movenext
loop
rs.close%>
帮我看看这个代码怎么加上一个随机数字，防止在同一秒钟下订单是一样的（现在订单显示是20121112220749）
一直到秒。大家帮帮我，我不知道该在什么地方加个随机好防止订单一样了
------解决方案--------------------
我这这个后面加了dingdan=now()&Right("00000"& Round(Rnd*89999,0),5)订单号太长了，能不能短的订单号显示是2012111222252863499，能不能断点。大家帮小弟想想。谢谢了。老板急要。
------解决方案--------------------
随机生成？不能保证不重复！建议你用流水号！方便简单！
------解决方案--------------------
这段代码怎么改成流水号，帮帮我
<%dim shijian,dingdan
shijian=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shopxp_action where username='"&username&"' and zhuangtai=7",conn,1,3
if request.Cookies("shopxp")("username")<>"" then
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if
do while not rs.eof
rs("zhuangtai")=1
rs("dingdan")=dingdan
rs("dingdan2")=dingdan2
rs.movenext