資源描述:
《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)自..,。