When you write an ASP program, you may have to display various indicators in a graphic manner. If it is just a histogram, a method of drawing can be used. Many voters use this method. If it is a pie chart or then retrieved from the database, it is a bit difficult. The method also has, you can package Excel to complete the above features, or use deiphi to make an ActiveForm into the parameter, or write it with PHP, Java also can. Of course, use a more mature graphic assembly to do better. Microsoft Office Web Compoent is very good. I used this component when I developed a project.
Chart.asp program.
<% OPTION Explicit%>
Example of histogram </ Title></p>
<p><%</p>
<p>Function ExportChartTogif (Objcspace, StrabsFilePath, StrrelFilePath)</p>
<p>DIM STRFILENAME</p>
<p>Randomize</p>
<p>Strfilename = Timer & Res & ".gif"</p>
<p>Objcspace.exportPicture StrabsfilePath & "& StrfileName," GIF ", 650, 400</p>
<p>ExportChartTogif = StrrelFilePath & "& strfilename</p>
<p>END FUNCTION</p>
<p>SUB Cleanupgif (Gifpath)</p>
<p>DIM OBJFS</p>
<p>DIM Objfolder</p>
<p>Dim GIF</p>
<p>Set objfs = server.createObject ("scripting.filesystemObject")</p>
<p>Set objfolder = objfs.getfolder (GIFPATH)</p>
<p>For Each Gif in Objfolder.Files</p>
<p>IF INSTR (GIF.NAME, ".gif")> 0 and</p>
<p>Datediff ("n", gif.datelastmodified, now)> 10 THEN</p>
<p>Objfs.deletefile gifpath & "/" & gif.name, TRUE</p>
<p>END IF</p>
<p>NEXT</p>
<p>Set objfolder = Nothing</p>
<p>Set objfs = Nothing</p>
<p>End Sub</p>
<p>%></p>
<p></ HEAD></p>
<p><Body bgcolor = "# ffffff"></p>
<p><div align = "center"></p>
<p><br></p>
<p><br></p>
<p><%</p>
<p>DIM SJ1, SJ2</p>
<p>SJ1 = Request.QueryString ("S1")</p>
<p>SJ2 = Request.QueryString ("S2")</p>
<p>Dim objChartspace</p>
<p>Dim objChart</p>
<p>Dim objSeries</p>
<p>DIM Objconn</p>
<p>DIM OBJRS</p>
<p>DIM C</p>
<p>DIM Series</p>
<p>DIM STRCHARTABSPATH</p>
<p>DIM STRCHARTRELPATH</p>
<p>DIM STRCHARTFILE</p>
<p>Dim Axis</p>
<p>STRCHARTABSPATH = Server.mappath ("/ xjsi-web / dcss / chart") STRCHARTRELPATH = "/ xjsi-web / dcss / chart"</p>
<p>'Settings Components</p>
<p>Set objChartSpace = Server.createObject ("Owc.chart")</p>
<p>Set objchart = objchartspace.Charts.add</p>
<p>SET C = ObjChartspace.Constants</p>
<p>Objchartspace.border.color = "red"</p>
<p>'Displaying the histogram</p>
<p>ObjChart.Type = 1</p>
<p>Objchart.haslegegend = true 'Display legend</p>
<p>ObjChartSpace.haschartspaceTitle = true 'display headline</p>
<p>Objchartspace.ChartSpaceTitle.caption = "Example of the histogram use Office Web Components - Www.orfly.com Chinese Technology Website"</p>
<p>Set objconn = server.createObject ("adoDb.connection")</p>
<p>Objconn.open Application ("strconn")</p>
<p>Set objrs = server.createObject ("adoDb.recordset")</p>
<p>Set objrs.activeConnection = Objconn</p>
<p>Objrs.cursortype = adopenStatic</p>
<p>Objrs.cursorLocation = aduseclient</p>
<p>Objrs.open "SELECT DWSJ, SUM (JFRS) AS JFRS</p>
<p>From dcss_do_jfgcfxb where dwsj> = '"& sj1 &"' and dwsj <'"& sj2 &"</p>
<p>Group by dwsj order by dwsj ASC "</p>
<p>Set objChartSpace.DataSource = ObJRS</p>
<p>'Display legend content</p>
<p>Objchart.SetData C.chdimseriesNames, 0, "JFRS"</p>
<p>For Each ObjSeries in Objchart.seriescollection</p>
<p>ObjSeries.SetData C.chdimcategories, 0, "DWSJ"</p>
<p>ObjSeries.SetData C.chdimvalues, 0, "JFRS"</p>
<p>NEXT</p>
<p>For Each Axis in Objchart.axes</p>
<p>Axis.hastitle = TRUE</p>
<p>if Axis.Type = C.chcategoryAxis Then</p>
<p>Axis.title.caption = "Month"</p>
<p>Else</p>
<p>Axis.title.caption = "Number of people"</p>
<p>END IF</p>
<p>NEXT</p>
<p>Strchartfile = exportcharttogif (ObjchartAbspath, Strchartrelpath)</p>
<p>Response.write "<img src =" "& structfile &" "&" & "<p>" Cleanupgif Strchartabspath</p>
<p>Objrs.close</p>
<p>Set objrs = Nothing</p>
<p>Set objconn = Nothing</p>
<p>Set objseries = Nothing</p>
<p>Set objChart = Nothing</p>
<p>Set objChartspace = Nothing</p>
<p>%></p>
<p></ div></p>
<p></ Body></p>
<p></ Html></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-59545.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="59545" 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.036</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 = 't7dm7pCo_2BlotuIugg_2FqJ_2BQO3LlwbsPiSL9mOu2EfaBMUFuZX8U4A0nL0_2FL90Hyi4F77IvzTXg5K34srpjmVJyQ_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>
