La page A est une liste de données ASP ordinaire, mais lors de l'impression, nous voulons contrôler le nombre de lignes imprimées par page en fonction de la taille du papier d'impression. Devrions-nous faire cela pour le moment? Voyons maintenant comment utiliser ASP pour contrôler le nombre de lignes imprimées par page.
<%
pagenum = 55'specifie le nombre de lignes imprimées
%>
<html>
<adal>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<Title> Imprimer les détails du bénéfice des ventes Rapport </TITME>
<style type = "text / css">
TD {Font-Size: 9pt; Couleur: # 000000}
A {text-décoration: aucun}
A: Hover {Color: # FF0000; Text-Decoration: Derline}
. Break {Page-Break-Beol: toujours}
</ style>
</ Head>
<script linguisse = "javascript">
window.print ()
</cript>
<Body Style = "Border: Aucun" topMargin = "0" Leftmargin = "6" Onload = "Javasscript: pagesEtup_default ();">
<script linguisse = "vbscript">
Dim hkey_root, hkey_path, hkey_key_key
hkey_root = "hkey_current_user"
hkey_path = "/ logiciel / Microsoft / Internet Explorer / PageSetup"
fonction pagesetup_default ()
sur l'erreur reprendre ensuite
Set regwsh = createObject ("wscript.shell")
HKEY_KEY = "/ En-tête"
Regwsh.regwrite hkey_root + hkey_path + hkey_key, "& bpage & p / & p"
HKEY_KEY = "/ Footer"
Regwsh.regwrite hkey_root + hkey_path + hkey_key, ""
fonction finale
</cript>
<%
kdname1 = trim (request ("kdname1"))
kdname2 = trim (request ("kdname2"))
Keyword1 = Trim (request ("Keyword1"))
Keyword2 = Trim (request ("Keyword2"))
Si Keyword1 <> "" alors
Aujourd'hui = mot-clé1
autre
Si kdname1 = "" alors
Aujourd'hui = année (date ()) & "-" & Mois (date ())
autre
aujourd'hui = kdname1 & "to" & kdname2
terminer si
terminer si
%>
<table cellpacing = "0" cellpadding = "0" Align = "Center">
<tr>
<td align = "Center"> Rapport de résumé des bénéfices des ventes </td>
</tr>
</ table>
<%
strSql = "Select Autoid, SellAutoid, ProductXili, ProductName, ProduceSize, ProductNum, ProductDan, ProductJia, Chaoshi, Tiaoma, Youhui, Fukuan, Moncount1, Gongshang, Lirun1, Username, Indate, Fudate from Sell Where Offename = '" & Trim (Demande.cookies ("MyOffice") & "" et Monthjie = '0' et (année (indate) = année (getDate ()) et Mois (indate) = mois (getDate ())) et zhuofei est l'ordre nul par autoïde DESC "
set rs1 = server.createObject ("adodb.recordSet")
RS1.Open StrSql, Conn, 1,1
%>
<table cellpacing = "0" CellPadding = "0" align = "Center" style = "Border-Collapse: effondrement" borderColor = "# 000000">
<tr>
<td align = "Center" bgColor = "# bdcbee"> Numéro de commande commerciale </td>
<td align = "Center" bgColor = "# bdcbee"> Nom du produit (SPEC) </td>
<td align = "Center" bgColor = "# bdcbee"> client </td>
<td align = "Center" bgColor = "# bdcbee"> Quantité </td>
<td align = "Center" bgColor = "# bdcbee"> unité </td>
<td align = "Center" bgColor = "# bdcbee"> Prix de vente </td>
<td align = "Center" bgColor = "# bdcbee">% </td>
<td align = "Center" bgColor = "# bdcbee"> Prix d'achat </td>
<td align = "Center" bgcolor = "# bdcbee"> subtotal </td>
<td align = "Center" bgColor = "# bdcbee"> Profit </td>
<td align = "Center" bgColor = "# bdcbee"> Paiement </td>
<td align = "Center" bgColor = "# bdcbee"> Date de vente </td>
</tr>
</ table>
<%
moncount2 = 0
moncount5 = 0
Faire tout en pas Rs1.eof
%>
<table cellpadding = "0" cellpacing = "0" Align = "Center" style = "Border-Collapse: effondrement; police-taille: 10pt; couleur: # 000000" BorderColor = "# 000000">
<%
pour i = 1 au pagenum
Si pas Rs1.eof alors
Si TRIM (RS1 ("Fukuan")) = "Arriér" alors
moncount6 = csng (rs1 ("lirun1"))
moncount5 = moncount5 + moncount6
autre
moncount3 = csng (rs1 ("lirun1"))
moncount2 = moncount2 + moncount3
terminer si
%>
<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 = "droite"> <% = formatNumber (rs1 ("chaoshi"), varnum, -1)%> </td>
<td align = "Center"> <% = rs1 ("youhui")%> </td>
<td align = "droite"> <% = formatNumber (rs1 ("productjia"), varnum, -1)%> </td>
<td align = "droite"> <% = formatNumber (rs1 ("moncount1"), varnum, -1)%> </td>
<td align = "droite"> <% = formatNumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td Align = "Center"> <% If Trim (RS1 ("Fukuan")) = "Arrears" alors%> <font color = bleu> <% = rs1 ("fukuan")%> </font> <% else> <% = rs1 ("fukuan")%> <% end if %> </td>
<td> <% = rs1 ("indat")%> </td>
</tr>
<%
RS1.MoVeNext
terminer si
suivant
%>
</ table>
<%
Si pas RS1.eof et i = pagenum + 1 alors 'Ajouter la marque de pagination
%>
<div> </div>
<table cellpadding = "0" cellpacing = "0" align = "Center"> <tr> <td> </td> </tr> </ table>
<table cellpacing = "0" CellPadding = "0" align = "Center" style = "Border-Collapse: effondrement" borderColor = "# 000000">
<tr>
<td align = "Center" bgColor = "# bdcbee"> Numéro de commande commerciale </td>
<td align = "Center" bgColor = "# bdcbee"> Nom du produit (SPEC) </td>
<td align = "Center" bgColor = "# bdcbee"> client </td>
<td align = "Center" bgColor = "# bdcbee"> Quantité </td>
<td align = "Center" bgColor = "# bdcbee"> unité </td>
<td align = "Center" bgColor = "# bdcbee"> Prix de vente </td>
<td align = "Center" bgColor = "# bdcbee">% </td>
<td align = "Center" bgColor = "# bdcbee"> Prix d'achat </td>
<td align = "Center" bgcolor = "# bdcbee"> subtotal </td>
<td align = "Center" bgColor = "# bdcbee"> Profit </td>
<td align = "Center" bgColor = "# bdcbee"> Paiement </td>
<td align = "Center" bgColor = "# bdcbee"> Date de vente </td>
</tr>
<%
terminer si
boucle
rs1.close
définir RS1 = rien
%>
</ table>
<table cellpadding = "0" cellpacing = "0" align = "Center" style = "Border-Collapse: effondrement" borderColor = "# 000000">
<tr>
<Td> <font color = "# ff0000"> <b> Profit en espèces: </b> </font> <b> <% = formatNumber (Moncount2, varnum, -1)%> </b> <% Si moncount5 <> "" alors%> <b> <font color = "# ff0000"> bénéfice </font>: <% = formatNumber (monCount5, varnum, -1)%> </b> <% end if%> <% if monCount5 <> "" alors %> <b> <font <font> Profit Arrears </font>: <% = FormatNumber (MonCount5, varnum, -1)%> </b> <% fini if%> <% si moncount5 <> <b> <% fini if %> color = "# ff0000"> bénéfice brut total: </font> <% = formatNumber (moncount5 + moncount2, varnum, -1)%> </b> <% end if%> </td>
</tr>
</ table>
<%
terminer si
Conn.Close
Définir Conn = Rien
%>
</docy>
</html>
Ce qui précède est l'intégralité du contenu de cet article. J'espère que le contenu de cet article sera d'une aide à l'étude ou au travail de chacun ~