shopmailformat.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 76 行

<%
Sub FormatMail (rsOrder, rsitems, merchant, customer)
'*************** Formats mail to Merchant
' can also be used to send customer confirmation
' 1/4/00 replace br with cr on description
'******************************************************************
Body=""
Dim Body
Dim body1
dim body2
Dim description
CR = Chr(10) & Chr(13)
Body1 = "Merchant Notification"& CR
Body2 = "Customer Order Confirmation" & CR
Body = "Order Number: " & RsOrder("OrderID") & CR
Body = Body & "Order amount $: " & formatCurrency(rsorder("orderamount"),2) & CR
Body = Body & "Order date: " & AdFormatdate(rsorder("odate")) & CR
Body = Body & "Shipping Cost: "  & formatcurrency(rsorder("oshipcost"),2) & CR
Body = Body & "Shipping Method: "  & rsorder("oshipmethodtype") & CR
Body = Body & "Tax: "      & formatcurrency(rsorder("otax")) & vbcrlf & vbcrlf
Body = Body & " Name: " & rsOrder("ofirstname") & " " & rsOrder("olastname") & CR
	Body = Body & " Company: " & rsorder("ocompany") & CR
	Body = Body & " Address: " & rsorder("oaddress") & CR
	Body = Body & " City: " & rsorder("ocity") & CR
	Body = Body & " State: " & rsorder("ostate") & CR
	Body = Body & " postcode: " & rsorder("opostcode") & CR
	Body = Body & " Country: " & rsorder("ocountry") & CR
	Body = Body & " Phone: " & rsorder("ophone") & CR
	Body = Body & " E-Mail: " & rsorder("Oemail") & CR
	Body = Body & " Card Number:  ****-****-****-****" & CR
	Body = Body & " Card Expiration:  **/** " & CR
' Shipping
	Body = Body & " Ship To: " & rsorder("oshipname") &  CR
	Body = Body & " Company Name: " & rsorder("oshipcompany") & CR
	Body = Body & " Shipping Address1: " & rsorder("oshipaddress") &  CR
	Body = Body & " Shipping City: " & rsorder("oshiptown") &  CR
	Body = Body & " Shipping State: " & rsorder("oshipstate") &  CR
	Body = Body & " Shipping Post Code: " & rsorder("oshipZIP") &  CR
	Body = Body & " Shipping Country: " & rsorder("oshipcountry") &  CR
'	Body = Body & " Shipping Telephone: " & rsorder("oshipphone") &  CR
	Body = Body & " Special Instructions: " & rsorder("ocomment") &  CR
' add items

body = body & "Products" & vbcrlf
Do While Not RSItems.EOF
        Body = Body & " Product Name: " & RSItems("Itemname") & CR
        description= RSItems("Itemname")
        replace description, "<br>", CR
 '      Body = Body & " Description: " & description & CR
        Body = Body & " Price: " & FormatCurrency(RSItems("UnitPrice"),2) & CR
        Body = Body & " Quantity: " & RSiTEMS("numitems") & CR
        RSItems.MoveNext
Loop 
Merchant= Body1&Body
Customer= Body2&CR&Body
'Debugwrite  merchant
end sub
Function AdFormatDate(indate)
dim monthname
Dim outdate
Dim m
Dim d
dim y
monthname=array("Jan","Feb","Mar","Apr", _
            "May","Jun","Jul","Aug", _
            "Sep","Oct","Nov","Dec")

m=DatePart("m",indate)
m=M-1
outdate = monthname(m) & " "
d=Datepart("d", indate)
y=DatePart("yyyy", indate)
outdate = outdate & d &" " & y
AdFormatdate=outdate
end function
%>