openpastorders.inc

来自「能实现用户注册」· INC 代码 · 共 34 行

<%
CustomerID=session("CustomerID")
if (len(CStr(CustomerID))=0 or CustomerID="") then
	CustomerID=request.cookies("CustomerID")
end if

if (len(CStr(CustomerID))=0 or CustomerID="") then
	rows=0
else
	'====================================
	'SHOW PAST ORDERS
	'====================================
	sSQL="SELECT "
	sSQL=sSQL & "intSessionID, "
	sSQL=sSQL & "curTotalPrice, "
	sSQL=sSQL & "dOrderDate, "
	sSQL=sSQL & "dShipDate, "
	sSQL=sSQL & "strUPSTrackingNumber "
	sSQL=sSQL & "FROM tbl_Past_Orders "
	sSQL=sSQL & "WHERE CustomerID=" & CustomerID & " "
	sSQL=sSQL & "ORDER BY dShipDate"
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open sSQL, conn, 3, 3

	if (RS.BOF and RS.EOF) then
		rows=0
	else
		RS.movelast
		rows=RS.recordcount
		RS.movefirst
	end if
end if
'leave RS open!
%>