shopthanks.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<!-- #include file="shop$db.asp" -->
<%
'**************************************************************************
' This is last routine in order process
' Order is already in database, we now notify merchant via eimail
' and print order number for the client 
' 17/3/00 check for order before proceeding
' Do not put out normal page trailer
'
' April 7  Version 2.30  Demo Version 
'**************************************************************************
dim ordernumber
ordernumber=session("oid")
if ordernumber="" then
   Response.Redirect "shoperror.asp?msg=" & Server.URLEncode ("订单号是过期无效的。")
end if
ShopPageHeader                     ' Normal shop header
DisplayOrderNumber                 ' Display the order number
ShopCancelOrder
ShopPageTrailer
Sub DisplayOrderNumber
%>
<P align=center>谢谢您的惠顾！<br>
  ☆☆☆请牢记你的订单号，以便查询☆☆☆<br>
  <b>您的订单号是: <%=ordernumber%></b> </P>
<%
end sub
%>