1. Rendering:
2. Source program
1.jscallasp.asp
<% @Language = "vbscript" CODEPAGE = "936"%>
Do not refresh the page, dynamically read the database </ title> <script language =" javascript "src =" function.js "> </ script> < script language = "javascript"> function getTables (obj) {var server = txtServer.value; var database = txtDatabase.value; var jsSrc = "? getTables.asp obj = selTable & server =" server "& database =" database "& rND =" math.random (); if (server == "|| Database ==") {alert ('Please fill in the full!'); return;} Obj.value = 'reading .. . '; BDISABED = True; ReloadJS (JS, JSSRC);</p>
<p>function getRecords (obj) {var server = txtServer.value; var database = txtDatabase.value; var table = selTable.value; var jsSrc = "? getRecords.asp obj = DisData & server =" server "& database =" database "& Table =" Table "& rND =" math.random (); if (Server == "|| Database ==" || Table == "") {Alert ('Please fill in the full!') Return;} Obj.value = 'reading ...'; obj.disabled = true; reloadjs (js, jssrc);} </ script> </ hEAD></p>
<p><body> <p> does not refresh the new page, dynamically read the database </ p> <script language = "JavaScript" ID = "JS" src = "> </ script> <Table Width =" 421 "Border =" 0 > <Tr> <td width = "146"> SQL Server server: </ td> <td width = "265"> <input name = "txtserver" type = "text" id = "txtserver" value = "localhost "Readonly> </ TD> </ TR> <TD> <TD> Database: </ td> <TD> <input name =" txtDatabase "type =" text "id =" txtDatabase "value =" northwind "Readonly> </ TD> <TD> <TR> <TD> Table: </ TD> <TD> <select name = "seltable" id = "seltable"> </ select> <input name = "cmdrefresh" type = " Button "ID =" cmdrefresh "value =" refresh "OnClick =" JavaScript: GetTables (this)> </ td> </ tr> <tr> <td> Top 100 data: </ td> <td> < Input name = "cmdread" type = "button" id = "cmdread" value = "read" onclick = "JavaScript: getRecords (this)"> </ td> </ tr> <tr> <td colspan = "2 > <Div id = "DISDATA"> </ div> </ td> </ tr> </ table> </ body> </ html> 2.gettables.asp</p>
<p><% @ LANGUAGE = "VBSCRIPT" CODEPAGE = "936"%> <% Dim CnStr, SQL, Rs, ServerName, DatabaseName, ObjServerName = Request.QueryString ( "server") DatabaseName = Request.QueryString ( "database") Obj = Request.QueryString ("obj") set = server.createObject ("adoDb.recordset") cnstr = "driver = {sql server}; server =" & servername "; database =" & databasename "; uid = sa PWD = SA "SQL =" Select Name from sysobjects where type = 'u' and status> 0 "RS.Open SQL, CNSTR, 1, 1IF NOT RS.EOF THEN RESPONSE.WRITE (" Clearselect ("& Obj &" ); "& VBCRLF) while not rs.eof text = rs (" name ") value = rs (" name ") Response.write (" FillSelect ("& Obj &", '"& Text &",' " & Value & ");" & VBCRLF) rs.Movenext Wendend IFRS.Closset RS = Nothing%> cmdrefresh.Value = "Refresh"; cmdrefresh.disabled = false; 3.GetRecords.asp</p>
<p><% @ LANGUAGE = "VBSCRIPT" CODEPAGE = "936"%> <% On Error Resume NextDim CnStr, SQL, Rs, ServerName, DatabaseName, ObjServerName = Request.QueryString ( "server") DatabaseName = Request.QueryString ( "database" Table = Request.QueryString ("Table") Obj = Request.QueryString ("obj") set = server.createObject ("adoDb.recordset") cnstr = "driver = {sql server}; server =" & servername & "; Database =" & DatabaseName & "; uid = sa; pwd = sa" SQL = "SELECT TOP 100 * from [" & Table & "] RS.Open SQL, CNSTR, 1, 1</p>
<p>If NOT RS.EOF THEN RESPONSE.WRITE ("Sthtml (" & Obj & ", ');" & VBCRLF) Outhtml = "<Table Border = 1> <Tr>" for i = 0 to rs.fields.count -1 Outhtml = Outhtml & "<th>" & rs.fields (i) .Name & "</ th>" Next OutHtml = Outhtml & "</ TR>" While Not Rs.eof Outhtml = Outhtml & "<TR > "For i = 0 to rs.fields.count-1 FieldType = rs.fields (i) .type fieldValue = rs.fields (i) .value select case fieldtype case 128 outhtml = outhtml &" <td> [binary] </ TD> "Case 205 Outhtml = Outhtml &" <TD> [Longvarbinary] </ TD> "Case Else Outhtml = Outhtml &" <TD> "& FieldValue &" </ TD> "End Select out Outhtml = OUTHTML & "</ tr>" rs.movenext Wend Outhtml = Outhtml & "</ Table>" Outhtml = Replace (Outhtml, VBCRLF, "<br>") Outhtml = Replace (Outhtml, "" "", "/" " Response.write ("VAR HTML =" "" & Outhtml & "" "& VBCRLF) Response.write (" Sthtml ("& Obj &", HTML; "& VBCRLF) Else Response.write (" Sthtml ("& Obj &", 'no record!'); "& Vbrlf) end ifrs.closset = Nothing%> cmdread.value =" Read "; cmdread.disabled = false; 4.Function.js</p>
<p>Var _onjsload = null; function reloadjs (obj, jsfile) {_onjsload = function () {window.status = jsfile "is loaded.";} obj.src = jsfile;}</p>
<p>function jsLoadReady () {if (_onjsload = null!) {_onjsload (); _onjsload = null;}} function FillSelect (obj, text, value) {var oOption = document.createElement ( "OPTION"); oOption.text = text OOption.Value = value; obj.add (OOption);</p>
<p>Function clearSelect (OBJ) {for (var i = obj.length; i> = 0; i -) {obj.remove (i);}}</p>
<p>Function settml (obj, value) {obj.innerhtml = value;}</p>
<p>3. Participate in the Script Replacement Technology in Web Programming Http://www.blueidea.com/bbs/newsdetail.asp?id=1266892&posts=current</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-21203.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="21203" 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.042</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 = 't2DR_2F6IKCKpKELbwYxlD3jfqlvx4j7bKZSN1gntnzPJUtMj8PanY_2BhyZH5u6mPviJXQxGvZsvxSSpeW03zx4Dg_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>
