_purchase_lib.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<!--#include virtual="/_config/config.asp" -->
<!--#include virtual="/_lib/_lib.asp" -->
<%
'功能：产生定单号
Function orderserie()
dim orderhao,rs,ordertemp,orderbackfour
orderhao=year(now())
if len(month(now()))<2 then
    orderhao=orderhao&"0"&month(now())
elseif  len(month(now()))>1 Then 
    orderhao=orderhao&month(now())
End if
if len(day(now()))<1 then
    orderhao=orderhao&"0"&day(now())
elseif len(day(now()))>1 Then
    orderhao=orderhao&day(now())
End if
if len(hour(now()))<1 then
    orderhao=orderhao&"0"&hour(now())
elseif len(hour(now()))>1 Then
    orderhao=orderhao&hour(now())
End if
if len(minute(now()))<1 then
    orderhao=orderhao&"0"&minute(now())
elseif len(minute(now()))>1 Then
    orderhao=orderhao&minute(now())
End if
if len(second(now()))<1 then
    orderhao=orderhao&"0"&second(now())
elseif len(second(now()))>1 Then
    orderhao=orderhao&second(now())
End if
  orderserie=orderhao
End function

%>