orderinfo.asp

网上购物源代码

<%
dim rsObj,strSQL
dim orderID

orderID = RealString(Request.Form("orderID"))
set rsObj = Server.CreateObject("ADODB.RecordSet")
if orderID = "" then orderID = 0

strSQL = "SELECT * FROM OrderList WHERE id = "& orderID &" AND memberID = '"&Session("memberID")&"'"
rsObj.Open strSQL, conn, 2,1

%>
<TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1">
        <tr bgcolor = "#FFDFC6"> 
          <td colspan = "2" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "center">查看订单(订单号:<%=orderID%>) </div>
          </td>
        </tr>
<%if not (rsObj.eof or err) then %>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">客户帐号</div>
          </td>
          <td width = "88%"><%=rsObj("memberID")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">收货人姓名</div>
          </td>
          <td width = "88%"><%=rsObj("customerName")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">收货人地址</div>
          </td>
          <td width = "88%"><%=rsObj("address")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">邮政编码</div>
          </td>
          <td width = "88%"><%=rsObj("zipcode")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">联系电话</div>
          </td>
          <td width = "88%"><%=rsObj("phone")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">电子邮件</div>
          </td>
          <td width = "88%"><%=rsObj("email")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">付款方式</div>
          </td>
          <td width = "88%"><%=rsObj("payment")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">备注</div>
          </td>
          <td width = "88%"><%=rsObj("remark")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">订货日期</div>
          </td>
          <td width = "88%"><%=rsObj("createDate")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">发货日期</div>
          </td>
          <td width = "88%"><%=rsObj("treatedDate")%>　</td>
        </tr>
        <tr> 
          <td width = "12%" nowrap bgcolor = "rgb(210,232,255)"> 
            <div align = "right">发货备注</div>
          </td>
          <td width = "88%"><%=rsObj("treatedRemark")%>　</td>
        </tr>
      </table>
<%
'书籍明细
strSQL = "SELECT * FROM orderDetail WHERE orderID = "& orderID
set rsObj = conn.execute (strSQL)
%>
      <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table2">
        <tr bgcolor = "#FFEFB0"> 
          <td width = "10%" bgcolor = "rgb(210,232,255)"> 
            <div align = "center">书籍编号</div>
          </td>
          <td width = "46%" bgcolor = "rgb(210,232,255)"> 
            <div align = "center">书籍名称</div>
          </td>
          <td width = "13%" bgcolor = "rgb(210,232,255)"> 
            <div align = "center">书籍价格</div>
          </td>
          <td width = "14%" bgcolor = "rgb(210,232,255)"> 
            <div align = "center">书籍数量</div>
          </td>
          <td width = "17%" bgcolor = "rgb(210,232,255)"> 
            <div align = "center">金额小计</div>
          </td>
        </tr>
        <%
dim totalPrice
totalPrice = 0
do while (not rsObj.eof or err)  
%>
        <tr> 
          <td width = "10%"> 
            <div align = "center"><%=rsObj("productID")%>&nbsp; </div>
          </td>
          <td width = "46%"> 
            <div align = "center"><%=rsObj("productName")%>&nbsp; </div>
          </td>
          <td width = "13%"> 
            <div align = "center"><%=rsObj("price")%>&nbsp; </div>
          </td>
          <td width = "14%"> 
            <div align = "center"><%=rsObj("quantity")%>&nbsp; </div>
          </td>
          <td width = "17%"> 
            <div align = "center">
              <%if rsObj("price")<>"" AND rsObj("quantity")<>"" then Response.Write rsObj("price")*rsObj("quantity")%>
              &nbsp; </div>
          </td>
        </tr>
        <%
  	if rsObj("price")<>"" AND rsObj("quantity")<>"" then
	  	totalPrice = totalPrice+rsObj("price")*rsObj("quantity")
	end if
	rsObj.MoveNext
loop
%>
        <tr bgcolor = "#FFEFB0"> 
          <td colspan = "5" bgcolor = "rgb(210,232,255)"> 
            <div align = "right">总计金额：<%=totalPrice%>元&nbsp;&nbsp;&nbsp;</div>
          </td>
        </tr>
        <tr bgcolor = "#FFCC00"> 
          <td colspan = "5" bgcolor = "#FFFFFF"> 
            <div align = "center">
              <input type = "button" name = "Submit3" value = "返 回" onClick = "window.history.go(-1);" style = "border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Button1">
            </div>
          </td>
        </tr>
      </table>
<%
else 
	Response.Write "</table><br><center>您没有此订单(如未登陆请登陆后再查询)，<a href = 'Javascript:window.history.go(-1);'>返回</a></center>"
end if %></TD></TR>
                                </TBODY></TABLE>