asp定单函数 
'设计定单号
'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 各位有没有更好的方法?
想了一下,还是改成
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
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
《仰望星空》
最近
