Network printing function with ASP

zhaozj2021-02-16 51

Network printing function with ASP 2001: 8: 17

<% @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: Because this is a demonstration, where the NT account and password are used in the real application that is not encrypted, the login process should be safely processed in the real application passed in the ASP.

network printer Path:

Please enter the text you want to print:

</ 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> 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 Network object. The Network object will give us the methods we need to open a printer connection, and the FileSystemObject 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, strUsername, strPassword' file system object using the printing apparatus As a file uses set objfs.createtextfile ("LPT1:", "LPT1:", sending text objprinter.write (strmessage) 'closing the print device object and performs an error trap to handle on error resume next objprinter.close' if Error, turn off the print connection, and output the error message if Err Ten response.write ("Error #" & "&" & err.description) Err.Clear else 'is successful, output confirmation information Response.write ("<Center>") response.write ("<Table Width = 100% Align = Center Border = 0 Cellspacing = 1 Cellpadding = 1>) Response.write (" <TR> <TD Align = Right> <b> Print message sent: </ b> </ td> ") response.write (" <td align = left> "& structage &" </ td> </ tr>) 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 > ") Respon SE.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> author: beach Boys</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-20585.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="20585" 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.039</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 = 'E3pNIEXX0eVpfQVIayjCtgNqlKQa_2FMS6uZY_2BNQTHshsz5OEDV0oMPsVnKd5nPllVyF9do3Mak1cZi77Bw7nNfw_3D_3D';
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);
});

$('#nav li[data-active="fid-1"]').addClass('active');
</script>