Halaman A adalah daftar data ASP biasa, tetapi saat mencetak, kami ingin mengontrol jumlah baris yang dicetak per halaman sesuai dengan ukuran kertas pencetakan. Haruskah kita melakukan ini saat ini? Sekarang mari kita lihat cara menggunakan ASP untuk mengontrol jumlah baris yang dicetak per halaman.
<%
pagenum = 55'specifikasi jumlah baris yang dicetak
%>
<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<title> Cetak Laporan Rincian Laba Penjualan </iteme>
<type style = "text/css">
td {font-size: 9pt; Warna:#000000}
A {Text-Decoration: None}
A: Hover {Color:#ff0000; Text-Decoration: Derline}
.break {halaman-break-sebelum: selalu}
</tyle>
</head>
<bahasa skrip = "javascript">
window.print ()
</script>
<Body style = "border: none" TopMargin = "0" leftmargin = "6" onload = "javasscript: pagesetup_default ();">
<bahasa skrip = "vbscript">
redup hkey_root, hkey_path, hkey_key_key
hkey_root = "hkey_current_user"
hkey_path = "/software/microsoft/internet explorer/pageSetup"
fungsi pagesetup_default ()
pada kesalahan resume berikutnya
Setel Regwsh = createObject ("wscript.shell")
hkey_key = "/header"
Regwsh.Regwrite hkey_root+hkey_path+hkey_key, "& bpage & p/& p"
hkey_key = "/footer"
Regwsh.Regwrite hkey_root+hkey_path+hkey_key, ""
fungsi akhir
</script>
<%
kdname1 = trim (permintaan ("kdname1"))
kdname2 = trim (permintaan ("kdname2"))
kata kunci1 = trim (permintaan ("kata kunci1"))
kata kunci2 = trim (request ("KeyWord2"))
Jika kata kunci1 <> "" lalu
hari ini = kata kunci1
kalau tidak
Jika kdname1 = "" lalu
hari ini = tahun (tanggal ()) & "-" & bulan (tanggal ())
kalau tidak
hari ini = kdname1 & "to" & kdname2
akhiri jika
akhiri jika
%>
<Table CellPacing = "0" CellPadding = "0" Align = "Center">
<tr>
<td align = "center"> laporan ringkasan laba penjualan </td>
</tr>
</boable>
<%
strsql = "Pilih Autoid, Sellautoid, ProductXili, ProductName, Productize, ProductNum, ProductDan, Productjia, Chaoshi, Tiaoma, YouHui, Fukuan, Moncount1, Gongshang, Lirun1, Username, Indate, Fudate dari Sell Where Officename = '" & Trim ("" My "my" My "my" My' "my '" dan (tahun (indate) = tahun (getDate ()) dan bulan (indate) = bulan (getDate ())) dan zhuofei adalah pesanan nol oleh 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"> nomor pesanan penjualan </td>
<td align = "center" bgcolor = "#bdcbee"> nama produk (spec) </td>
<td align = "center" bgcolor = "#bdcbee"> pelanggan </td>
<td align = "center" bgcolor = "#bdcbee"> kuantitas </td>
<td align = "center" bgcolor = "#bdcbee"> unit </td>
<td align = "center" bgcolor = "#bdcbee"> harga jual </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> harga pembelian </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> laba </td>
<td align = "center" bgcolor = "#bdcbee"> pembayaran </td>
<td align = "center" bgcolor = "#bdcbee"> tanggal penjualan </td>
</tr>
</boable>
<%
Moncount2 = 0
Moncount5 = 0
Lakukan sementara bukan rs1.eof
%>
<Table cellpadding = "0" cellpacing = "0" align = "center" style = "border-collapse: collapse; font-size: 10pt; color:#000000" bordercolor = "#000000">
<%
untuk i = 1 ke pagenum
Jika tidak rs1.eof maka
Jika trim (rs1 ("fukuan")) = "tunggakan" lalu
Moncount6 = CSNG (RS1 ("Lirun1"))
Moncount5 = Moncount5+Moncount6
kalau tidak
Moncount3 = CSNG (RS1 ("Lirun1"))
Moncount2 = Moncount2+Moncount3
akhiri jika
%>
<tr>
<td> <%= rs1 ("selaautoid")%> </td>
<td> <%= decode (RS1 ("ProductName"))%> <%= rs1 ("Productize")%> </td>
<td> <%= kiri (rs1 ("gongshang"), 9)%> </td>
<td align = "center"> <%= rs1 ("productNum")%> </td>
<td align = "center"> <%= rs1 ("ProductDan")%> </td>
<td align = "kanan"> <%= formatNumber (rs1 ("chaoshi"), varnum, -1)%> </td>
<td align = "center"> <%= rs1 ("youhui")%> </td>
<td align = "kanan"> <%= formatNumber (rs1 ("ProductJia"), varnum, -1)%> </td>
<td align = "kanan"> <%= formatNumber (rs1 ("moncount1"), varnum, -1)%> </td>
<td align = "kanan"> <%= formatNumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td align = "center"> <%if trim (rs1 ("fukuan")) = "tunggakan" lalu%> <font color = blue> <%= rs1 ("fukuan")%> </font> <%else%> <%= rs1 ("fukuan")%> <%end If%> </td>
<td> <%= rs1 ("indate")%> </td>
</tr>
<%
RS1.Movenext
akhiri jika
Berikutnya
%>
</boable>
<%
Jika tidak Rs1.eof dan i = pagenum+1 maka 'tambahkan tanda pagination
%>
<div> </div>
<Table cellpadding = "0" cellPacing = "0" align = "center"> <tr> <td> </td> </tr> </able>
<Table CellPacing = "0" CellPadding = "0" Align = "Center" Style = "Border-Collapse: Collapse" BorderColor = "#000000">
<tr>
<td align = "center" bgcolor = "#bdcbee"> nomor pesanan penjualan </td>
<td align = "center" bgcolor = "#bdcbee"> nama produk (spec) </td>
<td align = "center" bgcolor = "#bdcbee"> pelanggan </td>
<td align = "center" bgcolor = "#bdcbee"> kuantitas </td>
<td align = "center" bgcolor = "#bdcbee"> unit </td>
<td align = "center" bgcolor = "#bdcbee"> harga jual </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> harga pembelian </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> laba </td>
<td align = "center" bgcolor = "#bdcbee"> pembayaran </td>
<td align = "center" bgcolor = "#bdcbee"> tanggal penjualan </td>
</tr>
<%
akhiri jika
lingkaran
rs1.close
atur rs1 = tidak ada
%>
</boable>
<tabel cellpadding = "0" cellPacing = "0" align = "center" style = "border-collapse: collapse" bordercolor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> laba tunai: </b> </font> <b> <%= formatNumber (moncount2, varnum, -1)%> </b> <%jika moncount5 <> "" lalu%> <font color = "#ff0000> Profit arraf asran </font </font </font ="#ff00 "> Profit arroft </font </font </font </font <font ="#ff0000> <%= formatNumber (Moncount5, varnum, -1)%> </b> <%end If%> <%if Moncount5 <> "" Lalu%> <b> <font> Tunggal laba </font> <%= formatnumber (Moncount5, varnum, -1)%> <%b> <%end "ifon" ifoT5, varnum, -1) </font> <%b> <%end "api" if mon "if mon" color = "#ff0000"> Total laba kotor: </font> <%= formatNumber (Moncount5+Moncount2, varnum, -1)%> </b> <%end If%%> </td>
</tr>
</boable>
<%
akhiri jika
Conn.Close
atur conn = tidak ada
%>
</body>
</html>
Di atas adalah seluruh konten artikel ini. Saya berharap konten artikel ini akan membantu untuk belajar atau bekerja semua orang ~