九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

如何將長長的一篇文章分成幾頁顯示？最簡單也最完美的辦法是人為的告訴程序哪邊要分頁，并做上相應的分頁標識，但是這樣無疑加大了錄入員的工作量；另一種辦法是程序自動進行分頁，比如按字數(shù)每頁顯示多少個字，但這邊要注意的問題是不能截斷HTML、UBB等代碼，大家可根據(jù)需要選擇一種方式。還有一點要說明的是讀取方式，很多人都是顯示新一頁時從數(shù)據(jù)庫重新讀取內容，而我的思路是一次讀取將不同頁內容保存于一個數(shù)組中再利用腳本動態(tài)更新，有人又要說了，這樣不便于搜索引擎收錄，大家還是根據(jù)需要選擇，呵呵。一、人為做分頁標識為了方便使用，我寫成了一個函數(shù)mySplit，使用時拷貝一下調用就可以了1.多次讀取[Copy to clipboard]CODE:‘函數(shù)名稱：mySplit‘編寫：Dnawo(http://www.mzwu.com/)‘功能說明：按分頁標識mark分幾頁顯示內容content，有分頁列表‘參數(shù)說明：‘content：內容‘mark：分頁標識‘page：當前頁數(shù)‘調用格式：Call mySplit("aaa{!page}bbb{!page}ccc","{!page}",request("page"))Sub mySplit(content,mark,page)If Instr(content,mark)=0 thenResponse.write contentExit SubEnd ifDim strContent,iIf isempty(page)="" then page=0page = Cint(page)strContent = Split(content,mark)Response.write strContent(page) & vbcrlfResponse.write "<div id=""mzwucom_list"" style=""text-align:center"">"If page>0 then Response.write "<input type=""button"" value=""上一頁"" onclick=""javascript:document.location.href=‘?page=" & page-1 & "‘;""> "For i=0 to Ubound(strContent)Response.write "<a href=""?page=" & i & """>" & i+1 & "</a> "NextIf page<Ubound(strContent) then Response.write "<input type=""button"" value=""下一頁"" onclick=""javascript:document.location.href=‘?page=" & page+1 & "‘;"">"Response.write "</div>"End Sub2.一次讀取[Copy to clipboard]CODE:‘函數(shù)名稱：mySplit‘編寫：Dnawo(http://www.mzwu.com/)‘功能說明：按分頁標識mark分幾頁顯示內容content，有分頁列表‘參數(shù)說明：‘content：內容‘mark：分頁標識‘調用格式：Response.write mySplit("aaa{!page}bbb{!page}ccc","{!page}")Function mySplit(content,mark)mySplit = mySplit + "<div id=""mzwucom_content""></div>" & vbcrlfmySplit = mySplit + "<div id=""mzwucom_list"" style=""text-align:center""></div>" & vbcrlfmySplit = mySplit + "<script language=""javascript"">" & vbcrlfmySplit = mySplit + "function showpage(n){" & vbcrlfmySplit = mySplit + "    i = n;" & vbcrlfmySplit = mySplit + "    var list = """";//存放列表" & vbcrlfmySplit = mySplit + "    if(n>0){list = ""<input type=‘button‘ value=‘上一頁‘ onclick=‘javascript:showpage("" + (i-1) + "");‘> "";}" & vbcrlfmySplit = mySplit + "    document.getElementById(""mzwucom_content"").innerHTML = content[n];" & vbcrlfmySplit = mySplit + "    for(var j=0;j<content.length;j++){" & vbcrlfmySplit = mySplit + "        list += ""<a href=‘javascript:showpage("" + j + "");‘>"" + (j+1) + ""</a> "";" & vbcrlfmySplit = mySplit + "    }" & vbcrlfmySplit = mySplit + "    if(i<count){list += ""<input type=‘button‘ value=‘下一頁‘ onclick=‘javascript:showpage("" + (i+1) + "");‘>"";}" & vbcrlfmySplit = mySplit + "    if(count != 0){document.getElementById(""mzwucom_list"").innerHTML = list;}" & vbcrlfmySplit = mySplit + "}" & vbcrlfmySplit = mySplit + "var i = 0;//存放當前頁數(shù)" & vbcrlfmySplit = mySplit + "var count;//存放數(shù)組長度" & vbcrlfmySplit = mySplit + "var content = new Array(""" & Replace(content,mark,""",""") & """);//用數(shù)組存放各頁內容" & vbcrlfmySplit = mySplit + "count = content.length-1;" & vbcrlfmySplit = mySplit + "showpage(0);//初始化" & vbcrlfmySplit = mySplit + "</script>" & vbcrlfEnd Function二、程序自動分頁程序自動進行分頁，網上查了相關資料，用得最多的方法不外乎三種：第一種按每頁顯示多少字進行分頁，不考慮是否會截斷HTML、UBB標記，這種方法最不可??；第二種方法按每頁顯示多少行進行分頁，但實際上我們并不會給每行都加上<br>，所以這種方法也不可??；第三種方法先設 pagesize 為基本頁長，先找到這個基本頁長，從這里出發(fā)，再去找 “<p>” 或 “<br>” 這樣的分段符號，找到后，記下它的位置和從起始位置到它有多少個字符，下一頁，從這個分段符出發(fā)，再找基本頁，再尋分段符，記錄位置和長度。。就這樣循環(huán)，到文章結束，此法最為可取，下邊函數(shù)基本參數(shù)了此法，但做了一些改進，是從基本頁長位置向前向后找<br>和<p>，采取就近原則，用最近的位置做為分頁點，函數(shù)代碼如下：[Copy to clipboard]CODE:‘函數(shù)名稱：MarkContent‘編寫：Dnawo(http://www.mzwu.com/)‘功能說明：按每頁顯示iCount字進行分頁，在分頁處插入分頁標識符，再配合mySplit函數(shù)進行分頁。實際每頁字數(shù)約等于iCount‘參數(shù)說明：‘strContent：要進行分頁的內容‘iStart：開始位置‘iCount：每頁總字符數(shù)Function MarkContent(strContent,iStart,iCount)MarkContent = strContentIf Len(Right(MarkContent,Len(MarkContent)-iStart+1))<=iCount thenExit FunctionElse‘聲明一些常量變量Const strMark = "{!page}"Dim strTemp,arr(4),iLen,iStartb,strLeft,strRight,iiLen = Len(strMark)‘將原字符串拆分strTemp = Left(MarkContent,iStart-1)MarkContent = Right(MarkContent,Len(MarkContent)-iStart+1)‘判斷iCount位置是不是處于<p>或<br>上并進行相應處理If mid(MarkContent,iCount,1)=">" then iCount = iCount + 1If mid(MarkContent,iCount,2)="p>" then iCount = iCount + 2If mid(MarkContent,iCount,2)="r>" then iCount = iCount + 2If mid(MarkContent,iCount,3)="br>" then iCount = iCount + 3If mid(MarkContent,iCount,3)="<p>" then iCount = iCount + 3If mid(MarkContent,iCount,4)="<br>" then iCount = iCount + 4‘從iCount位置往前往后找<p>和<br>，采取就近原則，在離iCount最近的位置進行分頁arr(0) = InstrRev(MarkContent,"<br>",iCount,1)arr(1) = InstrRev(MarkContent,"<p>",iCount,1)arr(2) = Instr(iCount,MarkContent,"<br>",1)arr(3) = Instr(iCount,MarkContent,"<p>",1)arr(4) = 0If arr(0)<>0 and arr(4)=0 thenarr(4) = abs(arr(0)-iStart)iStartb = arr(0) + 4Elseif arr(0)<>0 and abs(arr(0)-iStart) < arr(4) thenarr(4) = abs(arr(0)-iStart)iStartb = arr(0) + 4End ifIf arr(1)<>0 and arr(4)=0 thenarr(4) = abs(arr(1)-iStart)iStartb = arr(1) + 3Elseif arr(1)<>0 and abs(arr(1)-iStart) < arr(4) thenarr(4) = abs(arr(1)-iStart)iStartb = arr(1) + 3End ifIf arr(2)<>0 and arr(4)=0 thenarr(4) = abs(arr(2)-iStart)iStartb = arr(2) + 4Elseif arr(2)<>0 and abs(arr(2)-iStart) < arr(4) thenarr(4) = abs(arr(2)-iStart)iStartb = arr(2) + 4End ifIf arr(3)<>0 and arr(4)=0 thenarr(4) = abs(arr(3)-iStart)iStartb = arr(3) + 3Elseif arr(3)<>0 and abs(arr(3)-iStart) < arr(4) thenarr(4) = abs(arr(3)-iStart)iStartb = arr(3) + 3End ifIf arr(4)=0 thenMarkContent = strTemp & MarkContentElsestrLeft = Left(MarkContent,iStartb-1)strRight = Right(MarkContent,Len(MarkContent)-iStartb+1)MarkContent = strTemp & strLeft & strMark & strRightiStartb = iStartb + iLen + iStart - 1‘遞歸MarkContent = MarkContent(MarkContent,iStartb,iCount)End ifEnd ifEnd Function