treatedview.asp

来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 172 行

ASP
172 行
字号 
<!-- #include file = "include/sysbase.asp" -->
<%
dim rsObj,strSQL
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM OrderList WHERE id = "&RealString(Request.QueryString("id"))
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly 
%>
<html>
<head>
<title>查看订单</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>

<body  text = "#000000" leftmargin = "0" topmargin = "6">
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
  <tr> 
    <td colspan = "2" height = "28" bgcolor = "#4296E7"> 
      <div align = "center"><font color = "#000000">查看订单</font></div>
    </td>
  </tr>
  <tr bgcolor = "#77B3EE"> 
    <td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#000000">a</font></b></font> 
      <font color = "#660033"> 订单详细资料……</font></td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">订单号</font></div>
    </td>
    <td width = "88%"><%=rsObj("id")%></td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">客户帐号</font></div>
    </td>
    <td width = "88%"><%=rsObj("memberID")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">收货人姓名</font></div>
    </td>
    <td width = "88%"><%=rsObj("customerName")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">收货人地址</font></div>
    </td>
    <td width = "88%"><%=rsObj("address")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">邮政编码</font></div>
    </td>
    <td width = "88%"><%=rsObj("Zipcode")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">联系电话</font></div>
    </td>
    <td width = "88%"><%=rsObj("phone")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">电子邮件</font></div>
    </td>
    <td width = "88%"><%=rsObj("email")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">付款方式</font></div>
    </td>
    <td width = "88%"><%=rsObj("payment")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">备注</font></div>
    </td>
    <td width = "88%"><%=rsObj("remark")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">订货日期</font></div>
    </td>
    <td width = "88%"><%=rsObj("createDate")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">发货日期</font></div>
    </td>
    <td width = "88%"><%=rsObj("treatedDate")%>&nbsp;</td>
  </tr>
  <tr> 
    <td width = "12%" nowrap > 
      <div align = "right"><font color = "#000000">发货备注</font></div>
    </td>
    <td width = "88%"><%=rsObj("treatedRemark")%>&nbsp;</td>
  </tr>
  <tr bgcolor = "#77B3EE"> 
    <td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#000000">a</font></b></font> 
      <font color = "#660033">订货手机明细……</font></td>
  </tr>
</table>
<%
'手机明细
strSQL = "SELECT * FROM orderDetail WHERE orderID = "&RealString(Request.QueryString("id"))
set rsObj = conn.execute (strSQL)
%>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
  <tr> 
    <td> 
      <div align = "center">手机编号</div>
    </td>
    <td> 
      <div align = "center">手机名称</div>
    </td>
    <td> 
      <div align = "center">手机价格</div>
    </td>
    <td> 
      <div align = "center">手机数量</div>
    </td>
    <td> 
      <div align = "center">金额小计</div>
    </td>
  </tr>
  <%
dim totalPrice
totalPrice = 0
do while (not rsObj.eof or err)  
%>
  <tr bgcolor = "#C8E0F7"> 
    <td> 
      <div align = "center"><%=rsObj("productID")%>&nbsp; </div>
    </td>
    <td> 
      <div align = "center"><%=rsObj("productName")%>&nbsp; </div>
    </td>
    <td> 
      <div align = "center"><%=rsObj("price")%>&nbsp; </div>
    </td>
    <td> 
      <div align = "center"><%=rsObj("quantity")%>&nbsp; </div>
    </td>
    <td> 
      <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> 
    <td colspan = "5"> 
      <div align = "right">总计金额：<%=totalPrice%>元&nbsp;&nbsp;&nbsp;</div>
    </td>
  </tr>
</table>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
  <tr> 
    <td height = "28" bgcolor = "#4296E7" colspan = "2">
      <div align = "center"> 
        <input type = "button" name = "Submit2" value = " 返　回 " onClick = "window.location = '<%=Session("adminOldUrl")%>'">
      </div>
    </td>
  </tr>
</table>
</body>
</html>

treatedview.asp - 源码说明

本页面展示了「《实例精粹ASP》中部分源代码」中的 treatedview.asp 源码文件，采用 ASP 编程语言编写，共 172 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?