利用統計文章字數，然後達到一定字數就截斷輸出，但是分頁的內容就會在莫名其妙的地方截斷，不是很友好。
很簡單，在要截斷的地方附近找下面的符號:
；』」？。！;'".!
如果後面存在或
就分頁。主要是要研究文章的格式。
<%
if request.servervariables("content_length") > 0 then
content = request.form("textarea1")
pagelength = 1000 '每頁字數
clength = len(content)
pagecount = int(clength/pagelength) + 1 '計算頁數
dim pagearray
redim pagearray(pagecount)
seperator = array(chr(13),chr(10),"。","！","？","；","，","」","』") '分隔符
pagearray(0) = 0
pos = 0
for j=0 to ubound(seperator)
pos = instr(pagearray(i)+900,content,seperator(j)) 'pagearray(i)+900 附近位置是100字，1-999可調
while pos > 0 and pos < (i+1)*pagelength and pos > i*pagelength
pagearray(i) = pos
pos = 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 if
next
for i=1 to pagecount-1
pagearray(i) = 0
pos = 0
for 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*pagelength
pagearray(i) = pos
pos = 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 if
next
next
output = mid(content,1,pagearray(0))
output = replace(output,chr(13),"
")response.write "
第1段"
response.write output
for i=1 to pagecount-2
output = mid(content,pagearray(i-1)+1,pagearray(i)-pagearray(i-1))
output = replace(output,chr(13),"
")response.write "
第"&i+1&"段
"response.write output
next
'最後一段的輸出就沒寫了
else
%>
<%end if%>
最新新聞：
· 傳盛大密簽王菲 春晚實為遊戲電影造勢
(2010-02-06 12:28)
· 商業週刊：賈伯斯ipad志在雲計算
(2010-02-06 12:27)
· 十大最佳ajax教程
(2010-02-06 12:21)
· 微軟下週不修復新ie漏洞
(2010-02-06 12:18)
(2010-02-06 12:10)
做與對 的哲學
做與對 是個簡單的管理哲學，我第一次看到這句話的時候，確被深深的觸動了一下。中文往往講究言簡意駭，做與對 就深刻的表現了中文的特徵。如果從語義上去分析的話，這句話包含了三個基本的內容。第乙個是 做 描述的是一種行為或者動作 第二個是 做 的物件，隱含在這三個字裡面 第三個是 對 就是對 做 進行檢查...
asp 關於對多個checkbox 的獲取
一 request.form checkbox count 的意思是獲得提取的checkbox的專案個數,專案是從一開始的.request.form 獲取的是乙個以 分隔的字串,若要使用陣列,則要轉換如 str request.form checkbox myarray split str,leng...
對做車前期的感悟
前期工作很重要，只是儲備，必須得把一些常用的東西先學了，因為調的時候又會遇到問題的，無線，sd卡，液晶，上位機，這些程式先寫好，到時候移植就行，可以節約時間，後期把精力放在重點。做車是3個人一組的，我感覺前期三個人不能分工，要一起學習，要養成自己解決問題的習慣，這樣就需要什麼都懂一點，做車能學到很多...