UC知道急急..ASP中打印小票的问题
来源：百度知道 编辑：UC知道 时间：2024/05/27 12:11:25
正用ASP加access作一个进销存管理系统.在网上打了个方法不知道怎么用!!!
网上的源程序如下|:
程式代码：
<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.connecti
网上的源程序如下|:
程式代码：
<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.connecti
一个页面足矣。。。。都放到一起就行了。。。
这个我做过。不过好多年前了，现在基本用AJAX可以实现，这样就可以做到无刷新，也不用过多提示页面了。
1. 在你的管理系统需要打印小票的地方加上一个打印按钮，即点击打印
<form id="printinfo" name="printinfo">
<input type="button" value="点此打印小票">
<input type="hidden" name="label" value="打印内容">
</form>
hidden里面的value是所有要打印的内容，这个用程序写进去就可以了。
2.如果form不写提交地址那就是原页面了，那么Function也放在原来的页面里面，然后加一个判断函数，if label里面的值不为空，then print_onclick
这样基本就可以了吧。没具体试过，不过调试一下没问题。不用转到新页面，转也可以，但空白就不太好看了，可以写些“正在打印...”之类的字符。
你的这种方法不能打印，只能本地，不能用于服务器的