|
|
 |
首页 … 技术文档 Technical Articles |
|
| |
| |
|
| （时间:2007-6-21 13:23:26 共有
人次浏览） |
利用ASP结合JAVASCRIPT或VBSCRIPT可以生成动态的WEB页面。在将这种方法用于实际应用中时，不可避免的要将结果打印输出。我们同样可以将查询结果整理后输出，并用浏览器工具栏上的打印按钮直接打印输出。以下程序是访问SQL SERVER 自带的数据库PUBS中的SALES表，服务器和工作站端都采用VBSCRIPT。当工作站端采用JAVASCRIPT时，可用NAVIGATOR访问。
〈HTML〉〈HEAD〉
〈META HTTP－EQUIV=″CONTENT－TYPE″ CONTENT=″TEXT/HTML; CHARSET=GB2312－80″〉
〈META NAME=″VI60DEFAULTCLIENTSCRIPT″ CONTENT=″VBSCRIPT″〉
〈META NAME=″GENERATOR″ CONTENT=″MICROSOFT FRONTPAGE 3.0″〉
〈TITLE〉SALES〈/TITLE〉〈/HEAD〉
〈BODY〉〈FORM〉
〈TABLE BORDER=″0″ WIDTH=″800″ CELLSPACING=″0″ CELLPADDING=″0″〉
′定义表宽800点
〈TR〉〈TD〉〈DIV ALIGN=″CENTER″〉〈CENTER〉〈H2〉〈STRONG〉订单报表〈/STRONG〉〈/H2〉
〈/CENTER〉〈/DIV〉〈/TD〉〈/TR〉〈TR〉〈TD〉〈DIV ALIGN=″RIGHT″〉〈P〉单位：元 〈/TD〉〈/TR〉〈/TABLE〉
〈TABLE BORDER=″1″ WIDTH=″800″ CELLSPACING=″0″ CELLPADDING=″0″〉〈TR〉
〈TD WIDTH=″25％″ ALIGN=″CENTER″〉STOR_ID
〈/TD〉〈TD WIDTH=″25％″ ALIGN=″CENTER″〉ORD_NUM〈/TD〉
〈TD WIDTH=″25％″ ALIGN=″CENTER″〉ORD_DATE〈/TD〉〈TD WIDTH=″25％″ ALIGN=″CENTER″〉QTY〈/TD〉〈/TR〉〈％ SET CN=SERVER.CREATEOBJECT(″ADODB.CONNECTION″)
′定义一个ADO的连接对象
CN.OPEN ″PROVIDER=SQLOLEDB;DATA SOURCE=202.203.208.1;INITIAL CATALOG=PUBS;USER ID=SA;PASSWORD=; ″
′定义数据库连接
SQL=″SELECT STOR_ID,ORD_NUM,ORD_DATE,QTY FROM SALES WHERE ORD_DATE〉′1994－5－1′″
SET RS=CN.EXECUTE(SQL)
WHILE NOT RS.EOF
′判断是否为最后一条记录
QTYV=RS(″QTY″)
SUMQTYV=SUMQTYV＋QTYV％〉
〈TR〉〈TD〉〈％=RS(″STOR_ID″)％〉〈/TD〉
〈TD〉〈％=RS(″ORD_NUM″)％〉〈/TD〉
〈TD〉〈％=RS(″ORD_DATE″)％〉〈/TD〉
〈TD〉〈％=QTYV％〉〈/TD〉〈/TR〉
〈％RS.MOVENEXT ′移动到下一条记录WEND％〉〈TR〉
〈TD COLSPAN=″3″〉合计〈/TD〉
〈TD〉〈％=SUMQTYV％〉〈/TD〉
〈/TR〉〈/TABLE〉〈％CN.CLOSE％〉〈/FORM〉〈/BODY〉〈/HTML〉
为保证能打印各种大小的报表，可先将浏览器中打印设置的纸张大小定为最宽，然后通过调整〈TABLE WIDTH=″″〉的值输出不同的报表大小。
|
|
|
 【打印该页】 【关闭窗口】 |
|
此技术资料来自网络，仅供参考。未经许可，不得转载。
若有侵权，请及时与我们取得联系！ |
| |
|
|
|
|
