asp之自动闭合HTML/ubb标签函数+简单注释

1. 程序代码
2. FunctioncloseUBB(strContent)
3. '*************************************
4. '自动闭合UBB
5. '*************************************
6. DimarrTags,i,OpenPos,ClosePos,re,strMatchs,j,Match
7. Setre=NewRegExp'申明re对象
8. re.IgnoreCase=True'设置是否区分字符大小写
9. re.Global=True'设置全局可用性
10. arrTags=Array("code","quote","list","color","align","font","size","b","i","u","html")'建立数组，存储相关需要检测是否闭合的标签
11. Fori=0ToUBound(arrTags)'循环对数组里的每一个元素进行检测
12. OpenPos=0'初始化当前标签开始标记的个数
13. ClosePos=0'初始化当前标签结束标记的个数
14. re.Pattern="\["+arrTags(i)+"(=[^\[\]]+|)\]"'开始分别正则判断开始与结束标记的个数
15. SetstrMatchs=re.Execute(strContent)
16. ForEachMatchinstrMatchs
17. OpenPosOpenPos=OpenPos+1
18. Next
19. re.Pattern="\[/"+arrTags(i)+"\]"
20. SetstrMatchs=re.Execute(strContent)
21. ForEachMatchinstrMatchs
22. ClosePosClosePos=ClosePos+1
23. Next
24. Forj=1ToOpenPos-ClosePos'当开始与结束标记数量不一致时，闭合当前标签
25. strContentstrContent=strContent+"[/"+arrTags(i)+"]"
26. Next
27. Next
28. closeUBB=strContent
29. Setre=Nothing
30. EndFunction
31. 程序代码程序代码
32. FunctioncloseHTML(strContent)
33. '*************************************
34. '自动闭合HTML
35. '*************************************
36. DimarrTags,i,OpenPos,ClosePos,re,strMatchs,j,Match
37. Setre=NewRegExp
38. re.IgnoreCase=True
39. re.Global=True
40. arrTags=Array("p","div","span","table","ul","font","b","u","i","h1","h2","h3","h4","h5","h6")
41. Fori=0ToUBound(arrTags)
42. OpenPos=0
43. ClosePos=0
44. re.Pattern="\<"+arrTags(i)+"([^\<\>]+|)\>"
45. SetstrMatchs=re.Execute(strContent)
46. ForEachMatchinstrMatchs
47. OpenPosOpenPos=OpenPos+1
48. Next
49. re.Pattern="\</"+arrTags(i)+"\>"
50. SetstrMatchs=re.Execute(strContent)
51. ForEachMatchinstrMatchs
52. ClosePosClosePos=ClosePos+1
53. Next
54. Forj=1ToOpenPos-ClosePos
55. strContentstrContent=strContent+"</"+arrTags(i)+">"
56. Next
57. Next
58. closeHTML=strContent
59. Setre=Nothing
60. EndFunction