Страница A является обычным списком данных ASP, но при печати мы хотим контролировать количество печатных линий на страницу в соответствии с размером печатной бумаги. Должны ли мы сделать это в это время? Теперь давайте посмотрим, как использовать ASP, чтобы управлять количеством печатных линий на страницу.
<%
Pagenum = 55' -определение количества печатных линий
%>
<html>
<Голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<Название> Отчет о получении получения прибыли от печати </title>
<стиль типа = "text/css">
td {font-size: 9pt; Цвет:#000000}
{Text-Decoration: нет}
A: Hover {color:#ff0000; текстовое декорация: derline}
.break {page-break-before: всегда}
</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/PageSetup"
Функция pagesetup_default ()
при ошибке резюме следующим
Установить regwsh = createObject ("wscript.shell")
hkey_key = "/header"
Regwsh.regrite hkey_root+hkey_path+hkey_key, "& bpage & p/& p"
hkey_key = "/cooler"
Regwsh.regrite hkey_root+hkey_path+hkey_key, ""
конечная функция
</script>
<%
kdname1 = trim (request ("kdname1")))
kdname2 = trim (request ("kdname2"))))
Ключевое слово1 = trim (request ("Keyword1")))
Ключевое слово2 = trim (request ("Keyword2")))
Если ключевое слово1 <> "" Тогда
Сегодня = ключевое слово1
еще
Если kdname1 = "" Тогда
Сегодня = Год (дата ()) и "-" & Month (date ())
еще
сегодня = kdname1 & "to" & kdname2
конец, если
конец, если
%>
<Таблица сотока сотовой связи = "0" cellpadding = "0" align = "center">
<tr>
<td align = "center"> Отчет о продаже </td>
</tr>
</table>
<%
strsql = "Select Autoid, Sellautoid, Productxili, ProductName, Productize, ProductNum, ProductDan, ProductJia, Chaoshi, Tiaoma, Youhui, Fukuan, Moncount1, Gongshang, Lirun1, имя пользователя, Indate, Fudate от продажи, где офицер = '" и отделка Monthjie = '0' и (год (indate) = год (getDate ()) и месяц (indate) = месяц (getDate ())), а Zhuoofei - это нулевый порядок с помощью Autoid Desc "
Установить rs1 = server.createObject ("adodb.recordset")
RS1.Open Strsql, Conn, 1,1
%>
<таблица сотока Scelpocing = "0" cellPadding = "0" align = "center" style = "border-collapse: коллапс" bordercolor = "#000000">
<tr>
<td align = "center" bgcolor = "#bdcbee"> Номер заказа на продажу </td>
<td align = "center" bgcolor = "#bdcbee"> Название продукта (spec) </td>
<td align = "center" bgcolor = "#bdcbee"> клиент </td>
<td align = "center" bgcolor = "#bdcbee"> Количество </td>
<td align = "center" bgcolor = "#bdcbee"> Unit </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"> refit </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 = "border-collapse: коллапс; размер шрифта: 10pt; цвет:#000000" bordercolor = "#000000">
<%
для i = 1 к пагенуму
Если не 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> <%= декодировать (rs1 ("productName"))%> <%= rs1 ("Продукция")%> </td>
<td> <%= левая (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 = "справа"> <%= formatnumber (rs1 ("lirun1"), varnum, -1)%> </td>
<td align = "center"> <%if trim (rs1 ("fukuan")) = "Задолженность", затем%> <font color = blue> <%= rs1 ("fukuan")%> </font> <%relate%> <%= rs1 ("fukuan")%> <%, если%> </td> <%= rs1 ("fukuan") <%.
<td> <%= rs1 ("indate")%> </td>
</tr>
<%
rs1.movenext
конец, если
следующий
%>
</table>
<%
Если не rs1.eof и i = pagenum+1, то добавьте знак страниц
%>
<div> </div>
<Таблица CellPadding = "0" cellPacing = "0" align = "center"> <Tr> <td> </td> </tr> </table>
<таблица сотока Scelpocing = "0" cellPadding = "0" align = "center" style = "border-collapse: коллапс" bordercolor = "#000000">
<tr>
<td align = "center" bgcolor = "#bdcbee"> Номер заказа на продажу </td>
<td align = "center" bgcolor = "#bdcbee"> Название продукта (spec) </td>
<td align = "center" bgcolor = "#bdcbee"> клиент </td>
<td align = "center" bgcolor = "#bdcbee"> Количество </td>
<td align = "center" bgcolor = "#bdcbee"> Unit </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"> refit </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 = "border-collapse: коллапс" bordercolor = "#000000">
<tr>
<TD> <font color = "#ff0000"> <b> денежная прибыль: </b> </font> <b> <%= formatnumber (moncount2, varnum, -1)%> </b> <%if moncount5 <> "" Тогда%> <b> <font color = "#ff0000"> reforment5 </font>: <b> <font color = "#ff0000">: <%= formatnumber (moncount5, varnum, -1)%> </b> <%end if%> <%if moncount5 <> "" then%> <b> <font <font> Задолженность по прибыли </font>: <%= Formatnumber (Moncount5, Varnum, -1)%> </b> <%end if%> <%, если <%, если <> b> <%if%> <%, если <%if, если <> b> <%if%> <%if, если. color = "#ff0000"> Общая валовая прибыль: </font> <%= formatnumber (moncount5+moncount2, varnum, -1)%> </b> <%end if%> </td>
</tr>
</table>
<%
конец, если
Conn.close
установить conn = ничего
%>
</Body>
</Html>
Вышеуказанное - все содержание этой статьи. Я надеюсь, что содержание этой статьи поможет всем, кто учится или работа ~