毒毒毒毒毒

1.                 If SettingArray(9) = "1" Then
   
2.                         '自动识别网址
   
3.                         re.Pattern="(^|[^<>='""])((http|https|ftp|rtsp|mms|ed2k):(\/\/|\\\\)(([\w\/\\\+\-~`@:%\/\|])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#\/\|]|(&amp;))+)"
   
4.                         strContent=re.Replace(strContent,"$1<a target=""_blank"" href=""$2"">$2</a>")
   
5. 
   
6.                         '自动识别www等开头的网址
   
7.                         're.Pattern="(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&amp;))+)"
   
8.                         'strContent=re.Replace(strContent,"$1<a target=""_blank"" href=""http://$2"">$2</a>")
   
9.                 End If
   
10.                 If SettingArray(10) = "0" Then
    
11.                         strContent=ProcessUbbCode_Key(strContent)
    
12.                 End If
    
13.                 re.Pattern="(<div style=""page-break-after: always""[^>]*?>([\w\W]*?)<\/div>)"
    
14.                 strContent=re.Replace(strContent, "[page_break]")
    
15.                 re.Pattern="((\[NextPage\])|(\[Page_Break\]))"
    
16.                 strContent=re.Replace(strContent,"[page_break]")
    
17.                 re.Pattern="(<br[^>]*?>)"
    
18.                 strContent=re.Replace(strContent, "<br/>")
    
19.                 strContent = xmldecode(strContent)
    
20. 
    
21.                 maxpagesize = Newasp.ChkNumeric(SettingArray(12))
    
22.                 If IsPagination And maxpagesize > 99 Then
    
23.                         strContent = InsertPageBreak(strContent)
    
24.                 End If
    
25.                 IsPagination = False
    
26.                 If m_intCurrentID>0 And EnabledUbbSession Then
    
27.                         Session("NowContents")=strContent
    
28.                 End If
    
29.                 UBBCode = strContent
    
30.         End Function
    
31. 
    
32.         Private Function checkXHTML()
    
33.                 checkXHTML=xmldecode(Mid(xml.documentElement.xml,6,Len (xml.documentElement.xml)-11))
    
34.         End Function
    
35.         Function checkimg(textstr)
    
36.                 Dim node,srctext,newnode
    
37.                 If xml.loadxml("<div>" & xmlencode(textstr) &"</div>")Then
    
38.                         For Each Node in xml.documentElement.getElementsByTagName("img")
    
39.                                 '-- 是否开启滚轮改变图片大小的功能，如果不需要可以屏蔽
    
40.                                 '-- Node.attributes.setNamedItem(xml.createNode(2,"onmousewheel","")).text="return bbimg(this);"
    
41.                                 Node.attributes.setNamedItem(xml.createNode(2,"border","")).text=0
    
42.                                 If m_intResize = 9 Then
    
43.                                         Node.attributes.removeNamedItem("onload")
    
44.                                         Node.attributes.removeNamedItem("onclick")
    
45.                                         Node.attributes.removeNamedItem("style")
    
46.                                 Else
    
47.                                         Node.attributes.setNamedItem(xml.createNode(2,"onload","")).text=m_strImgzoom
    
48.                                         Node.attributes.setNamedItem(xml.createNode(2,"style","")).text="cursor:pointer;"
    
49.                                         Node.attributes.setNamedItem(xml.createNode(2,"onclick","")).text="javascript:window.open(this.src);"
    
50.                                 End If
    
51.                                 '--删除相关节点
    
52.                                 If m_strTitle <> "" Then
    
53.                                         Node.attributes.setNamedItem(xml.createNode(2,"alt","")).text=m_strTitle
    
54.                                 End If
    
55.                                 Node.attributes.removeNamedItem("title")
    
56.                                 Node.attributes.removeNamedItem("twffan")
    
57.                                 Node.attributes.removeNamedItem("onerror")
    
58.                                 If Not Node.parentNode is Nothing Then
    
59.                                         If Node.parentNode.nodename = "a" Then
    
60.                                                 Node.attributes.removeNamedItem("onclick")
    
61.                                                 Node.attributes.setNamedItem(xml.createNode(2,"target","")).text="_blank"
    
62.                                         End If
    
63.                                 End If
    
64.                         Next
    
65.                         checkimg=xmldecode(Mid(xml.documentElement.xml,6,Len (xml.documentElement.xml)-11))
    
66.                 Else
    
67.                         checkimg=textstr
    
68.                 End If
    
69.         End Function
    
70.         Private Function bbimg(strText)
    
71.                 Dim s
    
72.                 s=strText
    
73.                 re.Pattern="<img(\w*) style\s*=""*([^>|""]*)""([^>]*)>"
    
74.                 s=re.Replace(s,"<img$1$3>")
    
75.                 re.Pattern="<img(.[^>]*)>"
    
76.                 s=re.Replace(s, "<img$1/>")
    
77.                 re.Pattern="(\/\/>)"
    
78.                 s=re.Replace(s, "/>")
    
79.                 re.Pattern="<img(.[^>]*)([/| ])>"
    
80.                 s=re.Replace(s,"<img$1/>")
    
81.                 If m_intResize <> 9 Then
    
82.                         re.Pattern="<img(.[^>]*)/>"
    
83.                         s=re.Replace(s,"<a href=""图片地址这里怎么填 "" rel=""lightbox""><img$1 onload="""&m_strImgzoom&""" onclick=""javascript:window.open(this.src);"" style=""cursor:pointer;""/></a>")
    
84.                 End If
    
85.                 bbimg=s
    
86.         End Function

复制代码

本人很傻

不知道你想表达什么