'设计定单号
'On Error Resume Next
Function OrderNum()
str1 = "C"
str2 = right(year(now()),1)
str3 = lentwo(month(now()))
str4 = lentwo(day(now()))
str5 = right(conn.execute("select str5 from orderstr")(0),4)
ostr=str1&str2&str3&str4&str5
if session("ostr")="" then
OrderNum=ostr
session("ostr")=ostr
conn.execute("update str5 set orderstr=orderstr+1 where id=1") '定单号最后四位加一
else
OrderNum= session("ostr")
end if
End Function
'On Error Resume Next
Function OrderNum()
str1 = "C"
str2 = right(year(now()),1)
str3 = lentwo(month(now()))
str4 = lentwo(day(now()))
str5 = right(conn.execute("select str5 from orderstr")(0),4)
ostr=str1&str2&str3&str4&str5
if session("ostr")="" then
OrderNum=ostr
session("ostr")=ostr
conn.execute("update str5 set orderstr=orderstr+1 where id=1") '定单号最后四位加一
else
OrderNum= session("ostr")
end if
End Function
建一个表str5 建字段,整形 orderstr 设置10000 各位有没有更好的方法?
想了一下,还是改成
我仰望星空，
它是那样寥廓而深邃；
那无穷的真理，
让我苦苦地求索、追随。
我仰望星空，
它是那样庄严而圣洁；
那凛然的正义，
让我充满热爱、感到敬畏。
我仰望星空，
它是那样自由而宁静；
那博大的胸怀，
让我的心灵栖息、依偎。
我仰望星空，
它是那样壮丽而光辉；
那永恒的炽热，
让我心中燃起希望的烈焰、响起春雷。
它是那样寥廓而深邃；
那无穷的真理，
让我苦苦地求索、追随。
我仰望星空，
它是那样庄严而圣洁；
那凛然的正义，
让我充满热爱、感到敬畏。
我仰望星空，
它是那样自由而宁静；
那博大的胸怀，
让我的心灵栖息、依偎。
我仰望星空，
它是那样壮丽而光辉；
那永恒的炽热，
让我心中燃起希望的烈焰、响起春雷。
在blog能打开的日子里
感觉还不错,先写点什么在说了!休息了几天!今天早上刚刚做在电脑前,拿着QQ不知道干什么!生活也没有什么可以有活力的,也许现在真得是太消沉了,但也积极不起来!!!!!
都不知道自己在干什么,或是想什么?事与原违!还是逆来顺受?
日子太不ok了,真得太不ok呀!
昨天打电话给她不知道聊些什么,聊不起精神来!或许很多话想要说,但是也说出不来,有些事,就是这样,我有什么办法,我要怎么办,这样的日子太没意思了!我一点也不快乐!
感觉还不错,先写点什么在说了!休息了几天!今天早上刚刚做在电脑前,拿着QQ不知道干什么!生活也没有什么可以有活力的,也许现在真得是太消沉了,但也积极不起来!!!!!
都不知道自己在干什么,或是想什么?事与原违!还是逆来顺受?
日子太不ok了,真得太不ok呀!
昨天打电话给她不知道聊些什么,聊不起精神来!或许很多话想要说,但是也说出不来,有些事,就是这样,我有什么办法,我要怎么办,这样的日子太没意思了!我一点也不快乐!
