日期:2014-05-17  浏览次数:20824 次

asp客户订单号怎么随机生成6位的代码
请大家帮个忙,我想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