DDR爱好者之家 Design By 杰米
1、引言
随着Internet的飞速发展，许多企业都纷纷开发基于WEB的业务应用系统。一般情况下，基于WEB的业务应用都采用三层或三层以上的结构，前台即客户端是普通的WEB浏览器，中间业务逻辑应用层存放于WEB服务器上，由WEB服务器上的服务构件访问后台数据库。为了业务系统与Internet的互联，WEB服务器和数据库系统均托管在IDC（互联网数据中心），因而需要从托管在 IDC的服务器上提取业务数据在本地打印输出。在客户端浏览器只能打印简单的HTML页面的情况下，要求更为强大灵活的打印输出功能；通过采用相关的技术对浏览器的功能进行扩展，能够完成更复杂的数据打印的任务，如收条、回执等。笔者曾经为一网络教育公司开发教育管理软件时采用FileSystem组件实现在本地打印三联收款凭证和准考证等的功能。
2、FileSystem组件使用简介
FileSystem组件其实是一个ActiveX控件，其存在于WINDOWS平台中（不管是Win98、Win2000，还是NT环境都包含该组件。），CLSID：0D43FE01-11CF-8940-00A0C9054228。熟悉ASP编程人可能都使用过FileSystem组件，一般情况下该组件用在服务器端，用来对文本文件、文件夹及驱动器进行访问和控制。可以通过两种方法创建FileSystem组件的对象实例：
1、使用ASP的内置对象SERVER的方法Server.CreateObject来创建服务器端对象的实例。
2、使用Vbscript脚本函数CreateObject来创建客户端对象的实例（也可以在服务器端用该方法，但有时会出错，一般不使用；）。
FileSystem组件对文本文件进行操作有如下方法：
CreateTextFile（Filename,[Overwrite if exists],[Unicode/ASCII]） //创建文本文件
OpenTextFile（Filename,[Input/output mode],[Create if not exists],[Format]） //打开文本文件
CopyFile（Filename1,Filename2,[Overwrite]） //拷贝文本文件
MoveFile (Filename1,Filename2) //移动文本文件
DeleteFile (Filename) //删除文本文件
GetFile (Filename) //获得文本文件
FileExists (Filename) //判断文本文件是否存在
FileSystem组件对文件夹和驱动器也有和文本文件相类似的方法，在此不一一赘述。
其实，FileSystem组件也可使用于客户端，采用创建FileSystem组件对象实例的第二种方法即可以使用该组件对客户端系统的文本文件、文件夹及驱动器进行访问和控制。因为微软平台带有FileSystem组件，所以对于微软平台的客户端则不需要从远程服务器下载，其在安装操作系统时会自己安装并注册；而对于其他平台的客户端则须安装插件并下载FileSystem组件。
3、本地端特定打印的实现机制
利用FileSystem组件实现本地端特定打印的过程如图所示：
<IMG SRC="http://www.computerworld.com.cn/htm/app/aprog/01_9_14_5.jpg" border=0>
1、客户端向WEB服务器发送数据请求；
2、WEB服务器根据业务处理逻辑与后台数据库进行交互，取得所需数据形成HTML页面，并附带有FileSystem组件对象的VBScript脚本，向客户端浏览器发回HTML页面；
3、在客户端运行脚本，脚本取得HTML页面构件的数据，建立与打印机的连接，向打印机输出打印数据。
前两步与一般的WEB应用没有什么区别，需要说明的是第三步：首先使用Vbscript脚本函数CreateObject来创建FileSystem组件对象的实例；然后调用该实例创建文本文件的CreateTextFile方法，把打印端口LPT1或LPT2作为文件名参数，并将可覆盖文件参数设为TRUE，建立与打印机的连接；调用获得的打印机文本文件流实例的写文本方法WriteLine向打印机输出打印的内容。
4、程序示例
客户端脚本：
<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>
5、说明及结论
1、使用此方法实现打印任务之前，必须调节浏览器的安全设置；在Internet选项上安全级别降低，对自己的站点充分信任，可以通过浏览器执行脚本访问本机资源。
2、本方法可以实现在局域网的打印机上打印远程服务器的数据，只须用局域网上打印机注册在本地的端口代替本地打印机端口作为创建文本文件的CreateTextFile方法的参数即可。
3、本方法可以实现根据用户选择打印的宽度、高度和数量及内容，并可重复打印。
4、不需要编写ActiveX控件即可以完成特定的打印功能，实现较为简单。
5、不足之处是需要调节浏览器的安全设置，且不支持图片和特殊字体的打印。
随着Internet的飞速发展，许多企业都纷纷开发基于WEB的业务应用系统。一般情况下，基于WEB的业务应用都采用三层或三层以上的结构，前台即客户端是普通的WEB浏览器，中间业务逻辑应用层存放于WEB服务器上，由WEB服务器上的服务构件访问后台数据库。为了业务系统与Internet的互联，WEB服务器和数据库系统均托管在IDC（互联网数据中心），因而需要从托管在 IDC的服务器上提取业务数据在本地打印输出。在客户端浏览器只能打印简单的HTML页面的情况下，要求更为强大灵活的打印输出功能；通过采用相关的技术对浏览器的功能进行扩展，能够完成更复杂的数据打印的任务，如收条、回执等。笔者曾经为一网络教育公司开发教育管理软件时采用FileSystem组件实现在本地打印三联收款凭证和准考证等的功能。
2、FileSystem组件使用简介
FileSystem组件其实是一个ActiveX控件，其存在于WINDOWS平台中（不管是Win98、Win2000，还是NT环境都包含该组件。），CLSID：0D43FE01-11CF-8940-00A0C9054228。熟悉ASP编程人可能都使用过FileSystem组件，一般情况下该组件用在服务器端，用来对文本文件、文件夹及驱动器进行访问和控制。可以通过两种方法创建FileSystem组件的对象实例：
1、使用ASP的内置对象SERVER的方法Server.CreateObject来创建服务器端对象的实例。
2、使用Vbscript脚本函数CreateObject来创建客户端对象的实例（也可以在服务器端用该方法，但有时会出错，一般不使用；）。
FileSystem组件对文本文件进行操作有如下方法：
CreateTextFile（Filename,[Overwrite if exists],[Unicode/ASCII]） //创建文本文件
OpenTextFile（Filename,[Input/output mode],[Create if not exists],[Format]） //打开文本文件
CopyFile（Filename1,Filename2,[Overwrite]） //拷贝文本文件
MoveFile (Filename1,Filename2) //移动文本文件
DeleteFile (Filename) //删除文本文件
GetFile (Filename) //获得文本文件
FileExists (Filename) //判断文本文件是否存在
FileSystem组件对文件夹和驱动器也有和文本文件相类似的方法，在此不一一赘述。
其实，FileSystem组件也可使用于客户端，采用创建FileSystem组件对象实例的第二种方法即可以使用该组件对客户端系统的文本文件、文件夹及驱动器进行访问和控制。因为微软平台带有FileSystem组件，所以对于微软平台的客户端则不需要从远程服务器下载，其在安装操作系统时会自己安装并注册；而对于其他平台的客户端则须安装插件并下载FileSystem组件。
3、本地端特定打印的实现机制
利用FileSystem组件实现本地端特定打印的过程如图所示：
<IMG SRC="http://www.computerworld.com.cn/htm/app/aprog/01_9_14_5.jpg" border=0>
1、客户端向WEB服务器发送数据请求；
2、WEB服务器根据业务处理逻辑与后台数据库进行交互，取得所需数据形成HTML页面，并附带有FileSystem组件对象的VBScript脚本，向客户端浏览器发回HTML页面；
3、在客户端运行脚本，脚本取得HTML页面构件的数据，建立与打印机的连接，向打印机输出打印数据。
前两步与一般的WEB应用没有什么区别，需要说明的是第三步：首先使用Vbscript脚本函数CreateObject来创建FileSystem组件对象的实例；然后调用该实例创建文本文件的CreateTextFile方法，把打印端口LPT1或LPT2作为文件名参数，并将可覆盖文件参数设为TRUE，建立与打印机的连接；调用获得的打印机文本文件流实例的写文本方法WriteLine向打印机输出打印的内容。
4、程序示例
客户端脚本：
<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>
5、说明及结论
1、使用此方法实现打印任务之前，必须调节浏览器的安全设置；在Internet选项上安全级别降低，对自己的站点充分信任，可以通过浏览器执行脚本访问本机资源。
2、本方法可以实现在局域网的打印机上打印远程服务器的数据，只须用局域网上打印机注册在本地的端口代替本地打印机端口作为创建文本文件的CreateTextFile方法的参数即可。
3、本方法可以实现根据用户选择打印的宽度、高度和数量及内容，并可重复打印。
4、不需要编写ActiveX控件即可以完成特定的打印功能，实现较为简单。
5、不足之处是需要调节浏览器的安全设置，且不支持图片和特殊字体的打印。
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
暂无评论...
《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。
更新日志
2024年11月24日
2024年11月24日
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]