打印小票出现乱码,求助!!!
我在桌面上建立记事本打印出来很好,但是用了ASP做的收银系统打印小票他出来只有数字是好的,汉字全是乱码,怎么办?相关程序如下:<script Language=VBScript>
function print_onclick
label1=document.form1.dp_name.value //获得HTML页面的数据
label2=document.form1.xs_ddh.value
label3=document.form1.fs.value
label4=document.form1.zs.value
label5=document.form1.sd.value
label6=document.form1.zh.value
label7=document.form1.dr_k.value
label8=document.form1.dp_dh.value
label9=document.form1.hy_k.value
label20=document.form1.hy_sjf.value
label21=document.form1.hy_bjf.value
label22=document.form1.hy_zjf.value
label23=document.form1.cz_xj.value
label24=document.form1.cz_xj1.value
label25=document.form1.cps.value
set objfs=CreateObject("Scripting.FileSystemObject")
set objprinter=objfs.CreateTextFile("LPT1:",true)
objprinter.Writeline("________________________________")
objprinter.Writeline("欢迎光临 "&label1&"")
objprinter.Writeline("销售编号:"&label2&"")
objprinter.Writeline("产品名 折扣 价格 数量 金额")
objprinter.Writeline(""&label25&"")
objprinter.Writeline("销售时间:"&now&"")
objprinter.Writeline("付款方式:"&label3&"")
objprinter.Writeline("实收金额:"&label4& " 元 ")
objprinter.Writeline("收到金额:"&label5& " 元 ")
objprinter.Writeline("找回金额:"&label6& " 元 ")
objprinter.Writeline("销售员号:"&label7&"")
objprinter.Writeline("多谢惠顾 欢迎再来")
objprinter.Writeline("电话:"&label8&"")
objprinter.Writeline("顾客签名: ")
objprinter.Writeline("________________________________")
objprinter.Writeline("")
objprinter.Writeline("")
objprinter.Writeline("")
objprinter.Writeline("")
objprinter.Writeline("")
objprinter.Writeline("")
objprinter.close()
set objprinter=nothing
set objfs=nothing
end function
</script>