日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

實(shí)現(xiàn)自動(dòng)分頁(yè)功能其實(shí)很簡(jiǎn)單_風(fēng)訊Cms教程

編輯Tag賺U幣
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!
本文討論區(qū):http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=5814&page=1

我改的已經(jīng)太多了,對(duì)大家不適用,只能將這一小段代碼貼出來(lái),能看懂的就用吧;

注重:請(qǐng)將(Page)中的"("替換為"["")"替換為"]"不包括引號(hào)

Refresh/function.asp文件。找到if IsNull(NewsContent) then NewsContent = ""這一行

if IsNull(NewsContent) then NewsContent = ""
'自動(dòng)分頁(yè)開始
Dim PageCount,Content,PageContent
if NewsContent <> "" and InStr(1,NewsContent,"Application("WordNum") <> 0 then
PageCount=Int(Len(NewsContent)/Application("WordNum"))
Content=left(NewsContent,Application("WordNum"))&"(Page)"
for i=1 to PageCount
if i = PageCount then
PageContent=Mid(NewsContent,Application("WordNum")*i 1,Application("WordNum"))
else
PageContent=Mid(NewsContent,Application("WordNum")*i 1,AApplication("WordNum")) &"(Page)"
end if
Content = Content & PageContent
next
NewsContent = Content
else
NewsContent = NewsContent
end if
'自動(dòng)分頁(yè)結(jié)束這段代碼你們復(fù)制過(guò)去也不能使用。主要是因?yàn)槲覍⒚宽?yè)字符數(shù)WordNum存入了Application對(duì)象。你們可以直接在Inc/Const.asp中加入這一行

Const WordNum = 3000 '自動(dòng)分頁(yè)每頁(yè)字符數(shù)

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板

來(lái)源:模板無(wú)憂//所屬分類:風(fēng)訊Cms教程/更新時(shí)間:2006-06-02
相關(guān)風(fēng)訊Cms教程