How to implement network printing function in ASP

Used technology: ASP, WSH, VBScript file aspprint.asp code as follows:

<% @Language = VBScript%> <% OPTION Explicit

DIM STRSUBMIT 'FORM Save Submit button DIM STRPRINTERPATH' FORM Save Network Printer Path Value DIM STRUSERNAME 'FORM User Name DIM STRPASSWORD' FORM DIM STRMESSAGE 'FORM Print content DIM OBJFS 'VBScript file system object DIM ObjWshNet' WSH Network Object DIM Objprinter 'Print Object

STRSUBMIT = Request.form ("Submit")%>

<% IF strsubmit = "" "" "

Note: Since I is a demonstration, it should be safely processed in the real application that NT's account and password is used in ASP.

network printer Path:	< Tr>	Login Account:
Please enter the text you want to print:	<p>Name = Message> </ textarea> </ td> </ tr> <tr> <td align = right nowrap> </ td> <td align = left nowrap> <input type = "submit" value = "submit" ID = Submit Name = Submit> </ td> </ tr> </ table> </ form></p> <p>When the above information is submitted, you can print it according to the following code. <% Else 'acquires response information from Form. StrinterPath = Request.form ("printerpath") strusename = request.form ("username") strpassword = request.form ("password") StrMessage = Request.form ("Message")</p> <p>We will now use the VBScript FileSystemObject object and the WSH Net work object. The Network object will give us the methods we need to open a printer connection, and the Fi leSystemObject will allow us to stream our output to the printer. We create these objects In The Following Code Example:</p> <p>Set objFS = CreateObject ( "Scripting.FileSystemObject") Set objWSHNet = CreateObject ( "WScript.Network") 'using the network printer is connected WSH objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, str Username, strPassword' printed using the file system object The device uses set objprinter = objfs.createtextfile ("LPT1:", true) 'to send text objprinter.write (strmessage)' closing the print device object and perform error trap processing on error resume next objprinter.close 'if An error occurs, close the print connection, and output the error message if Err the response.write ("Error #" & "&" & err.desc ription) Err.clear else 'is successful, output confirmation information Response .Write ("<center>") response.write ("<table width = 100% align = center border = 0 cellspia) Response.write (" <tr> <TD align = Right> <B> Print Message Send: </ B> </ TD> ") Response.Write (" <TD Align = Left> & StrMessage & "</ TD> </ TR>")</p> <p>Response.write ("<tr> <td align = right> <b> network printer path: </ b> </ td>") response.write ("<TD align = left> & strprinterpath &" </ td > </ Tr> ") Response.write (" <tr> <td align = right> <b> login account: </ b> </ td> ") Response.write (" <TD align = left> "& StruserName & "</ TD> </ tr>") Response.write ("</ table>") Response.write ("</ center>") End if 'cancels print connection objWshnet.RemoveprinterConnection "LPT1:" set objWshnet = Nothing set objfs = Nothing set objprinter = Nothing end if%> </ body> </ html></p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-21428.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="21428" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.041</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'B7PEYnmq6PpHzbsQXGgU_2BsoYRZWcy9FPWqdGxXtM4XuHi6YG9m07zMTtGCAbABqPiczJw1kYsScp_2FZTN'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>