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

　　Function c2u(myText) 　　Dim i 　　c2u = "" 　　For i = 1 to Len(myText) 　　c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" 　　Next 　　End Function