用smartforms 打印barcode(条形码)的问题？_百度知道
用smartforms 打印barcode(条形码)的问题？
再到form中编辑器里写如，仍然都是一样的同等高和宽的8条码（8条黑色竖线）？哪里没有弄对。请问为什么：
并设为C1，无论是改为怎样的数字格式。但测试后的条形码显示却是同等宽的8条码在smartforms的style中的character formats设置好了文本名为C1的条形码类型后
我有更好的答案
用哪个修饰的，你是否等宽，输入名字后可以测试打印一个条形码，选择system bar codes；用SE73察看一下你的条形码，看你的style在smartforms里面
你留邮箱我给你资料
其他类似问题
为您推荐：
条形码的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教一个asp打印框架问题_百度知道
请教一个asp打印框架问题
&&gt.asp&frame name=&main& scrolling=&/ cols=& & scrolling=&Admin_Index_Mframeset&gt，其他不要;&yes&quot。怎么实现啊; frameborder=&noframes&gt,*& scrolling=&no& src=&quot。 &0&0&0&180,*& scrolling=& scrolling=&frameset&left&frame&0&
& marginwidth=& border=&frameset framespacing=&false&35; marginheight=&
&Admin_Index_T src=&quot。网上差了好多试了都不行; &frame name=&frame name=&auto&1& src=&0& rows=&& frameborder=&quot。 我想在main中有两个按钮; border=&Admin_Index_Lyes&/&gt.asp&frameset id=&
&lt，点击实现打印和预览main框架中的内容.asp&auto& framespacing=&quot框架页面是如下;
&top&false&&gt
提问者采纳
&script language=&header& hkey_key=&)) {
&lt.ExecWB(45;/A4&quot.connection&quot.eof%&) hkey_key=&quot.ExecWB(10.printinfo,1; var stxt=r;input type=button name=button_setup value=& &&#47.footer = &quot.printing.iframe1.0
onclick=&quot.printer = & &adodb, & & '&#47: always} &lt： &lt,1) 关闭现在所有的IE窗口; New Document & &Advanced Printing by ScriptX& & &lt.printing.printing.Writeline(&YC&quot.recordset&BODY&%& /\Manual feed&&gt.document.Open &保存服务器端传来的数据 ……… &/&quot.print();header&quot,1) 保存网页 WHTML&&&quot.Writeline(&quot、ASP页面打印时如何去掉页面底部的路径和顶端的页码编号 （1）ie的文件-〉页面设置-〉讲里面的页眉和页脚里面的东西都去掉;%=………%&gt,&quot.恢复页吗&quot.ExecWB(1.CreateObject(&quot.RegWrite hkey_root+hkey_path+hkey_key,1) 打印 W -- basic features ) ) &#47.label.Writeline(& factory,1) 全选 W 4;打印预览&quot.CreateObject (&/&// RegW/ 确定打印吗;&gt。 （1）&script Language=VBScript&gt:&javascript&br/\SCRIPT LANGUAGE=javascript& height=0 id=wb name=wb width=0&gt、控制&script&footer&/script& &lt.execwb(8;Internet Explorer&#92.ExecWB(2;Software&#92.execwb(7; onclick=&__________________________________&script& &PageSetup&This is MeadCo&&lt.Writeline(&quot.%……… set conn=server.ExecWB(8.ExecWB(15;与数据库进行交互 HTML页面编码; &//INPUT type=hidden id=text1 name=label value=& & &lt.collate = true
&lt,6) } } &|_________________________________|&%wend%&gt、浮动帧打印 &/PWD=XXXX;/&w&b页码;& |”) HEAD&printinfo&EditPlus& value=&quot,hkey_key hkey_root=&quot.paperSize = &button&quot，打印就不出来了; &打印&quot.ExecWB(22;&u&b&d& factory.open(&button&| 您打印的数据是;STYLE&&&/ hkey_key=&输出打印的内容 WSHTML&&lt.RegWrite hkey_root+hkey_path+hkey_input type=button name=button_fh value=&quot.RegWrite hkey_root+hkey_path+hkey_ & 服务器端脚本;/) objprinter。 （2）&&);&gt.ExecWB(17;/ &lt.createTextRange().0 META NAME=&建立与打印机的连接 objprinter,1) 打印预览 W&label& & RegWGenerator&\断开与打印机的连接 set objprinter=nothing set objfs=nothing // & function print_onclick / RegW& & RegW P {page-break-after,&Scripting.RegWrite hkey_root+hkey_path+hkey_key.P&设置网页打印的页眉页脚为默认值 function pagesetup_default() on error resume next Set RegWsh = CreateObject(& & & end function && alert(stxt) var pwin= function SetPrintSettings() { / CONTENT=&script&OBJECT classid=&/&清空页码&&gt.Open(“select ……”);调用打印函数 &print&quot,1) 打开 W &lt, 1,1) 打印页面设置 Wp align=center&gt.0
br/) /HTML&WS } function printit() { if (confirm('HTML&%&#47.Writeline(& &lt.printing.close /) objprinter,1);adodb.HTML&gt.movenext%& function button1_onclick() { var odoc=FORM ID=printinfo NAME=&quot.0 } & 3;&&#47./HKEY_CURRENT_USER&quot.CreateTextFile (&quot.paperSource = &HTML&LPT1,&quot.value &#47,&
&打印函数 dim label label=document： WebB 打印页面设置 %=rs(0)%&gt，并打开一个新窗口 W/ &HEAD&META NAME=&纵打&&#47:A-11D0-A96B-00C04FD705A2&javascript.Shell&& &DSN=/ & 4;HEAD&/&#47,1 ……….topMargin = 1.ExecWB(4; } & &P&&#47：&quot.%& /HEAD& dim hkey_br&#47.rightMargin = 1,1) 查看页面属性 Winput type=&script language=& 打印页面预览 wb.leftMargin = 1;& hkey_path=&&#47.copies = 2 /设置网页打印的页眉页脚为空 function pagesetup_null() on error resume next Set RegWsh = CreateObject(&br/ onclick=pagesetup_null()&body& & var r= /;& need pages from 1 to 3 factory.htmlTinput type=&) hkey_key=&quot.execwb(6.bottomMargin = 1;input type=button name=button_print value=& onclick=&quot.printing,1) 关闭窗体无提示 2; &lt，有待确认 W创建FileSystem组件对象的实例 set objprinter=VBScript&BODY&&打印页面设置&input type=button name=button_show value=& ……… &lt,1) 好像是撤销;| |& & } function printpreview(){ /p&gt、用FileSystem组件实现WEB应用中的本地特定打印 &) TITLE&gt:printsetup();&&gt.SetMarginMeasure(2) &#47,1);br// &lt，&p&#47: &lt.close();button&quot,1) 刷新 Web.Shell&&quot.write(stxt); &head&| |&OBJECT&gt,&/ onclick=pagesetup_default()&/script defer&& &lt.ExecWB(7;\/ value=&quot:printpreview(); &Author&&#92.TITLE&gt、分页打印 &/ measure margins in inches STYLE&&INPUT type=&quot,hkey_path： &lt. ------------------------------------------------ 关于这个组件还有其他的用法;BODY& id=print name=print &) rs.SetPageRange(false，列举如下;/br/&SCRIPT&gt.portrait = false / value=&quot.P& -- advanced features factory.FileSystemObject&quot, 3) /关闭& 关闭FileSystem组件对象 end function &HP DeskJet 870C&quot1;打印&,true) / end function 'BODY& set rs=server.header = &获得HTML页面的数据 set objfs=CreateObject(&quot？&#39.ExecWB(6;; onclick=&quot.&#47. function printsetup(){ /footer&Microsoft\ / （2） &UID=XXXX、 横打”和“页面的边距;/&br/CLSID; & CONTENT=&quot:printit()&quot
其他类似问题
为您推荐：
其他1条回答
谁指点一下我也想学.
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁网页打印问题
【娱乐休闲】
【生活服务】
【电脑网络】
【文体教育】
【行业部门】
文章浏览→→→网页打印问题网页打印问题
网页打印问题，打印设置，打印预览，打印分页，纵打，横打及页面的边距&&&&1、控制"纵打"、横打”和“页面的边距&&&&（1)&&&&&objectid="factory" style="display:none" viewastextclassid="clsid:eb-11d2-b92f-008048fdd814"&&&&codebase="/scriptx/ScriptX.cab#Version=5,60,0,360"&&/object&&&&&&scriptdefer&&&&&functionSetPrintSettings() {&&&&//-- advanced features&&&&factory.printing.SetMarginMeasure(2)// measure margins in inches&&&&factory.SetPageRange(false,1, 3) // need pages from 1 to 3&&&&factory.printing.printer= "HP DeskJet 870C"&&&&factory.printing.copies= 2&&&&factory.printing.collate= true&&&&factory.printing.paperSize= "A4"&&&&factory.printing.paperSource= "Manual feed"&&&&&&&&//-- basic features&&&&factory.printing.header= "This is MeadCo"&&&&factory.printing.footer= "Advanced Printing by ScriptX"&&&&factory.printing.portrait= false&&&&factory.printing.leftMargin= 1.0&&&&factory.printing.topMargin= 1.0&&&&factory.printing.rightMargin= 1.0&&&&factory.printing.bottomMargin= 1.0&&&&}&&&&&/script&&&&&&&&&（2）&&&&&scriptlanguage="javascript"&&&&&function printsetup(){&&&&// 打印页面设置&&&&wb.execwb(8,1);&&&&}&&&&function printpreview(){&&&&// 打印页面预览&&&&&&&&wb.execwb(7,1);&&&&&&&&&&&&}&&&&&&&&function printit()&&&&{&&&&if (confirm('确定打印吗？')) {&&&&wb.execwb(6,6)&&&&}&&&&}&&&&&/script&&&&&&/head&&&&&&body&&&&&&OBJECTclassid="CLSID:A-11D0-A96B-00C04FD705A2"&&&&&&&&height=0id=wb name=wbwidth=0&&/OBJECT&&&&&&inputtype=button name=button_print value="打印"&&&&&&&&onclick="javascriptrintit()"&&&&&&inputtype=button name=button_setup value="打印页面设置"&&&&&&&&onclick="javascriptrintsetup();"&&&&&&inputtype=button name=button_show value="打印预览"&&&&&&&&onclick="javascriptrintpreview();"&&&&&&inputtype=button name=button_fh value="关闭"&&&&&&&&onclick="javascript:window.close();"&&&&&&&&&------------------------------------------------&&&&关于这个组件还有其他的用法，列举如下：&&&&WebBrowser.ExecWB(1,1)打开&&&&Web.ExecWB(2,1)关闭现在所有的IE窗口，并打开一个新窗口&&&&Web.ExecWB(4,1)保存网页&&&&Web.ExecWB(6,1)打印&&&&Web.ExecWB(7,1)打印预览&&&&Web.ExecWB(8,1)打印页面设置&&&&Web.ExecWB(10,1)查看页面属性&&&&Web.ExecWB(15,1)好像是撤销，有待确认&&&&Web.ExecWB(17,1)全选&&&&Web.ExecWB(22,1)刷新&&&&Web.ExecWB(45,1)关闭窗体无提示&&&&&&&&2、分页打印&&&&&HTML&&&&&&HEAD&&&&&&STYLE&&&&&P {page-break-after: always}&&&&&/STYLE&&&&&&/HEAD&&&&&&BODY&&&&&&%whilenot rs.eof%&&&&&&P&&%=rs(0)%&&/P&&&&&&%rs.movenext%&&&&&&%wend%&&&&&&/BODY&&&&&&/HTML&&&&&&&&&3、ASP页面打印时如何去掉页面底部的路径和顶端的页码编号&&&&（1）ie的文件-〉页面设置-〉讲里面的页眉和页脚里面的东西都去掉，打印就不出来了。&&&&（2）&HTML&&&&&&HEAD&&&&&&TITLE&New Document &/TITLE&&&&&&METANAME="Generator" CONTENT="EditPlus"&&&&&&METANAME="Author" CONTENT="YC"&&&&&&scriptlanguage="VBScript"&&&&&dimhkey_root,hkey_path,hkey_key&&&&hkey_root="HKEY_CURRENT_USER"&&&&hkey_path="\Software\Microsoft\InternetExplorer\PageSetup"&&&&'//设置网页打印的页眉页脚为空&&&&functionpagesetup_null()&&&&onerror resume next&&&&SetRegWsh = CreateObject("WScript.Shell")&&&&hkey_key="\header"&&&&RegWsh.RegWritehkey_root+hkey_path+hkey_key,""&&&&hkey_key="\footer"&&&&RegWsh.RegWritehkey_root+hkey_path+hkey_key,""&&&&endfunction&&&&'//设置网页打印的页眉页脚为默认值&&&&functionpagesetup_default()&&&&onerror resume next&&&&SetRegWsh = CreateObject("WScript.Shell")&&&&hkey_key="\header"&&&&RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"&&&&hkey_key="\footer"&&&&RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&u&b&d"&&&&endfunction&&&&&/script&&&&&&/HEAD&&&&&&&&&&BODY&&&&&&br/&&&&&&br/&&&&&&br/&&&&&&br/&&&&&&br/&&&&&&br/&&palign=center&&&&&&inputtype="button" value="清空页码" onclick=pagesetup_null()&&input type="button" value="恢复页吗"onclick=pagesetup_default()&&br/&&&&&&&&&&/p&&&&&&/BODY&&&&&&/HTML&&&&&4、浮动帧打印&&&&&SCRIPTLANGUAGE=javascript&&&&&functionbutton1_onclick() {&&&&var odoc=windows.iframe1.&&&&var r=odoc.body.createTextRange();&&&&var stxt=r.htmlT&&&&alert(stxt)&&&&var pwin=window.open("","print");&&&&pwin.document.write(stxt);&&&&pwin.document.close();&&&&pwin.print();&&&&}&&&&&/SCRIPT&&&&&5、用FileSystem组件实现WEB应用中的本地特定打印&&&&&scriptLanguage=VBScript&&&&&functionprint_onclick //打印函数&&&&dimlabel&&&&label=document.printinfo.label.value//获得HTML页面的数据&&&&setobjfs=CreateObject("Scripting.FileSystemObject")//创建FileSystem组件对象的实例&&&&setobjprinter=objfs.CreateTextFile ("LPT1:",true) //建立与打印机的连接&&&&objprinter.Writeline("__________________________________")//输出打印的内容&&&&objprinter.Writeline("||")&&&&objprinter.Writeline("|您打印的数据是："&label& " |”)&&&&objprinter.Writeline("||")&&&&objprinter.Writeline("|_________________________________|")&&&&objprinter.close//断开与打印机的连接&&&&setobjprinter=nothing&&&&setobjfs=nothing // 关闭FileSystem组件对象&&&&endfunction&&&&&/script&&&&&服务器端脚本：&&&&&%………&&&&setconn=server.CreateObject ("adodb.connection")&&&&conn.Open"DSN=UID=XXXX;PWD=XXXX;"&&&&setrs=server.CreateObject("adodb.recordset")&&&&rs.Open(“select……”),conn,1,1&&&&……….%&//与数据库进行交互&&&&HTML页面编码：&&&&&HTML&&&&&………&&&&&FORMID=printinfo NAME="printinfo" &&&&&&INPUTtype="button" value="打印&&" id=printname=print & //调用打印函数&&&&&INPUTtype=hidden id=text1 name=labelvalue=&%=………%&&//保存服务器端传来的数据&&&&………&&&&&/HTML&&&&&&&&&&&&&&&&&这个是调用WORD，进行打印&&&&在&head&&/head&之间加入如下代码；&&&&&OBJECTClassid=CLSID:A-11D0-A96B-00C04FD705A2 height=0 id=WBwidth=0&&/OBJECT&&&&&&scriptlanguage=javascript&&&&&functiondoPrintSetup(){&&&&WB.ExecWB(8,1)&&&&}&&&&functiondoPrintPreview(){&&&&WB.ExecWB(7,1)&&&&}&&&&&/script&&&&&&&&&在&body&中调用:&&&&&inputtype=button name=button1 value="打印设置" onclick="returndoPrintSetup()"&&&&&&inputtype=button name=button2 value="打印预览" onclick="returndoPrintPreview()"&&&&&&inputtype=button name=button3 value="打印本页"onclick="javascriptrint()"&&&&&&&&&6、设置不想打印的部分&&&&&style&&&&&@mediaprint{&&&&.xx{display:none}&&&&}&&&&&/style&&&&&&tablewidth="600" class="xx" border="0" cellspacing="0"cellpadding="0"&&&&&&tr&&&&&&td height="60"align="center"&不想打印的表格&/td&&&&&&/tr&&&&&&/table&&&&&7、利用word在客户端打印web页面&&&&&&&&以前在asp中也碰到过实现在浏览器中打印的问题，特别是用局域网中的一些应用，以前的实现定义一个打印开始的标记，和一个结束的标记，然后调用window.print()方法，还有涉及在使用frame时候的打印问题，在msdn的文档中有关于这些的比较详细的介绍，但是，控制起来都比较的麻烦，而且对与打印比较精确的控制都比较难以实现，有很多的朋友也碰到过这个问题，最近读了一片文章，关于在web中的打印的实现（csdn)，稍作修改，贴了出来，供大家参考一下，希望对大家有所帮助。&&&&可以调用客户端的word进行打印前提是客户端必须安装word.&&&&方法如下：&&&&＜%&&&&Response.ContentType= "application/msword"&&&&response.AddHeader"content-disposition", " filename=report.doc"&&&&%＞&&&&当把，一样的内容添加到，asp的上面时候，会在客户端自动调用word打开当前的文档，不过不要忘记把，response.buffer的属性设定为false。&&&&&&&&8、在WEB环境下打印报表的crystal的解决方案的实例&&&&&&&&&%@LANGUAGE="VBSCRIPT" %&&&&&&%&&&&'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ==&&&&'从ADO Recordset直接生成报表&&&&'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ==&&&&'&&&&'概念:&&&&'&&&&'这个应用被设计成演示怎样从ADO Recordset生成报表。我们首先建立ADO Connection和&&&&'Recordset对象，然后用SQL语句从数据库中生成一个记录集。然后我们建立一个Crystal&&&&'Reports对象，并把这个这个对象指向ADO recordset。最后我们将Crystal Reports&&&&'Smart Viewer送到客户端显示这个报表。&&&&&&&&'第一步：建立ADO Connection and Recordset&&&&&&&&'一个ADO的数据库连接就是通过你已经存在的ODBC数据源（DSN）从象ASP这样的应用中来访问&&&&'数据的连接。为了达到这个例子的目的，我们将使用到用一个叫做"Xtreme Sample Data"的&&&&'连到Access数据库Xtreme.mdb系统DSN&&&&&&&&'建立ADO数据库连接:&&&&&&&&SetoConn = Server.CreateObject("ADODB.Connection")&&&&&&&&'这里建立叫做"oConn"的ADOconnection，我们将用这个ADO connection对象连接到上述的DSN&&&&&&&&'用ADO connection 必须先要打开它:&&&&&&&&oConn.Open("XtremeSample Database")&&&&&&&&'这里打开我们的ODBC的数据源，这个数据源指向Access数据库Xtreme.mdb&&&&&&&&'现在我们必须建立一个RecordSet对象：&&&&&&&&setsession("oRs") = Server.CreateObject("ADODB.Recordset")&&&&&&&&'在上面我们建立了一个session("oRs").这个session中存放一个RecordSet对象&&&&'将要包含用SQL语句返回的数据&&&&&&&&'定义和生成recordset:&&&&&&&&session("oRs").ActiveConnection= oConn&&&&'定义这个recordset将要使用的Connection对象&&&&&&&&session("oRs").Open"SELECT [Product ID], [Product Name] FROM Product"&&&&&&&&'用SQL语句从Xtreme.mdb库的"Product"表中取出两个字段&&&&&&&&'===================================================================================&&&&'建立CrystalReports 对象&&&&'===================================================================================&&&&'你可能注意到，CrystalReports对象被设为session，这是因为已经需求就会被一个叫做&&&&'"rptserver.asp"的ASP处理，为了让rptserver.asp能非常容易地访问CrystalReport对象，&&&&'我们把这些对象都设为session。这样任何ASP页都运行在这个session中，都能够直接访问这些对象&&&&&&&&reportname= "ADORecordset.rpt"&&&&&&&&'这里建立一个字符串变量，指向CrystalReport文件(.rpt file)，再用这段代码的时候&&&&'换成你的CrystalReport文件名。&&&&&&&&'建立APPLICATION对象&&&&IfNot IsObject (session("oApp")) Then&&&&Setsession("oApp") =Server.CreateObject("CrystalRuntime.Application")&&&&EndIf&&&&&&&&'这个"if/endif" 结构用来每个session只建立一次 Crystal Reports Application对象o&&&&'建立application对象- session("oApp")，将Crystal Report Design Component&&&&'automationserver (craxdrt.dll)载入内存。&&&&'&&&&'我们建立session变量是为了再aspsession过程中都使用它们.这样可以减少将craxdrt.dll&&&&'载入和卸载的系统开销。在一个session中一旦建立了一个application对象我们就可以不必&&&&'重建对象运行更多的报表。&&&&&&&&'建立REPORT 对象&&&&'&&&&'这个REPORT对象被Application的OpenReport方法建立&&&&&&&&Path= Request.ServerVariables("PATH_TRANSLATED")&&&&While(Right(Path, 1) && "" And Len(Path)&& 0)&&&&iLen= Len(Path) - 1&&&&Path= Left(Path, iLen)&&&&Wend&&&&response.Writepath&&&&'这个"While/Wend"循环被用来将当前文件从虚拟路径(eg: http://Domain/Dir)转换成Crystal&&&&'Report file的物理路径(eg: C:\)&&&&&&&&'打开REPORT(先清除以前的任何对象)&&&&&&&&IfIsObject(session("oRpt")) then&&&&Setsession("oRpt") = nothing&&&&Endif&&&&&&&&Onerror resume next&&&&&&&&Setsession("oRpt") = session("oApp").OpenReport(path &reportname, 1)&&&&'这里用"PATH"和 "reportname"变量计算出Crystal Report file的物理路径, 并打开它。&&&&&&&&IfErr.Number && 0 Then&&&&Response.Write"Error Occurred creating Report Object: " &Err.Description&&&&SetSession("oRpt") = nothing&&&&SetSession("oApp") = nothing&&&&Session.Abandon&&&&Response.End&&&&EndIf&&&&&&&&'这个On erro resume next 块检查在建立report对象时出现的任何错误，我们正明确的捕获任何&&&&'错误如果视图超过许可协议规定的最大并发用户数。&&&&&&&&'注意，我们并不只建立一次report对象。这是因为有了ASPsession 你可以处理更多的超过一个报表&&&&'rptserver.asp将仅仅处理一个叫session("oRpt")的report对象。因此，你如果希望处理多个报表&&&&'的话，就要建立一个新的session("oRpt")对象。&&&&&&&&session("oRpt").MorePrintEngineErrorMessages= False&&&&session("oRpt").EnableParameterPrompting= False&&&&&&&&'这里不允许错误报告机制，包括CrystalReport Design Component automation server (craxdrt.dll)&&&&'内建的错误报告，这是因为两个原因：&&&&'1.打印引擎是在Web Server上执行的, 所以任何错误信息都将被显示在服务端，如果在服务端报告出错了，&&&&'打印引擎将停止运作，你的应用将被“挂起”&&&&'2.rptserver.asp 已经有一些错误处理逻辑在里面了，可以捕获任何非致命错误，并显示在客户端。&&&&'&&&&'**重要**即使我们禁止了服务端引擎的错误处理，但是致命错误还是会在Web Server服务端被捕获，并&&&&'显示出错误提示对话框。所以我们建议，你在"WorldWide Web Publishing" service (IIS service)设置&&&&'"AllowService to Interact with Desktop"选项。这样如果你的ASP应用死了，你将能看到错误提示。&&&&&&&&'======================================================================================&&&&'======================================================================================&&&&&&&&'现在我们必须告诉report在ADOrecordset中的数据&&&&&&&&'report建立在动态的ADOrecordset的基础，我们必须基于我们建立的recordset来建立report&&&&'然后在运行时我们告诉report数据在ADORecord set中。report通常依靠数据库结构文件&&&&'(ADORecordset.ttx)建立，这个.ttx文件包含recordset的结构，不包含实际数据。&&&&&&&&'一个CrystalReport完全依赖将要使用的Report的数据结构，因此在运行时你的数据库结构文件(ttx file)&&&&'或真实反应ADOrecordset包含的数据的DSN是十分重要的&&&&&&&&session("oRpt").DiscardSavedData&&&&setDatabase = session("oRpt").Database&&&&'实例化report用到的数据库&&&&&&&&setTables = Database.Tables&&&&'实例化数据库对象中的表&&&&&&&&setTable1 = Tables.Item(1)&&&&'实例化第一张表，在这个实例中这个表对象指向ADORecordset.ttx文件&&&&&&&&Table1.SetPrivateData3, session("oRs")&&&&&&&&'"SetPrivateData"告诉report现在数据源是recordset，现在report将要显示的数据包含在session("oRs")中&&&&'如果你的report中包含子报表将提供不同的recordset来指向子报表的数据&&&&'&&&&'====================================================================================&&&&'重新得到记录和建立"Pageon Demand" Engine Object&&&&'====================================================================================&&&&&&&&OnError Resume Next&&&&session("oRpt").ReadRecords&&&&&&&&IfErr.Number && 0 Then&&&&Response.Write"Error Occurred Reading Records: " &Err.Description&&&&SetSession("oRpt") = nothing&&&&SetSession("oApp") = nothing&&&&Session.Abandon&&&&Response.End&&&&Else&&&&IfIsObject(session("oPageEngine")) Then&&&&setsession("oPageEngine") = nothing&&&&EndIf&&&&setsession("oPageEngine") = session("oRpt").PageEngine&&&&EndIf&&&&&&&&'实例化 CRYSTAL REPORTS SMART VIEWER&&&&'&&&&'在ASP环境中使用CrystalReports automation server, 我们用相同的页来通过Crystal Web ReportServer调用&&&&'"SmartViewers"&&&&'有四个Crystal Reports Smart Viewers:&&&&'&&&&'1.ActiveX Smart Viewer&&&&'2.Java Smart Viewer&&&&'3.HTML Frame Smart Viewer&&&&'4.HTML Page Smart Viewer&&&&'&&&&'你使用的SmartViewer将与你数用的浏览器兼容的，例如你将不会使用Java viewer如果你的浏览器&&&&'不支持Javaapplets。为此，在这个DEMO中，我们已经选择定义一个viewer，你可以通过代码决定&&&&'提出要求的浏览器的支持兼容性，无论如何，这个功能继承自CrystalReports automation server，&&&&'超过了这个示例的范围。&&&&&&&&'基于简单的理由，我们已经选择通过ASP服务端包含的功能来实现这个功能，你可以选择不同的&&&&'SmartViewer*.asp文件送到不同的浏览器，简单的用你想用的SmartViewer asp文件来代替。&&&&&&&&'这些选择是：SmartViewerActiveX.asp,SmartViewerJave.asp,SmartViewerHTMLFrame.asp,&&&&'andSmartViewerHTMLPAge.asp.注意，使用这些包含文件时，你必须把相应的.ASP文件放在同主&&&&'ASP文件相同的虚拟路径中。&&&&'&&&&'*注意*对于 SmartViewerHTMLFrame andSmartViewerHTMLPage,你必须在虚拟路径中有framepage.asp&&&&'文件和toolbar.asp文件&&&&&&&&viewer= Request.Form("Viewer")&&&&&&&&'上面读取被使用的viewer的值，并放入变量"viewer"中&&&&&&&&Ifcstr(viewer) = "ActiveX" then&&&&%&&&&&&!--#include file="SmartViewerActiveX.asp" --&&&&&&%&&&&ElseIfcstr(viewer) = "Netscape Plug-in" then&&&&%&&&&&&!--#include file="ActiveXPluginViewer.asp" --&&&&&&%&&&&ElseIfcstr(viewer) = "Java using Browser JVM" then&&&&%&&&&&&!--#include file="SmartViewerJava.asp" --&&&&&&%&&&&ElseIfcstr(viewer) = "Java using Java Plug-in" then&&&&%&&&&&&!--#include file="JavaPluginViewer.asp" --&&&&&&%&&&&ElseIfcstr(viewer) = "HTML Frame" then&&&&Response.Redirect("htmstart.asp")&&&&Else&&&&Response.Redirect("rptserver.asp")&&&&EndIf&&&&'上面If/Then/Else 被设计测试"viewer" 变量的值，基于这个值，送适当的Crystal SmartViewer&&&&%&所属分类：→&&&&作者：新浪博客&&&&时间： 0:00:00
All Right Reserved