Seite A ist eine gewöhnliche ASP -Datenliste, aber beim Drucken möchten wir die Anzahl der gedruckten Zeilen pro Seite gemäß der Größe des Druckpapiers steuern. Sollten wir das zu diesem Zeitpunkt tun? Lassen Sie uns nun sehen, wie Sie ASP verwenden, um die Anzahl der gedruckten Zeilen pro Seite zu steuern.
<%
Pagenum = 55'Pecify die Anzahl der gedruckten Zeilen
%>
<html>
<kopf>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<title> Verkaufsgewinndetails für Druck </title>
<style type = "text/css">
TD {Schriftgröße: 9PT; Farbe:#000000}
A {Textdekoration: Keine}
A: Hover {Farbe:#ff0000; Textdekoration: Derline}
. Break {Page-Break-vore: Immer}
</style>
</Head>
<script Language = "JavaScript">
window.print ()
</script>
<Body style = "border: Keine" topmargin = "0" Leftmargin = "6" Onload = "Javascript: pagesetup_default ();">
<script Language = "vbscript">
Dim hkey_root, hkey_path, hkey_key_key
hkey_root = "hkey_current_user"
hkey_path = "/Software/Microsoft/Internet Explorer/PageSetup"
Funktion pagesetup_default ()
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie regwsh = createObject ("wscript.shell")
hkey_key = "/header"
Regwsh.regwrite HKEY_ROOT+HKEY_PATH+HKEY_KEY, "& BPAGE & P/& P"
HKEY_KEY = "/Fußzeile"
Regwsh.regwrite HKEY_ROOT+HKEY_PATH+HKEY_KEY, ""
Endfunktion
</script>
<%
kdname1 = trim (request ("kdname1"))
kdname2 = trim (request ("kdname2"))
keyword1 = trim (request ("keyword1"))
keyword2 = trim (request ("keyword2"))
Wenn Keyword1 <> "" dann
Heute = Keyword1
anders
Wenn kdname1 = "" dann
Heute = Jahr (Datum ()) & "-" & monat (Datum ())
anders
Heute = kdname1 & "zu" & kdname2
Ende wenn
Ende wenn
%>
<Table Cellpacing = "0" cellpadding = "0" align = "center">
<tr>
<td align = "center"> Umsatzgewinnzusammenfassung Bericht </td>
</tr>
</table>
<%
strSQL="select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename='"&trim(request.cookies("Myoffice"))&"' and monthjie='0' und (Jahr (inate) = Jahr (getdate ()) und Monat (inate) = Monat (getDate ()) und Zhuofei ist eine Nullordnung von Autoid Desc "
Setzen Sie 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"> Konsumordnummer </td>
<td align = "center" bgcolor = "#bdcbee"> Produktname (Spec) </td>
<td align = "center" bgcolor = "#bdcbee"> kunde </td>
<td align = "center" bgcolor = "#bdcbee"> Menge </td>
<td align = "center" bgcolor = "#bdcbee"> Einheit </td>
<td align = "center" bgcolor = "#bdcbee"> Verkaufspreis </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> Kaufpreis </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> profit </td>
<td align = "center" bgcolor = "#bdcbee"> Zahlung </td>
<td align = "center" bgcolor = "#bdcbee"> Verkaufsdatum </td>
</tr>
</table>
<%
moncount2 = 0
moncount5 = 0
Tun, während nicht Rs1.eof
%>
<Table CellPadding = "0" cellpacing = "0" align = "center" style = "Border-Collapse: Collapse; Schriftgröße: 10PT; Farbe:#000000" BorderColor = "#000000">
<%
für i = 1 bis pagenum
Wenn nicht rs1.eof dann
Wenn Trim (RS1 ("Fukuan") = "Rückstände" dann
moncount6 = csng (rs1 ("lirun1"))
moncount5 = moncount5+moncount6
anders
moncount3 = csng (rs1 ("lirun1"))
moncount2 = moncount2+moncount3
Ende wenn
%>
<tr>
<td> <%= rs1 ("sellaautoid")%> </td>
<td> <%= decode (rs1 ("productName")%> <%= rs1 ("producTSize")%> </td>
<td> <%= links (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 = "rechts"> <%= formatnumber (rs1 ("productJia"), varnum, -1)%> </td>
<td align = "right"> <%= formatnumber (rs1 ("moncount1"), varnum, -1)%> </td>
<td align = "rechts"> <%= formatnumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td align = "center"> <%if trim (rs1 ("fukuan") = "restern", dann%> <font color = blau> <%= rs1 ("fukuan")%> </font> <%sonst%> <%= Rs1 ("Fukuan")%> <%End if%> </td> <%> <%> </td> </td>
<td> <%= rs1 ("inate")%> </td>
</tr>
<%
RS1.Movenext
Ende wenn
nächste
%>
</table>
<%
wenn nicht
%>
<div> </div>
<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"> Konsumordnummer </td>
<td align = "center" bgcolor = "#bdcbee"> Produktname (Spec) </td>
<td align = "center" bgcolor = "#bdcbee"> kunde </td>
<td align = "center" bgcolor = "#bdcbee"> Menge </td>
<td align = "center" bgcolor = "#bdcbee"> Einheit </td>
<td align = "center" bgcolor = "#bdcbee"> Verkaufspreis </td>
<td align = "center" bgcolor = "#bdcbee">%</td>
<td align = "center" bgcolor = "#bdcbee"> Kaufpreis </td>
<td align = "center" bgcolor = "#bdcbee"> subtotal </td>
<td align = "center" bgcolor = "#bdcbee"> profit </td>
<td align = "center" bgcolor = "#bdcbee"> Zahlung </td>
<td align = "center" bgcolor = "#bdcbee"> Verkaufsdatum </td>
</tr>
<%
Ende wenn
Schleife
RS1.CLOSE
Setzen Sie RS1 = nichts
%>
</table>
<Table CellPadding = "0" cellpacing = "0" align = "center" style = "Border-Collapse: Collapse" BorderColor = "#000000">
<tr>
<td> <font color = "#ff0000"> <b> Bargeldgewinn: </b> </font> <b> <%= formatnumber (moncount2, varnum, -1)%> </b> <%Wenn moncount5 <> "" dann%> <b> <font Color = "#ff0000"> profit arrarararars </font>: <%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font <font>Profit arrears</font>: <%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font color = "#ff0000"> Gesamt Bruttogewinn: </font> <%= formatnumber (moncount5+moncount2, varnum, -1)%> </b> <%End if%> </td>
</tr>
</table>
<%
Ende wenn
conn.close
Setzen Sie Conn = nichts
%>
</Body>
</Html>
Das obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, der Inhalt dieses Artikels wird für das Studium oder die Arbeit eines jeden helfen ~