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

　　Function cutStr(str,strlen)
　　'去掉所有Html标记
　　Dim re
　　Set re=new RegEXP
　　re.IgnoreCase =True
　　re.Global=True
　　re.Pattern="<(.[^>]*)>"
　　str=re.Replace(str,"")
　　set re=Nothing
　　Dim l,t,c,i
　　l=Len(str)
　　t=0
　　For i=1 to l
　　c=Abs(Asc(Mid(str,i,1)))
　　If c>255 Then
　　t=t+2
　　Else
　　t=t+1
　　End If
　　If t>=strlen Then
　　cutStr=left(str,i)&"..."
　　Exit For
　　Else
　　cutStr=str
　　End If
　　Next
　　cutStr=Replace(cutStr,chr(10),"")
　　cutStr=Replace(cutStr,chr(13),"")
　　End Function

　　Function converttowide(str)
　　Dim strlen
　　Dim position
　　Dim convertstr
　　if isnull(str) then
　　converttowide=str
　　else
　　position=1
　　strlen=Len(str)
　　For i=1 To strlen
　　convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1)))+";"
　　position=position+1
　　Next
　　converttowide=convertstr
　　end if
　　End Function

　　dim topicx,usernamex,addtimex,logtextx,ispassWord
　　'获取ID号
　　articleid=request("articleid")
　　'写执行语句
　　strSQL = "select * from article where articleid="&articleid&""
　　'接上面函数
　　logtextx=cutStr(rs("content"),5000)
　　'开始分页
　　dim page,PageLength,CLength,PageCount,wen,a
　　if Request("Page")<>"" then Page = CLng(Request("Page"))
　　PageLength = 80
　　CLength = Len(logtextx)
　　PageCount = Int(Clength/PageLength) + 1
　　if Page < 1 or IsNull(Page) Then Page = 1
　　if Page > PageCount Then Page = PageCount
　　if page=1 then
　　a=1
　　elseif page>1 then
　　a=(Page-1)*PageLength
　　end if
　　wen=Mid(logtextx,a,PageLength)
　　'判断
　　if page="" or page=1 then
　　'开始显示内容
　　Response.write (c2u("内容:"))'www.kuaiwww.com
　　end if
　　Response.write (converttowide(wen))
Response.write "<br/>"
　　'Response.write (converttowide("本文字数：")) & CLength