หน้า A เป็นรายการข้อมูล ASP ธรรมดา แต่เมื่อพิมพ์เราต้องการควบคุมจำนวนบรรทัดที่พิมพ์ต่อหน้าตามขนาดของกระดาษพิมพ์ เราควรทำสิ่งนี้ในเวลานี้หรือไม่? ตอนนี้เรามาดูวิธีการใช้ ASP เพื่อควบคุมจำนวนบรรทัดที่พิมพ์ต่อหน้า
-
pagenum = 55'Specify จำนวนบรรทัดที่พิมพ์
-
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<title> พิมพ์รายงานรายละเอียดกำไรยอดขาย </title>
<style type = "text/css">
TD {ตัวอักษรขนาด: 9pt; สี:#000000}
A {การตกแต่งข้อความ: ไม่มี}
A: Hover {color:#ff0000; การตกแต่งข้อความ: Derline}
.Break {หน้าเว็บ-ก่อน: เสมอ: เสมอ}
</style>
</head>
<ภาษาสคริปต์ = "JavaScript">
window.print ()
</script>
<body style = "border: none" topmargin = "0" leftmargin = "6" onload = "javasscript: pagesetup_default ();">
<ภาษาสคริปต์ = "vbscript">
dim hkey_root, hkey_path, hkey_key_key
hkey_root = "hkey_current_user"
hkey_path = "/ซอฟต์แวร์/Microsoft/Internet Explorer/PagesetUp"
ฟังก์ชั่น PAGESETUP_DEFAULT ()
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า regwsh = createObject ("wscript.shell")
hkey_key = "/header"
regwsh.regrite hkey_root+hkey_path+hkey_key, "& bpage & p/& p"
hkey_key = "/footer"
regwsh.regrite hkey_root+hkey_path+hkey_key, ""
ฟังก์ชันสิ้นสุด
</script>
-
kdname1 = trim (คำขอ ("kdname1"))))
kdname2 = trim (คำขอ ("kdname2"))))
Keyword1 = trim (คำขอ ("คำสำคัญ 1"))
Keyword2 = trim (คำขอ ("keyword2")))
ถ้าคีย์เวิร์ด 1 <> "" แล้ว
วันนี้ = คีย์เวิร์ด 1
อื่น
ถ้า kdname1 = "" แล้ว
วันนี้ = ปี (วันที่ ()) & "-" & เดือน (วันที่ ())
อื่น
วันนี้ = kdname1 & "to" & kdname2
สิ้นสุดถ้า
สิ้นสุดถ้า
-
<table cellpacing = "0" cellpadding = "0" align = "center">
<tr>
<td align = "center"> รายงานสรุปผลกำไรการขาย </td>
</tr>
</table>
-
strsql = "เลือก autoid, sellautoid, productxili, productname, productize, productnum, productdan, productjia, chaoshi, tiaoma, youhui, fukuan, moncount1, gongshang, lirun1, ชื่อผู้ใช้ MonthJie = '0' และ (ปี (indate) = ปี (getDate ()) และเดือน (indate) = เดือน (getDate ())) และ Zhuofei เป็นคำสั่งซื้อโดยอัตโนมัติโดย Autoid Desc "
ตั้งค่า rs1 = server.createObject ("adodb.recordset"))
rs1.open strsql, Conn, 1,1
-
<table cellpacing = "0" cellpadding = "0" allign = "center" style = "การล่มสลายของชายแดน: ยุบ" BorderColor = "#000000">
<tr>
<td align = "center" bgcolor = "#bdcbee"> หมายเลขใบสั่งขาย </td>
<td align = "center" bgcolor = "#bdcbee"> ชื่อผลิตภัณฑ์ (ข้อมูลจำเพาะ) </td>
<td align = "center" bgcolor = "#bdcbee"> ลูกค้า </td>
<td align = "center" bgcolor = "#bdcbee"> ปริมาณ </td>
<td align = "center" bgcolor = "#bdcbee"> หน่วย </td>
<td align = "center" bgcolor = "#bdcbee"> ราคาขาย </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> ราคาซื้อ </td>
<td align = "center" bgcolor = "#bdcbee"> ผลรวมย่อย </td>
<td align = "center" bgcolor = "#bdcbee"> กำไร </td>
<td align = "center" bgcolor = "#bdcbee"> การชำระเงิน </td>
<td align = "center" bgcolor = "#bdcbee"> วันขาย </td>
</tr>
</table>
-
moncount2 = 0
moncount5 = 0
ทำในขณะที่ไม่ใช่ rs1.eof
-
<ตาราง cellpadding = "0" cellpacing = "0" align = "center" style = "การล่มสลายของเส้นขอบ: การล่มสลาย; ขนาดตัวอักษร: 10pt; สี:#000000" BorderColor = "#000000">
-
สำหรับ i = 1 ถึง pagenum
ถ้าไม่ใช่ rs1.eof แล้ว
ถ้า trim (rs1 ("fukuan")) = "ค้างชำระ" แล้ว
moncount6 = csng (rs1 ("lirun1")))
moncount5 = moncount5+moncount6
อื่น
moncount3 = csng (rs1 ("lirun1")))
moncount2 = moncount2+moncount3
สิ้นสุดถ้า
-
<tr>
<td> <%= rs1 ("sellaautoid")%> </td>
<td> <%= decode (rs1 ("productname"))%> <%= rs1 ("ผลิตภัณฑ์")%> </td>
<td> <%= ซ้าย (rs1 ("gongshang"), 9)%> </td>
<td align = "center"> <%= rs1 ("productnum")%> </td>
<td align = "center"> <%= rs1 ("productdan")%> </td>
<td align = "ขวา"> <%= formatNumber (rs1 ("chaoshi"), varnum, -1)%> </td>
<td align = "center"> <%= rs1 ("youhui")%> </td>
<td align = "ขวา"> <%= formatNumber (rs1 ("productjia"), varnum, -1)%> </td>
<td align = "ขวา"> <%= formatNumber (rs1 ("moncount1"), varnum, -1)%> </td>
<td align = "ขวา"> <%= formatNumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td align = "center"> <%ถ้าตัด (rs1 ("fukuan")) = "ค้างชำระ" จากนั้น%> <font color = blue> <%= rs1 ("fukuan")%> </font> <%else%> <%= rs1 ("fukuan")
<td> <%= rs1 ("indate")%> </td>
</tr>
-
Rs1.Movenext
สิ้นสุดถ้า
ต่อไป
-
</table>
-
ถ้าไม่ใช่ rs1.eof และ i = pagenum+1 จากนั้น 'เพิ่มเครื่องหมายการแบ่งหน้า
-
<div> </div>
<table cellpadding = "0" cellpacing = "0" align = "center"> <tr> <td> </td> </tr> </table>
<table cellpacing = "0" cellpadding = "0" allign = "center" style = "การล่มสลายของชายแดน: ยุบ" BorderColor = "#000000">
<tr>
<td align = "center" bgcolor = "#bdcbee"> หมายเลขใบสั่งขาย </td>
<td align = "center" bgcolor = "#bdcbee"> ชื่อผลิตภัณฑ์ (ข้อมูลจำเพาะ) </td>
<td align = "center" bgcolor = "#bdcbee"> ลูกค้า </td>
<td align = "center" bgcolor = "#bdcbee"> ปริมาณ </td>
<td align = "center" bgcolor = "#bdcbee"> หน่วย </td>
<td align = "center" bgcolor = "#bdcbee"> ราคาขาย </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> ราคาซื้อ </td>
<td align = "center" bgcolor = "#bdcbee"> ผลรวมย่อย </td>
<td align = "center" bgcolor = "#bdcbee"> กำไร </td>
<td align = "center" bgcolor = "#bdcbee"> การชำระเงิน </td>
<td align = "center" bgcolor = "#bdcbee"> วันขาย </td>
</tr>
-
สิ้นสุดถ้า
วง
rs1.close
ตั้งค่า rs1 = ไม่มีอะไร
-
</table>
<ตาราง cellpadding = "0" cellpacing = "0" align = "center" style = "การล่มสลายของชายแดน: ยุบ" BorderColor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> กำไรเงินสด: </b> </font> <b> <%= formatNumber (moncount2, varnum, -1)%> </b> <%ถ้า moncount5 <> "" <%= formatNumber (moncount5, varnum, -1)%> </b> <%end ถ้า%> <%ถ้า moncount5 <> "" จากนั้น%> <b> <font <font> กำไรค้างชำระ </font>: <%= moncount5 color = "#ff0000"> ผลกำไรรวมทั้งหมด: </font> <%= formatNumber (moncount5+moncount2, varnum, -1)%> </b> <%end ถ้า%> </td>
</tr>
</table>
-
สิ้นสุดถ้า
conn.close
ตั้งค่า conn = ไม่มีอะไร
-
</body>
</html>
ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่าเนื้อหาของบทความนี้จะช่วยในการศึกษาหรือทำงานของทุกคน ~