asp实现长文章自动分页的函数代码--

《asp实现长文章自动分页的函数代码--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、ASP实现长文章自动分页的函数代码>>以下是引用片段：　　Functionc2u(myText)　　Dimi　　c2u=""　　Fori=1toLen(myText)　　c2u=c2u"#x"Hex(Ascid(myText,i,1)))";"　　Next　　EndFunction以下是引用片段：　　FunctioncutStr(str,strlen)　　'去掉所有HTML标记　　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""　　'接上面函数　　logtextx=cutStr(rs("content"),5000)　　'开始分页　　dimpage,PageLength,CLength,PageCount,p;CLength"<br/>"　　Response.p;PageCount(converttop;""c2u("当前为"Page"页")"<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　　'结束　　以上代码在WIN2000+IIS5、WIN2003+IIS6上执行通过>>>>这篇文章来自..，。