An example code for generating a barcode with an ASP. (Note: The generated graphic is HTML code, not the picture, when printing, please in IE Internet option => Advanced = "Print Selected" Print Background Color and Image ")
Demo Address: http://www.51windows.net/myfile/asp/codeflag.asp
The simpler method is to use a barcode font, download: http://www.51windows.net/2004/share/font/tiaoma.rar (if the address can't download, please search "bar code font" on Google).
ASP generating line code </ title></p>
<p><style></p>
<p><! -</p>
<p>* {font: menu}</p>
<p>-></p>
<p></ style></p>
<p></ hEAD></p>
<p><body></p>
<p><%</p>
<p>'Barcode generation program</p>
<p>'海娃 @ 2004-4-4</p>
<p>'http://www.51windows.net</p>
<p>Function Haiwaocde (ZFSTR)</p>
<p>ZF = ZFSTR</p>
<p>ZF = Replace (zf, "0", "_ | _ | __ || _ || _ |")</p>
<p>ZF = Replace (ZF, "1", "_ || _ | __ | _ | _ ||")</p>
<p>ZF = Replace (ZF, "2", "_ | _ || __ | _ | _ ||")</p>
<p>ZF = Replace (ZF, "3", "_ || _ || __ | _ | _ |")</p>
<p>ZF = Replace (ZF, "4", "_ | _ | __ || _ | _ ||")</p>
<p>ZF = Replace (ZF, "5", "_ || _ | __ || _ | _ |")</p>
<p>ZF = Replace (ZF, "7", "_ | _ | __ | _ || _ ||</p>
<p>ZF = Replace (ZF, "6", "_ | _ || __ || _ | _ |")</p>
<p>Zf = Replace (ZF, "8", "_ || _ | __ | _ || _ |")</p>
<p>ZF = Replace (ZF, "9", "_ | _ || __ | _ || _ |")</p>
<p>ZF = Replace (zf, "a", "_ || _ | _ | __ | _ ||</p>
<p>ZF = Replace (ZF, "B", "_ | _ || _ | __ | _ ||")</p>
<p>ZF = Replace (ZF, "C", "_ || _ || _ | __ | _ |")</p>
<p>ZF = Replace (ZF, "D", "_ | _ | _ || __ | _ ||</p>
<p>ZF = Replace (ZF, "E", "_ || _ | _ || __ | _ |")</p>
<p>Zf = Replace (ZF, "F", "_ | _ || _ || __ | _ |") zf = Replace (ZF, "G", "_ | _ | _ | __ || _ ||</p>
<p>ZF = Replace (ZF, "H", "_ || _ | _ | __ || _ |")</p>
<p>ZF = Replace (ZF, "I", "_ | _ || _ | __ || _ |")</p>
<p>ZF = Replace (ZF, "J", "_ | _ | _ || __ || _ |")</p>
<p>ZF = Replace (ZF, "K", "_ || _ | _ | _ | __ ||</p>
<p>ZF = Replace (ZF, "L", "_ | _ || _ | _ | __ ||")</p>
<p>ZF = Replace (ZF, "M", "_ || _ || _ | _ | __ |")</p>
<p>ZF = Replace (ZF, "N", "_ | _ | _ || _ | __ ||</p>
<p>ZF = Replace (ZF, "O", "_ || _ | _ || _ | __ |")</p>
<p>ZF = Replace (ZF, "P", "_ | _ || _ || _ | __ |")</p>
<p>ZF = Replace (ZF, "R", "_ || _ | _ | _ || __ |")</p>
<p>ZF = Replace (ZF, "Q", "_ | _ | _ | _ || __ ||</p>
<p>ZF = Replace (ZF, "S", "_ | _ || _ | _ || __ |")</p>
<p>ZF = Replace (ZF, "T", "_ | _ | _ || _ || __ |")</p>
<p>ZF = Replace (zf, "u", "_ || __ | _ | _ | _ ||</p>
<p>ZF = Replace (ZF, "V", "_ | __ || _ | _ | _ ||</p>
<p>ZF = Replace (ZF, "W", "_ || __ || _ | _ | _ |")</p>
<p>ZF = Replace (zf, "x", "_ | __ | _ || _ | _ ||")</p>
<p>Zf = replace (zf, "y", "_ || __ | _ || _ | _ |")</p>
<p>ZF = Replace (ZF, "Z", "_ | __ || _ || _ | _ |")</p>
<p>ZF = Replace (zf, "-", "_ | __ | _ | _ || _ ||</p>
<p>Zf = replace (zf, "*", "_ | __ | _ || _ || _ |</p>
<p>Zf = replace (zf, "/", "_ | __ | __ | _ | __ |")</p>
<p>ZF = replace (zf, "%", "_ | _ | __ | __ | __ |")</p>
<p>ZF = Replace (zf, " ", "_ | __ | _ | __ | __ |")</p>
<p>ZF = replace (zf, ".", "_ || __ | _ | _ || _ |")</p>
<p>Haiwaocde = ZF</p>
<p>END FUNCTION</p>
<p>Code_h = 52</p>
<p>Code_w = 2</p>
<p>Function Dragcode (CCODE)</p>
<p>C = ccode</p>
<p>C = Replace (C, "_", "<span style = 'Height:" & code_h & "; width:" & code_w & "; background: #ffffff'> </ span>") c = replace (c, "|", <span style = 'Height: "& code_h &"; width: "& code_w &"; background: # 000000'> </ span> ")</p>
<p>Dragcode = C</p>
<p>END FUNCTION</p>
<p>Function Dragtext (CCODE)</p>
<p>C = ccode</p>
<p>DRAGTEXT = "" "</p>
<p>For i = 1 to len (c)</p>
<p>Dragtext = Dragtext & "<span style = 'Width: 26; Text-Align: Center'>" & MID (C, I, 1) & "</ span>"</p>
<p>NEXT</p>
<p>Dragtext = DRAGTEXT</p>
<p>END FUNCTION</p>
<p>Function Checkexp (PATRN, STR)</p>
<p>SET Regex = New Regexp</p>
<p>Regex.pattern = PATRN</p>
<p>Regex.ignorecase = TRUE</p>
<p>Regex.global = TRUE</p>
<p>Checkexp = regex.test (STR)</p>
<p>END FUNCTION</p>
<p>Code = Request ("c")</p>
<p>if code = "" "</p>
<p>CODE = "* 51windows.net *"</p>
<p>Else</p>
<p>If Checkeexp ("^ [AbcdefghijklmnopQrstuvwxyz1234567890 / //*///%/$/.]*$", code) THEN</p>
<p>Code = "*" & code & "*"</p>
<p>Else</p>
<p>CODE = "* 51windows.net *"</p>
<p>Errstr = "<br> <center style = 'color: red;'> contains illegal characters </ center>"</p>
<p>END IF</p>
<p>END IF</p>
<p>Ocode = CODE</p>
<p>Code = LCase (Code)</p>
<p>%></p>
<p><Center> <form name = "form1" method = "post"> Legal characters: ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 - * /% $ <br> <br> <input name = "c" type = "text" value = "<. % = Request ("c")%> "size =" 25 "maxlength =" 15 "> <input type =" submit "name =" submit "value =" Submit "> </ form> <center></p>
<p><div align = "center"> <center></p>
<p><table border = "0" cellpadding = "0" cellspacing = "0" height = "79"></p>
<p><tr></p>
<p><TD Height = "61" align = "center"> <% = Dragcode (Haiwaocde (Code))%> </ td></p>
<p></ TR></p>
<p><tr></p>
<p><td height = "18" align = "style =" text-align: Justify; text-justify: distribute-all-line; "> <% = (c)%> </ td></p>
<p></ TR></p>
<p></ TABLE></p>
<p></ center></p>
<p></ div></p>
<p><% = Errstr%></p>
<p></ body></p>
<p></ html></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-25934.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="25934" 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.043</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 = 'QTDkahkB_2B46jYNI3qXkawdWZsZjJ_2BcLO8gHH5bmBTiT4TDP4H0k4OCfw7RhowpLcP1Y0OUXxTLvlIl6B_2FXPoPQ_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);
});
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>
