Else's blog

'设计定单号
'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

Function OrderNum()
  str1  = "C"
  str2  = right(year(now()),1)
  str3  = lentwo(month(now()))
  str4  = lentwo(day(now()))
  str5  = right(conn.execute("select orderstr from orderstr")(0),4)
  ostr=str1&str2&str3&str4&str5
  OrderNum= ostr
  conn.execute("update  orderstr set orderstr=orderstr+1 where id=1") '定单号最后四
End Function