주문서코드 invoice 코드 제작 - ASP

   주문서코드

만들기 나름이겠지만 제작했던 쇼핑몰의 invoice코드가 대략 이런식으로 만들어졌었기에 기록을 남겨둔다.

형식 = "[4자리 연도로 표기된 날짜] + [1] + [101] - [세션번호]"

예) 201404281101-750196931

만약 동일한 [4자리 연도로 표기된 날짜] + [1] 이 존재한다면 

그 뒷 부분인 [101..102..103]을 +1로 증가 시킴 + [세션번호]

예) 201404281102-750196931

   Code by Classic ASP

<%
Dim MyDB
Set MyDB=Server.CreateObject("ADODB.Connection")
MyDB.Open "DSN=SYS_F; UID=sa; PWD=mypasswordd"
%>

<%
Function createInvoice()
	
	Todays =  Replace(date(),"-","") '20140425
	SQLSTMT = "Select top 1 OrderNo AS OrderCount  From OrderInfo Where Left(( CONVERT(varchar(30), regdate, 112) ),8) = '"&Todays&"' AND Right(Left(OrderNo,9),1) = '1'  ORDER BY ID DESC "  
	'yyyymmdd AND (201304251 에서 오른쪽부터 '1')

	Set rst = MyDB.Execute(SQLSTMT)

	IF  rst.eof Then
		OrderCount = 101 '첫 주문번호이면 101부터 시작
	ELSE
		OrderCount = cint( MID(rst("OrderCount"),10,3) ) + 1 '주문번호가 있다면 20140225 '1' 102...로 증가
	END IF
	Set rst = nothing

	OrderNo = Replace(date(),"-","")&"1"&OrderCount&"-"&session.SessionID  '20140221'1'102-588626066
	createInvoice = OrderNo
End function

Dim invoice
invoice = createInvoice()
response.write invoice
%>