<% '' This program file name: Pages.asp%>
<% '' Contains ADO constant table file Adovbs.inc, can copy% from "/ Program Files / Common Files / System / ADO" directory>
<% '' * Established database connections, here is Oracle8.05 database
Set conn = server.createObject ("adoDb.connection")
Conn.open "provoder = msdaora.1; data source = yoursrcname; user ID = YourUserid; password = Yourpassword;"
SET RS = Server.createObject ("AdoDb.Recordset") '' Create a Recordset object
rs.cursorLocation = aduseclient '' Settings Recording Set Guinder Properties
'' * Set the total number of records in one page, can be adjusted as needed
rs.pagesize = 10
'' * Set the query statement
Strsql = "SELECT ID, Name, Address, Phone" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
Rs.Open Strsql, Conn, AdopenStatic, AdlockReadonly, AdcmdText
%>
Page Sample </ Title></p>
<p><script language = javaScript></p>
<p>// Click "[First]" response:</p>
<p>Function PageFirst ()</p>
<p>{</p>
<p>Document.myform.currentpage.selectedIndex = 0;</p>
<p>Document.myform.currentpage.onchange ();</p>
<p>}</p>
<p>// Click "[Previous]" response:</p>
<p>Function PagePrior ()</p>
<p>{</p>
<p>Document.myform.currentpage.selectedindex -;</p>
<p>Document.myform.currentpage.onchange ();</p>
<p>}</p>
<p>// Click "[Next]" response:</p>
<p>Function PageNext ()</p>
<p>{</p>
<p>Document.myform.currentpage.selectedIndex ;</p>
<p>Document.myform.currentpage.onchange ();</p>
<p>}</p>
<p>// Click "[Last page]" response:</p>
<p>Function Pagelast ()</p>
<p>{</p>
<p>Document.myform.currentPage.SelectedIndex = document.myform.currentpage.length-1;</p>
<p>Document.myform.currentpage.onchange ();</p>
<p>}</p>
<p>// Response when selecting "page":</p>
<p>Function PageCurrent ()</p>
<p>{//Pages.asp is the file name of this program</p>
<p>Document.myform.Action = 'Pages.asp? Page =' (Document.myform.currentPage.SelectedIndex 1) Document.myform.Submit ();</p>
<p>}</p>
<p></ Script></p>
<p></ HEAD></p>
<p><Body bgcolor = "# fffcc" link = "# 008000" VLINK = "# 008000" ALINK = "# ff0000"> "></p>
<p><% IF r.eof then</p>
<p>Response.write ("<font size = 2 color = # 000080> [There is no record in the database!] </ Font>")</p>
<p>Else</p>
<p>'' Specify current page number</p>
<p>IF Request ("currentpage" = "" "" ""</p>
<p>rs.absolutePage = 1</p>
<p>Else</p>
<p>Rs.absolutePage = ClNG (Request ("CurrentPage"))</p>
<p>END IF</p>
<p>'' Creating a form myform, method is get</p>
<p>Response.write ("<form method = get name = myform>")</p>
<p>Response.write ("<p align = center> <font size = 2 color = # 008000>")</p>
<p>'' Setting up the page hyperlink</p>
<p>IF = 1 THEN</p>
<p>Response.write ("[first] [Previous] [Next] [Last page]")</p>
<p>Else</p>
<p>IF = 1 THEN</p>
<p>Response.write ("[first] [Previous]")</p>
<p>Response.write ("[<a href=javaScript:Pagenext () Next Page </A>]")</p>
<p>Response.write ("[<a href=javascript:pagelast ()> The last page </a>]")</p>
<p>Else</p>
<p>If = rs.Absolutepage = rs.pagecount dam</p>
<p>Response.write ("[<a href=javaScript :Pagefirst ()> First page </A>]")</p>
<p>Response.write ("[<a href=javaScript :Pageprior( )> Previous </a>]")</p>
<p>Response.write ("[next page] [Last page]")</p>
<p>Else</p>
<p>Response.write ("[<a href=javaScript :Pagefirst ()> First page </A>]")</p>
<p>Response.write ("[<a href=javaScript :Pageprior( )> Previous </a>]")</p>
<p>Response.write ("[<a href=javaScript:Pagenext () Next Page </A>]")</p>
<p>Response.write ("[<a href=javascript:pagelast ()> The last page </a>]")</p>
<p>END IF</p>
<p>END IF</p>
<p>END IF</p>
<p>'' Create a drop-down list box, used to select the browse page number</p>
<p>Response.write ("Select Size = 1 Name = CurrentPage οnchange = pagecurrent ()>")</p>
<p>For i = 1 to rs.pagecount</p>
<p>IF = I Then</p>
<p>Response.write ("<option SELECTED> & I &" </ option> ") '' current page number</p>
<p>Else</p>
<p>Response.write ("<option>" & i & "</ option>")</p>
<p>END IF</p>
<p>NEXT</p>
<p>Response.write ("</ select> page / total" & rs.pagecount & "page" & rs.recordcount & "record </ font> <p>")</p>
<p>Response.write ("</ form>")</p>
<p>'' Creation form for display</p>
<p>Response.write ("<Table Align = Center Cellspacing = 1 Cellpadding = 1 Border = 1")</p>
<p>Response.write ("Bordercolor = # 99ccff bordercolordark = # b0e0e6 bordercolorlight = # 000066>")</p>
<p>Response.write ("<tr bgcolor = # ccccff bordercolor = # 000066>")</p>
<p>Set columns = rs.fields</p>
<p>'' Display head</p>
<p>For i = 0 to columns.count-1</p>
<p>Response.write ("<TD align = center width = 200 height = 13>")</p>
<p>Response.write ("<font size = 2> <b> & columns (i) .name &" </ b> </ font> </ td> ")</p>
<p>NEXT</p>
<p>Response.write ("</ TR>")</p>
<p>''Display content</p>
<p>For i = 1 to rs.pageSize</p>
<p>Response.write ("<tr burs = # 99ccff bordercolor = # 000066>")</p>
<p>For j = 0 to columns.count-1</p>
<p>Response.write ("<TD> <font size = 2> & columns (j) &" </ font> </ td> ")</p>
<p>NEXT</p>
<p>Response.write ("</ TR>")</p>
<p>rs.movenext</p>
<p>IF r.eof kil1n exit for</p>
<p>NEXT</p>
<p>Response.write ("</ Table>")</p>
<p>END IF</p>
<p>%></p>
<p></ Body></p>
<p></ Html></p>
<p><%</p>
<p>'=== program Win2000Server IIS5.0 Oracle8.05 under test ===' '=== OF: Xiachun Tao E-mail: bluesky_521@yeah.net ===</p>
<p>%></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-29014.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="29014" 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.047</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 = 'EnZmGecDgONRmpxsBXuvFBx4fHPAG4r8C1tQzd5gwETTErWQTglwCk5hGeETvdeTJT_2BHEPoQVO6wOSg0821kQg_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>
