asp實(shí)現(xiàn)長(zhǎng)文章自動(dòng)分頁(yè)的函數(shù)代碼--

《asp實(shí)現(xiàn)長(zhǎng)文章自動(dòng)分頁(yè)的函數(shù)代碼--》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫(kù)。

1、ASP實(shí)現(xiàn)長(zhǎng)文章自動(dòng)分頁(yè)的函數(shù)代碼>>以下是引用片段：　　Functionc2u(myText)　　Dimi　　c2u=""　　Fori=1toLen(myText)　　c2u=c2u"#x"Hex(Ascid(myText,i,1)))";"　　Next　　EndFunction以下是引用片段：　　FunctioncutStr(str,strlen)　　'去掉所有HTML標(biāo)記　　Dimre　　Setre=nel,t,c,i　　l=Len(str)　　t=0　　Fori=1tol　　c=Abs(Asc(Mid(str,i,1)))　　Ifc>255Then　　t=t+2　　Else　　t=

2、t+1　　EndIf　　Ift>=strlenThen　　cutStr=left(str,i)"..."　　ExitFor　　Else　　cutStr=str　　EndIf　　Next　　cutStr=Replace(cutStr,chr(10),"")　　cutStr=Replace(cutStr,chr(13),"")　　EndFunction以下是引用片段：　　Functionconverttostrlen　　Dimposition　　Dimconvertstr　　ifisnull(str)then　　converttop;#x"+Hex(Ascid(str,position,1))

3、)+";"　　position=position+1　　Next　　converttotopicx,usernamex,addtimex,logtextx,ispassarticlep;articleid""　　'接上面函數(shù)　　logtextx=cutStr(rs("content"),5000)　　'開(kāi)始分頁(yè)　　dimpage,PageLength,CLength,PageCount,p;CLength"<br/>"　　Response.p;PageCount(converttop;""c2u("當(dāng)前為"Page"頁(yè)")"<br/>"　　ifPageCount>1andpag

4、e<>1then'.j　　Forj=Page+1ToPage+10　　ifj<=PageCount-1then　　Response.p;j""　　endif　　next　　ifPageCount>1andPage<>PageCountthen　　Response.p;articleid"Page="PageCount""">"PageCount"</a><br/>"　　Endif　　'結(jié)束　　以上代碼在WIN2000+IIS5、WIN2003+IIS6上執(zhí)行通過(guò)>>>>這篇文章來(lái)自..，。