- Tech
- ASP generates Word documentation
Generate Word Document </ Title> </ head> <script language = "vbscript"> Sub BuildDoc () on Error ResMe next</p>
<p>DIM WAPP SET WAPP = CREATEOBJECT ("Word.Application") if err.number> 0 Then Alert "Cannot be saved as Word file, please properly install word97" else wapp.visible = true wapp.documents.add wapp.seection.typeParaph wApp.Selection.Font.Bold = True wApp.Selection.TypeText "ninety-eight Joy ASP maintenance advice" wApp.Selection.ParagraphFormat.Alignment = 1 rem center wApp.Selection.TypeParagraph wApp.Selection.Font.Bold = false wApp. Selection.TypeText "- birds" wApp.Selection.TypeParagraph wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints (0) wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints (0.72 / 2 * 2) Wapp.seection.typeParaGraph Wapp.Selection.Font.Bold = false wapp.selection.paragraphformat.Alignment = 0 'wapp.seext "carefully implemented China ASP for users to solve the problem, do practicalism, strengthen operation management, optimize the network; Adhere to the network management faucet, to improve the transfer rate, do a good job and maintenance, ensure the safety, efficient and smooth flow of the whole network. Seriously implement six0 struggles in the bureau, focus on benefit projects, image engineering, welfare projects, start their brains, emancipate their minds, and promote maintenance, service, management work, more steps. "Wapp.selection.typetext document.form1.doc1.Value wapp.selection.typeparagraph</p>
<p>rem right home wApp.Selection.TypeParagraph wApp.Selection.Font.Bold = false wApp.Selection.TypeText "May 1999" wApp.Selection.TypeParagraph wApp.Saved = true wapp.ActiveDocument.SaveAs "c: / A.DOC "wapp.close end iFend Sub </ script> <body> <form name =" form1 "></p>
<p><p> </ p> <p> <textarea rows = "8" name = "DOC1" cols = "46"> </ textarea> <p> <p> </ p> <p> Generate Word document < INPUT TYPE = "Button" Value = "Generate" Name = "B1" οnclick = "builddoc ()"> </ p></p>
<p></ form> </ body></p>
<p></ html></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-73303.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="73303" 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.048</b>, SQL:
<b>12</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 = 'BjhYiYq9Ij5yXs5iqtBtgolxE0hGRq_2B3Sipk50_2Fiu_2FtI6uNPtxeQ_2BsMWqbO_2FOLz1dUJ6WlSWT2EwFRgfMk7h9w_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> 
