Perfect pagination output for a long article

xiaoxiao2021-03-06 67

Use the statistics writing number, and then truncate the output, but the content of the paging will be truncated in the inexplicable place, not very friendly.

Very simple, find the following symbols near the place to be truncated:

; '""?!;' ".!

If there is

or
on the back. Mainly to study the format of the article.

IF Request.ServerVariables ("Content_length"> 0 THEN

Content = Request.form ("Textarea1")

PageLength = 1000 'Each page number cLength = len (content) PageCount = int (clength / pageLength) 1' calculation page

Dim PageArrayredim PageArray (PageCount)

SEPERATOR = Array (CHR (13), Chr (10), ".", "!", "?", ";", "," "" ") 'Separator

PageArray (0) = 0POS = 0for J = 0 to Ubound (seperator) POS = INSTR (PageArray (i) 900, Content, SEPERATOR (J)) 'PageArray (i) 900 location is 100 words, 1-999 Adjustable While POS> 0 and POS <(i 1) * PageLength and Pos> i * PageLengthPageArray (i) = pospos = INSTR (POS PageLength, Content, SEPERATOR (j)) Wend

IF PageArray (I)> 0 Then Response.write "0: I |" & PageArray (i) & "
" & J & ": J" & seperator (j) & "
" J = J Ubound (seperator) 1 end ifnext

For i = 1 to PageCount-1PageArray (i) = 0pos = 0for J = 0 to Ubound (seperator) POS = INSTR (PageArray (i-1) 950, Content, SEPERATOR (J)) While Pos> 0 and POS < (i 1) * PageLength and Pos> i * PageLengthPageArray (i) = pospos = INSTR (POS PageLength, Content, SEPERATOR (j)) Wend

IF PageArray (i)> 0 Then Response.write I & ": I | & PageArray (i) &"
"& J &": J "& seperator (j) &"
"J = J Ubound (seperator) 1 end ifnextNext

output = mid (content, 1, PageArray (0)) output = replace (output, chr (13), "
") Response.Write "

paragraph 1
" Response.Write Outputfor I = 1 to PageCount-2output = MID (Content, PageArray (i-1) 1, PageArray (i) --PageArray (i-1)) Output = Replace (Output, Chr (13), "
" ) Response.Write "

of" & i 1 & "segment
" Response.Write outputnext

'The output of the last paragraph didn't write

ELSE%>

</ textarea> <input type = "submit" value = "submit" ID = Submit1 Name = Submit1> </ form> <% end if%></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-90874.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="90874" 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.034</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 = 'LNbkZgFViCD246feTFALszmsXjQ1I3lg_2FjlbpTLqXci8rpVx3KRnv_2FpwhHI6fax459G0Xlph0gR3W0UTUBdTfA_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);
});

$('#nav li[data-active="fid-1"]').addClass('active');
</script>