" Str = Re.Replace(Str, "\---------------\") Re.Pattern = "( -->| -->)" Str = Re.Replace(Str, "") re.Pattern = "

" Str = re.Replace(Str,"\") re.Pattern = "<[^>]+>|]+>" Str = re.Replace(Str,"") Str = Replace(Str,Chr(32),"") '空格 Str = Replace(Str,Chr(10),"") Str = Replace(Str,Chr(13),"") '回车符 Splits = Str Set Re = Nothing End Function function UBBCodex(strContent) on error resume next strContent = HTMLEncode(strContent) dim objRegExp Set objRegExp=new RegExp objRegExp.IgnoreCase =true objRegExp.Global=True StrContent = Replace(StrContent,"&","&") StrContent = Replace(StrContent,"<","<") StrContent = Replace(StrContent,">",">") StrContent = Replace(StrContent,Chr(34),""") '双引号 StrContent = Replace(StrContent,Chr(32),"") '空格 StrContent = Replace(StrContent,Chr(10),"
") StrContent = Replace(StrContent,Chr(13),"
") '回车符 StrContent = Replace(StrContent,Chr(39),"'") '单引号 StrContent = Replace(StrContent,"&amp;","&") StrContent = Replace(StrContent,"&lt;","<") StrContent = Replace(StrContent,"&gt;",">") StrContent = Replace(StrContent,"&nbsp;"," ") StrContent = Replace(StrContent,"　"," ") '全角空格 StrContent = Replace(StrContent,"（","(") StrContent = Replace(StrContent,"）",")") objRegExp.Pattern="(\\)" strContent= objRegExp.Replace(strContent,"
") set objRegExp=Nothing UBBCodex=strContent end function Function Html2Code(Str) Dim StrContent:StrContent = Trim(Str) If Not IsNull(StrContent) Then StrContent = Replace(StrContent,"&","&") StrContent = Replace(StrContent,"<","<") StrContent = Replace(StrContent,">",">") StrContent = Replace(StrContent,Chr(34),""") '双引号 StrContent = Replace(StrContent,Chr(32),"") '空格 StrContent = Replace(StrContent,Chr(10),"
") StrContent = Replace(StrContent,Chr(13),"
") '回车符 StrContent = Replace(StrContent,Chr(39),"'") '单引号 '处理一些乱七八糟符合,美观一些，嘿嘿 StrContent = Replace(StrContent,"　","") '全角空格 StrContent = Replace(StrContent,"（","(") StrContent = Replace(StrContent,"）",")") End If Html2Code = StrContent End Function pageWordNum=350 StartWord = 1 Length=len(body2) PageAll=(Length+PageWordNum-1)\PageWordNum i=request("i") if isnull(i) or i="" then i=0 end if page2 = mid(body2,StartWord+i*PageWordNum,PageWordNum) ppp=request.queryString("p") Call Head() %>

<% if Str_BookName <>"" then Response.Write Str_BookName &"
" end if 'Response.Write "---------------
" body2 = replace(body2,"-->","") response.write UBBCodex(page2) & "
" if cint(i)=cint(PageAll)-1 then response.write "(完)
来源:互联网(转载文章)
" End if if 0<=i下一页" End if if cint(i)>0 then Response.Write " " & "上一页" End if End if if cint(i)" & "按页搜索" End if %> <% Call Last Call jdn() Sub Head() Response.ContentType = "text/vnd.wap.wml" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" End Sub Sub Last Response.Write "
-------------
" Response.Write "返回列表
" Response.Write "手机宝典
" Response.Write "返回首页
" %> <% Response.Write "

" Response.Write "" End Sub Sub jdn() response.write "" response.write "

" response.write "跳到第:页，跳吧" Response.Write "

" Response.Write "" Response.Write "" Response.End End Sub %>