Network printing function with ASP

zhaozj2021-02-11 186

<% @ Language = VBScript%> <% OPTION EXPLICITDIM STRSUBMIT 'FORM Save Submit button DIM STRPRINTERPATH' FORM Save Network Printer Path Value DIM STRUSERNAME 'FORM DIM STRPASSWORD' FORM in DIM STRPASSWORD 'FORM Value DIM STRMESSAGE 'FORM Print Content DIM Objfs' VBScript File System Object DIM ObjWSHNET 'WSH Network Object DIM Objprinter' Print Object STRSUBMIT = Request.form ("Submit")%> Meta name = "generator" content = "Microsoft Visual Studio 6.0"> <% if strsubmit = "" "Note: Because this is a demonstration, where the NT account and password are The login process should be safely processed in the true application that is not encrypted.

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.</p>
<p>strPrinterPath = Request.Form ( "printerpath") strUsername = Request.Form ( "username") strPassword = Request.Form ( "password") strMessage = Request.Form ( "message") We will now use the VBScript FileSystemObject object and the . WSH Network object The Network object willgive us the methods we need to open a printer connection, and the FileSystemObject will allow us to stream ouroutput to the printer We create these objects in the following code example:. Set objFS = CreateObject ( "Scripting. FileSystemObject ") Set objWSHNet = CreateObject (" WScript.Network ") 'using the network printer is connected WSH objWSHNet.AddPrinterConnection" LPT1 ", strPrinterPath, False, strUsername, strPassword' using the file system object using the printing apparatus as a Set objPrinter = objFS file .CreateTextFile ("LPT1:", true) 'Sends text objprinter.write (strmessage)' to print devices 'Close the print device object and perform error trap processing on error resume nextobjprinter.close' If an error occurs, close the print connection, and output an error Information If Err ThenResponse.write ("Error #" & "& Err.Description) Err.clear else 'is successful, output confirmation information response.write (" <center> ") Response.write ("<Table WID TH = 100% align = center border = 0 cellspacing = 1 cellpadding = 1> ") Response.write (" <tr> <td align = right> <b> Print message): </ b> </ td> ") Response.write ("<TD Align = LEFT> & StrMessage &" </ TD> </ TR>) Response.write ("<TD Align = Right> <B> Network Printer Path: </ B > </ Td> ") Response.write (" <TD Align = Left> & StrinterPath & "</ TD> </ TR>") Response.write ("<Tr> <TD Align = Right> <</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-4805.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="4805" 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.062</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 = '4_2FgqxGCuOSvFmPThsd0Uz9QUMfxMjY_2BES5mY_2BsQZAKWTXvqdlC_2FT2O5wiY1My3JPs0tol0_2BBtTod6AgJL4KTcA_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>