开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 求助：订单数据 横向重复区域的问题请教！！！！
返回列表 发新帖
查看: 1757|回复: 1

[问与答] 求助：订单数据 横向重复区域的问题请教！！！！

[复制链接]
树枝孤鸟 发表于 2019-4-24 16:06:11 | 显示全部楼层 |阅读模式
本帖最后由 树枝孤鸟 于 2019-4-24 16:06 编辑

现在的代码是把多张订单的数据合并在一起展示，而不是按每张订单的内容分开展示，附件中的代码要如何修改才能达到蓝色字体图中的展示效果？！谢谢！！！
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../Connections/dswl.asp" -->
  3. <%
  4. Dim Recordset1__khid
  5. Recordset1__khid = "1"
  6. If (Request.form("ID") <> "") Then
  7.   Recordset1__khid = Request.form("ID")
  8. End If
  9. %>
  10. <%
  11. Dim Recordset1__rq
  12. Recordset1__rq = "a1"
  13. If (Request.form("date") <> "") Then
  14.   Recordset1__rq = Request.form("date")
  15. End If
  16. %>
  17. <%
  18. Dim Recordset1
  19. Dim Recordset1_cmd
  20. Dim Recordset1_numRows

  22. Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
  23. Recordset1_cmd.ActiveConnection = MM_dswl_STRING
  24. Recordset1_cmd.CommandText = "SELECT order_date,seg_name,dil_code,dil_name,custom_code,custom_name,order_no,ORD_QTY,ORD_MONEY,ITEM_QTY,ITEM_NAME FROM dbo.v_order_hand_DETAIL WHERE (DIL_CODE=?)AND(ORDER_DATE=?)  group by order_date,seg_name,dil_code,dil_name,CUSTOM_SID,custom_code,custom_name,order_no,ORD_QTY,ORD_MONEY,ITEM_QTY,ITEM_NAME ORDER BY CUSTOM_SID"
  25. Recordset1_cmd.Prepared = true
  26. Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, Recordset1__khid) ' adVarChar
  27. Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param2", 200, 1, 255, Recordset1__rq) ' adVarChar

  29. Set Recordset1 = Recordset1_cmd.Execute
  30. Recordset1_numRows = 0
  31. %>
  32. <%
  33. Dim Repeat1__numRows
  34. Dim Repeat1__index

  36. Repeat1__numRows = -1
  37. Repeat1__index = 0
  38. Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
  39. %>

  41. <script language=javascript>   
  42. function doPrint() {   
  43. bdhtml=window.document.body.innerHTML;   
  44. sprnstr="<!--startprint-->";   
  45. eprnstr="<!--endprint-->";   
  46. prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17);   
  47. prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));   
  48. window.document.body.innerHTML=prnhtml;   
  49. window.print();   
  50. }   
  51. </script>
  52. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  53. <html>
  54. <head>
  55. <META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
  56. href="../ztys/DefaultSkin.css" type=text/css
  57. rel=stylesheet>
  58. <SCRIPT language=JavaScript src="../ztys/menu.js"
  59. type=text/JavaScript></SCRIPT>

  61. <META content="MSHTML 6.00.2800.1106" name=GENERATOR>
  62. <style type="text/css">
  63. <!--
  64. body {
  65.         margin-left: 0px;
  66.         margin-top: 0px;
  67.         background-image: url(../images/pagebj.jpg);
  68. }
  69. .style32 {color: #FF0000}
  70. .style38 {font-size: larger; color: #FF0000; }
  71. .style39 {color: #0000FF}
  72. .style40 {color: #000000}
  73. .STYLE43 {
  74.         font-size: 100%;
  75.         color: #0000FF;
  76.         font-weight: bold;
  77.         font-family: "幼圆";
  78. }
  79. -->
  80. </style>
  81. <title>手工烟指引单</title>
  82. </head>
  83. <%
  84. set conn=server.createobject("adodb.connection")
  85. conn.open MM_dswl_STRING
  86. %>
  87. <body>
  88. <table width="650" height="230">
  89.   <tr background="../images/pagebj.jpg">
  90.     <td height="22">&nbsp;</td>
  91.     <td bordercolor="#FFFFFF"><div align="right">
  92.     <input type=button name=button_print value=" 打    印 " onclick="javascript:doPrint()">&nbsp;&nbsp;<a href="zc_v_hand_dy.asp"><span class="style23">返回首页</span></a> &nbsp;</div></td>
  93.   </tr>
  94.   <tr background="../images/pagebj.jpg">
  95.     <td height="200" colspan="2"><!--startprint-->
  96.       <table width="635">
  97.       <tr>
  98.         <td><div align="center"><p class="style11">手工烟指引单</p>
  99.         </div></td>
  100.       </tr>
  101.       <tr>
  102.         <td background="../images/pagebj.jpg"><table width="635" cellspacing="1" bgcolor="#000000">
  103.           <tr bordercolor="#666666" bgcolor="#FFFFFF" background="../images/pagebj.jpg">
  104.             <td width="200"><div align="center" class="style14"><%= Request.Form("DATE") %></div></td>
  105.             <td width="250"><div align="center" class="style14"><%=(Recordset1.Fields.Item("SEG_NAME").Value)%></div></td>
  106.             <td width="250"><div align="center" class="style14">[<%=(Recordset1.Fields.Item("DIL_CODE").Value)%>]<%=(Recordset1.Fields.Item("DIL_NAME").Value)%></div></td>
  107.           </tr>
  108.         </table></td>
  109.       </tr>
  110.       <tr>
  111.         <td><table width="635" cellspacing="1" bgcolor="#000000">
  112.           <% i=1 %>
  113.           <tr bgcolor="#FFFFFF">
  114.             <td bordercolor="#666666"><p align="left" class="style14"><strong><%= i %>
  115.                   <%i=i+1  %>
  116.               、[<span class="style39"><%=(Recordset1.Fields.Item("CUSTOM_CODE").Value)%></span>]<%=(Recordset1.Fields.Item("CUSTOM_NAME").Value)%><br>
  117.               【订单<span class="style39"><%=(Recordset1.Fields.Item("ORDER_NO").Value)%></span>&nbsp;&nbsp;数量<span class="style38"><%=(Recordset1.Fields.Item("ORD_QTY").Value)%></span>条&nbsp;&nbsp;金额<span class="style38"><%=(Recordset1.Fields.Item("ORD_MONEY").Value)%></span>元</strong><strong>】</strong></p>
  118.               
  119.   <table width="217" border="0">
  120.     <tr><%no=Recordset1.Fields.Item("order_no").Value%>
  121.       <%
  122. exec="select order_no,item_name,item_qty from dbo.V_ORDER_HAND_DETAIL WHERE order_no='"&no&"' ORDER BY item_name"
  123. set rs=server.createobject("adodb.recordset")
  124. rs.open exec,conn,1,1
  125. %>
  126. <%
  127. While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
  128. %>
  129.      
  130.       <td width="207"><table width="196" border="0">
  131.         <tr>
  132.           <td width="174">[<%=(Recordset1.Fields.Item("ITEM_QTY").Value)%>]<%=(Recordset1.Fields.Item("ITEM_NAME").Value)%></td>
  133.         </tr>
  134.       </table></td>
  135.     <%

  137. num_tr=num_tr+1

  139. if num_tr mod 3=0 then

  141. response.write"</tr><tr>"

  143. end if

  145. %>
  146.   <%
  147.   Repeat1__index=Repeat1__index+1
  148.   Repeat1__numRows=Repeat1__numRows-1
  149.   Recordset1.MoveNext()
  150. Wend
  151. %></tr>
  152.   </table>
  153.               <p align="left" class="style14"><span class="style21"><br>
  154.               </span></p></td>
  155.             
  156.           </table></td>
  157.       </tr>
  158.     </table>
  159.     <!--endprint--></td>
  160.   </tr>
  161. </table>
  162. </body>
  163. </html>
  164. <%
  165. Recordset1.Close()
  166. Set Recordset1 = Nothing
  167. %>
复制代码

希望达到的效果

希望达到的效果

附件代码的展示效果

附件代码的展示效果

代码.rar

2.14 KB, 下载次数: 1, 下载积分: 威望 1 个
ASP币如何冲？请看这里
回复

使用道具 举报

ttasp 发表于 2019-4-25 11:27:58 | 显示全部楼层
完整代码发邮箱support@ttasp.COM
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号