查看完整版本: 超长字符的智能分页-支持HTML

超长字符的智能分页-支持HTML

大概在九九年做游戏网站的时候，就对文章的发布感到麻烦，不过那会儿玩ASP不精。只是将就用着。在遇到长文件 10000 字时网页就是一大片长了。
v].A
W bz`WF A[.v9u ^}
  juw ~1q[9`H v

d5g){ z6db \9S 去年，做一个通用的文章与新闻管理系统时，曾写了一段代码，用来分离。现在贴出来。  
;Co_;pX5UA
:rFI|m w 要说明的是：  6kJ%rX,l8mf.b


aa:C%nZ,n,K%o9q:k 我的文章 录入界面是基于WEB的HEMLEDITOR，就像这里的ABC代码差不多。所以实际提交的是HTML格式的文 本。  
%B)m"C3gls&e$KM6V $?3}!PT'p
对HTML做了相应的处理，不会由HTML代码中切开。  
l|Y+bF-|%X o qa8bY

Q4dG,Y;_0f _UO 这里另一位兄弟曾发表过一个，原理一样，不过我没仔细看过，不知有啥不同。  
#s6c:^ O0ME 5se1^@Gw&A*n
.G"P5q
N0t }#mt+C`
代码如下：
NG#dx4cTFG -------------------------------------- Imw:l m*F
'Request Form Item
YDm J:F&n]2b4V;Q I_Forder = Request.Form ("I_Folder") ~?#n l]WOD
I_Topic = Request.Form ("I_Topic")
)Q!hT/kW+G;p I_Title = htmlencode(Request.Form ("I_Title")) B/W6a#pu/v7m/X
I_Body = Request.Form ("body")
l]U5K:^ I_Source = Request.Form ("I_Source")
e9Yq
r2\F I_Keyword= htmlencode(Request.Form ("I_Keyword"))
.n2a9q0eJD*w4A I_ISHOT = request.form("ishot")
^s
}T{O,N;U~k if i_ishot = "" then i_ishot="N"
k4j"b)G$SH i_ispic = request.form("ispic")b C_ zb8x5Z7l:ra
if i_ispic = "" then i_ispic ="N"
{
PI!kJA i_pic = request.form("InsertImage")
%F0Je+EN0u i_body = replace(i_body,"contentEditable=true","contentEditable=false")  
j6^gK%{:ktt
L$V
p0dQE:i 'Check Input"}vI!UA Q9{
'......  
'p2eBWf
}'mI bN
bxv1O0U.tL'y
'Get Pages ,B = Bodyw9rx+J!yr
B_Len = Len(I_Body)
%X`i7R#D5] B_Pages = 1
*xJ0p(r {kHv 'T = Tempwh8QV5Qsn&p
\0|
T_Loop = true  R'mf0_
ky[p
j;U
)}wl4i4X;T c+f}
Do While T_Loop '这里loop多次，每4000分一页，算出页码并加入库。+U/r/ySWKX iJ9\
If B_Len  4000 then2vM|e|D@
N_Body = Left(I_Body,4000) 'N = New

F$Of/n.P\5BkI 'If "P" in N_Body,Else "" in N_Body
YjD7{'mU8I8h If Instrrev(N_Body,"P")  0 and (Len(N_Body) - Instrrev(N_Body,"P")) 400 then`G3viyQ`
N_Body = Left(N_Body,InstrRev(N_Body,"P")-1)
Fi1r/a@7a(F#BZ*k else if Instrrev(N_Body,"　　")  0 and (Len(N_Body) - Instrrev(N_Body,"　　")) 400 then
,Cq Y3ybp N_Body = Left(N_Body,InstrRev(N_Body,"　　")-1)M
o:q#C @5i+y
Else If Instrrev(N_Body,"。")  0 and (Len(N_Body) - Instrrev(N_Body,"。")) 400 then
c8J/_/?5_1UAJ|`
? N_Body = Left(N_Body,InstrRev(N_Body,"。"))
i zAJ_Q!\ Else If Instrrev(N_Body,"；")  0 and (Len(N_Body) - Instrrev(N_Body,"；")) 400 then
ZY,SB4kN N_Body = Left(N_Body,InstrRev(N_Body,"；"))
bT
l4B[b6z else if Instrrev(N_Body,"，")  0 and (Len(N_Body) - Instrrev(N_Body,"，")) 400 then+d,kbP+AB
N_Body = Left(N_Body,InstrRev(N_Body,"，"))%n.G6GnO
else if Instrrev(N_Body,".")  0 and (Len(N_Body) - Instrrev(N_Body,".")) 400 then
7x"{s`!S8fK N_Body = Left(N_Body,InstrRev(N_Body,"."))6M}!lW4V-uE
end if
:pY/s!a*\|;I L end if
3Y6yc8V?M End If
-{M1`(KD End If
x
\n-w:h'p B0P0U g end if@${]!aG5O{
End if
P?-_cJ5\&Y%q ?:D&W8J7\s
N_Len = Len(N_Body)
8ba0t Q9N@b I_Body = Mid(I_Body,N_Len 1)
+X`/LRP;q g q B_Len = Len(I_Body)%wVpm&z6V%E O

9F6oD[WUY.[ Elsex"?sl/zA/Q5H7j
N_Body = I_Body8Y3j `pOe2R
T_Loop = false
!sB8Stz u6z9r End If  o6u2r7e/Dw

W1r9p&dMD VZ
ov V#DH.lm e 'Add to database [%Gi,E9HiM
Exec_prc_Content_Ins I_Forder,I_Topic,I_Title,I_Source,N_Body,i_ispic,i_pic,i_ishot,I_Keyword,B_Pages  t.nQZv#z1r {%x/_ U

"N+ed*r0}:g g6G '这里一个function，你可以自己处理，反正结果有两个，一个是body，一个是b_pages，就是页码。  
`VsUDJ0K)a4F]e ^C{$b'S4|*m~m

*^3Ux9s
w.M B_Pages = B_Pages   1   ?uN1qKA9}_
qw3F8zkM1_dm
Loop  zF*RiO

@9q6^(];C,qV(rc!v t'L4E-s
QLB4m
%  K(H$Ut K ob
"AD'[_Sk2]
html  .P.M,N9q-C

(Zy Ib5E
[ head
Q*r6`1[!Nf8BE meta name="GENERATOR" content="Microsoft FrontPage 5.0"ZX9^?q
meta name="ProgId" content="FrontPage.Editor.Document"
![.U G_4M.w j meta http-equiv="Content-Type" content="text/html; charset=gb2312"^9G4g3^uB9g$_
title新建网页 1/titleI7r-p$f9U~ dv2X
link rel="stylesheet" type="text/css" href="../CSS/default.css"-G}tl&YRR{
/head  y z WP%yK*GR

5v:Q Gh#f/G body  ^O4id7G7JkXj6mK
*v+xW0l7a|/m
div align="center"

t \b)j
B/h7O*l| center  a7P]n$f

|i~m"sP:a$Hn table border=1 width="300" height="128" bordercolor="#000000" cellspacing="0" cellpadding="0" style="border-collapse: collapse"tr-@&h1?b@|"qdgf
td bgcolor="#DEDBD6" height="31"
+u6Kn)^,B{H,HQ 录入成功/td/trtrtd height="96"}
}4U9h8K/nqPG8~j
p align="center"此文章共分%=B_Pages-1%页-z^ nX/l(o
/td/tr/table  CQ*qt5l&^z,B:R/XE

l d_;c6k)O
ry;I0Bv /center
wY _M xx kQ z /div
V0e0C c.]B U script z*[9pB\i
top.main_top.location.reload();
8x
mC~3P8V DB p /script3QZM Z;W?
2|8{*X#_g
/body