当前位置: 首页 > 图文教程 > 网络编程 > ASP > WEB打印设置解决方案三(FileSystem组件实现WEB打印)

ASP
ASP应用 用GetString来提高ASP的速度
ASP怎样可以获得代码中第一张图片地址
ASP开发经验谈 ASP开发10条经验总结
如何用ASP来获取客户端真实IP的地址?
用ASP实现就MP3曲目信息的操作全攻略
ASP中连接数据库的错误解决新解决办法
ASP后门之终极伪装
ASP生成静态htm页面基本代码
session在验证管理登陆时的使用方法
asp当中判断函数一览
IIS6.0 ASP 错误解析
ASP与JSP的区别和联系
几种打开记录集方式的比较
cookie和session机制之间的区别与联系
ASP的含义、功能和选择
ASP中巧用Response属性 -- contenttype
ASP内置对象Request和Response的详解
ASP错误大全
人文的ASP开发基础入门之简介
ASP 3.0高级编程(十二)

ASP 中的 WEB打印设置解决方案三(FileSystem组件实现WEB打印)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 77 ::
收藏到网摘: n/a

 

程序代码:
<script Language=VBScript> 
 Function print_onclick //打印函数 
  Dim label 
  label=document.printinfo.label.value //获得HTML页面的数据 
  set objfs=CreateObject("Scripting.FileSystemObject") //创建FileSystem组件对象的实例 
  set objprinter=objfs.CreateTextFile ("LPT1:",true) //建立与打印机的连接 
  objprinter.Writeline("__________________________________") //输出打印的内容 
  objprinter.Writeline("| |") 
  objprinter.Writeline("| 您打印的数据是:"&label& " |”) 
  objprinter.Writeline("| |") 
  objprinter.Writeline("|_________________________________|") 
  objprinter.close //断开与打印机的连接 
  Set objprinter = nothing 
  Set objfs = nothing // 关闭FileSystem组件对象 
 End Function 
</script> 

服务器端脚本: 
<% 
 Set conn=server.CreateObject ("adodb.connection") 
 conn.Open "DSN=name;UID=XXXX;PWD=XXXX;" 
 Set Rs = server.CreateObject("adodb.recordset") 
 Rs.Open("select ……"),conn,1,1 
%> //与数据库进行交互 

HTML页面编码: 
<HTML> 
……… 
<FORM ID=printinfo NAME="printinfo" > 
<INPUT type="button" value="打印>>" id=print name=print > //调用打印函数 
<INPUT type="hidden" id="text1" name="label" value=<%=………%>> //保存服务器端传来的数据 
……… 
</HTML>