الصفحة A عبارة عن قائمة بيانات ASP عادية ، ولكن عند الطباعة ، نريد التحكم في عدد الخطوط المطبوعة لكل صفحة وفقًا لحجم ورقة الطباعة. هل يجب أن نفعل هذا في هذا الوقت؟ الآن دعنا نرى كيفية استخدام ASP للتحكم في عدد الخطوط المطبوعة لكل صفحة.
<٪
Pagenum = 55'specy عدد الخطوط المطبوعة
٪>
<html>
<head>
<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<title> تقرير تفاصيل ربح المبيعات طباعة </title>
<type type = "text/css">
td {font-size: 9pt ؛ اللون:#000000}
A {text-decoration: none}
a: hover {color:#ff0000 ؛ text-decoration: derline}
.break {page-break-be-for: دائمًا}
</style>
</head>
<script language = "javaScript">
window.print ()
</script>
<body style = "border: none" topmargin = "0" leftMargin = "6" onload = "javasscript: pagesetup_default () ؛">
<script language = "vbscript">
DIM HKEY_ROOT ، HKEY_PATH ، HKEY_KEY_KEY
hkey_root = "hkey_current_user"
hkey_path = "/software/microsoft/Internet Explorer/pageetup"
دالة pagesetup_default ()
عند استئناف الخطأ التالي
تعيين regwsh = createObject ("wscript.shell")
hkey_key = "/header"
regwsh.regwrite hkey_root+hkey_path+hkey_key ، "& bpage & p/& p"
hkey_key = "/تذييل"
regwsh.regwrite hkey_root+hkey_path+hkey_key ، ""
وظيفة نهاية
</script>
<٪
kdname1 = trim (request ("kdname1"))
kdname2 = trim (request ("kdname2"))
Keyword1 = trim (request ("Keyword1"))
Keyword2 = trim (request ("keyword2"))
إذا كانت الكلمة الرئيسية 1 <> "" ثم
اليوم = الكلمة الرئيسية 1
آخر
إذا كان kdname1 = "" ثم
اليوم = السنة (التاريخ ()) و "-" وشهر (التاريخ ())
آخر
اليوم = kdname1 و "to" & kdname2
إنهاء إذا
إنهاء إذا
٪>
<table cellpacing = "0" cellpadding = "0" align = "center">
<tr>
<td align = "center"> تقرير ملخص ربح المبيعات </td>
</r>
</table>
<٪
strsql = "Select Autoid ، Sellautoid ، ProductXili ، ProductName ، Productize ، ProductNum ، Productdan ، Productjia ، Chaoshi ، Tiaoma ، Youhui ، Fukuan ، Moncount1 ، Gongshang ، Lirun1 ، usernam monthjie = '0' و (year (indate) = year (getDate ()) و month (indate) = month (getDate ())) و Zhuofei هي ترتيب فارغ بواسطة autoid desc "
SET RS1 = server.createObject ("adodb.recordset")
rs1.Open Strsql ، Conn ، 1،1
٪>
<table cellpacing = "0" cellpadding = "0" align = "center" style = "border-collapse: collapse" 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"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> الربح </td>
<td align = "center" bgcolor = "#bdcbee"> الدفع </td>
<td align = "center" bgcolor = "#bdcbee"> تاريخ المبيعات </td>
</r>
</table>
<٪
moncount2 = 0
moncount5 = 0
افعل بينما لا Rs1.eof
٪>
<table cellpadding = "0" cellpacing = "0" align = "center" style = "border-collapse: collapse ؛ font-size: 10pt ؛ color:#000000" borderColor =
<٪
لأني = 1 إلى الوثنية
إذا لم يكن rs1.eof ثم
إذا كان القطع (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 ("productize") ٪> </td>
<td> <٪ = left (rs1 ("gongshang") ، 9) ٪> </td>
<td align = "center"> <٪ = rs1 ("ProductNum") ٪> </td>
<td align = "center"> <٪ = rs1 ("productdan") ٪> </td>
<td align = "right"> <٪ = formatnumber (rs1 ("chaoshi") ، varnum ، -1) ٪> </td>
<td align = "center"> <٪ = rs1 ("youhui") ٪> </td>
<td align = "right"> <٪ = formatnumber (rs1 ("productjia") ، varnum ، -1) ٪> </td>
<td align = "right"> <٪ = formatnumber (rs1 ("moncount1") ، varnum ، -1) ٪> </td>
<td align = "right"> <٪ = formatnumber (rs1 ("lirun1") ، varnum ، -1) ٪> </td>
<td align = "center"> <٪ if trim (rs1 ("fukuan")) = "المتأخرات" ثم ٪> <font color> <٪ = rs1 ("fukuan) ٪> </font> <٪ else ٪> <٪ = rs1 (" fukuan ") ٪> <٪
<td> <٪ = rs1 ("indate") ٪> </td>
</r>
<٪
rs1.movenext
إنهاء إذا
التالي
٪>
</table>
<٪
إذا لم يكن rs1.eof و i = pagenum+1 ثم "أضف علامة ترقيم الصفحات
٪>
<viv> </viv>
<table cellpadding = "0" cellpacing = "0" align = "center"> <tr> <td> </td> </tr> </table>
<table cellpacing = "0" cellpadding = "0" align = "center" style = "border-collapse: collapse" 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"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> الربح </td>
<td align = "center" bgcolor = "#bdcbee"> الدفع </td>
<td align = "center" bgcolor = "#bdcbee"> تاريخ المبيعات </td>
</r>
<٪
إنهاء إذا
حلقة
RS1.Close
تعيين RS1 = لا شيء
٪>
</table>
<table cellpadding = "0" cellpacing = "0" align = "center" style = "border-collapse: collapse" borderColor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> الربح النقدي: </b> </font> <b> <٪ = formatnumber (moncount2 ، varnum ، -1) ٪> </b> <٪ إذا <٪ = formatnumber (moncount5 ، varnum ، -1) ٪> </b> <٪ end if ٪> <٪ if moncount5 <> "" ثم ٪> <b> <font <font> مستأجر الربح </font>: <٪ = formatnumber (moncount5 ، varnum ، -1) </b> color = "#ff0000"> إجمالي الربح الإجمالي: </font> <٪ = formatnumber (moncount5+moncount2 ، varnum ، -1) ٪> </b> <٪ end if ٪> </td>
</r>
</table>
<٪
إنهاء إذا
conn.close
تعيين conn = لا شيء
٪>
</body>
</html>
ما سبق هو المحتوى الكامل لهذه المقالة. آمل أن يكون محتوى هذه المقالة من بعض المساعدة في دراسة أو عمل الجميع ~