28,406
社区成员
发帖
与我相关
我的任务
分享求助。。。(ASP客户端打印)
各位高手，兄弟有问题请教。这找了个一个ASP程序实现客户打印，可是打印中文就是乱码，请各位帮忙看看。：)
现将程序附上
<script Language=VBScript>
function print_onclick
dim label
label=document.printinfo.label.value
'msgbox(label)
set objfs=CreateObject("Scripting.FileSystemObject")
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
'window.print()
end function
</script>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--<meta http-equiv="Content-Type" content="text/html; charset=gb2312">-->
</head>
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="打印>>" id=print name=print onclick=print_onclick()>
<INPUT type=hidden id=text1 name=label value="您好">
</HTML>
现将程序附上
<script Language=VBScript>
function print_onclick
dim label
label=document.printinfo.label.value
'msgbox(label)
set objfs=CreateObject("Scripting.FileSystemObject")
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
'window.print()
end function
</script>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--<meta http-equiv="Content-Type" content="text/html; charset=gb2312">-->
</head>
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="打印>>" id=print name=print onclick=print_onclick()>
<INPUT type=hidden id=text1 name=label value="您好">
</HTML>
...全文
请发表友善的回复…
发表回复
