欢迎来到天天文库
浏览记录
ID:24208261
大小:54.50 KB
页数:4页
时间:2018-11-13
《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上执行通过>>>>这篇文章来自..,。
此文档下载收益归作者所有