精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

[p]<%@ language=vbscript %>[br]<%[br]option explicit[/p]
[p]dim strsubmit 'form中用來保存提交按鈕的值[br]dim strprinterpath 'form中保存網絡打印機路徑的值[br]dim strusername 'form中用戶名的值[br]dim strpassword 'form中密碼的值[br]dim strmessage 'form打印內容的值[br]dim objfs 'vbscript中的文件系統對象[br]dim objwshnet 'wsh中的網絡對象[br]dim objprinter '打印對象[/p]
[p]strsubmit = request.form("submit")[br]%>[/p]
[p][br][br][br][br][/p]
[p]<%[br]if strsubmit = "" then[br]%>[/p]
[p]注意的是：[br]由于這是演示，其中有關nt的帳號和密碼都是使用了不加密的手段在asp中傳遞的[br]真正的運用中應該對該登錄過程進行安全處理。[br]

[br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br][br]

網絡打印機路徑:
登錄帳號:
登錄口令:
請輸入你想打印的文字:

[br]

[/p]
[p]當以上信息被提交后，就可以按照下面的代碼進行打印了。[br]<%[br]else[br]' 從form中取得響應信息。[br]strprinterpath = request.form("printerpath")[br]strusername = request.form("username")[br]strpassword = request.form("password")[br]strmessage = request.form("message")[/p]
[p]we will now use the vbscript filesystemobject object and the wsh network object. the network object will[br]give us the methods we need to open a printer connection, and the filesystemobject will allow us to stream our[br]output to the printer. we create these objects in the following code example: [/p]
[p]set objfs = createobject("scripting.filesystemobject")[br]set objwshnet = createobject("wscript.network")[br]' 使用wsh連接網絡打印機[br]objwshnet.addprinterconnection "lpt1", strprinterpath, false, strusername, strpassword[br]' 使用文件系統對象將打印設備作為一個文件使用[br]set objprinter = objfs.createtextfile("lpt1:", true)[br]' 給打印設備送出文本[br]objprinter.write(strmessage)[br]'關閉打印設備對象并進行錯誤陷阱處理[br]on error resume next[br]objprinter.close[br]' 如果發生錯誤，關閉打印連接，并輸出錯誤信息[br]if err then[br]response.write ("error # " & cstr(err.number) & " " & err.description)[br]err.clear [br]else[br]' 操作成功，輸出確認信息[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("")[br]response.write("

打印消息送出:	" & strmessage & "
網絡打印機路徑:	" & strprinterpath & "
登錄帳號:	" & strusername & "

")[br]response.write("")[br]end if[br]' 取消打印連接[br]objwshnet.removeprinterconnection "lpt1:"[br]set objwshnet = nothing[br]set objfs = nothing[br]set objprinter = nothing[br]end if[br]%>[br][br][/p]