用了很多正则.呵呵,正在学习中~~ 留着当资料用~~ 嘿嘿,谢谢MM了~~`
<script language="javascript">
function copyCode(type){
var obj=document.Hidden.elementCode;
SetVals();
if (obj) {
obj.select();
js=obj.createTextRange();
js.execCommand("Copy");
alert ("转换后的秀字已经复制到剪切板中,按下“确定”键后该窗口将自动关闭。\n\n窗口关闭后,请将鼠标移动到你刚才输入文字的地方并删除原有文字,然\n后再单击鼠标右键,选择右键菜单中的“粘贴”一项。(如果“粘贴”菜\n单不可用,你也可以同时按住 CTRL+V 键粘贴)");
if(type==0)
window.close();
}
}
function addPortrait(emMode) {
var imgurl;
//if (! validateMode()) return;
if (emMode=="small")
imgurl = showModalDialog("../inc/dvbeditor/portraitSelect.html","", "font-family:Verdana; font-size:12; status:no; unadorned:yes; scroll:no; resizable:yes;dialogWidth:36em; dialogHeight:26em");
if (emMode=="big")
imgurl = showModalDialog("../inc/dvbeditor/portraitbig.html","", "font-family:Verdana; font-size:12; status:no; unadorned:yes; scroll:no; resizable:yes;dialogWidth:42em; dialogHeight:30em");
if (imgurl != null) format("InsertImage", imgurl);
else IframeID.focus();
}
function format(what,opt)
{
if (opt=="removeFormat")
{
what=opt;
opt=null;
}
if (opt==null) Composition.document.execCommand(what);
else IframeID.document.execCommand(what,"",opt);
//pureText = false;
IframeID.focus();
}
</script>
<script language="vbscript">
Dim bInit
Dim mTimer
bInit=False
mTimer=setInterval("initeditorCode",500,"vbscript")
function initeditorCode()
on error resume next
if not bInit then
Set IframeID=document.frames("Dvbbs_Composition")
if IsObject(IframeID.document.body) then
IframeID.document.body.innerHTML=document.all.initCode.innerHTML
if err.number=0 then
bInit=True
Call clearInterval(mTimer)
end if
end if
end if
end function
function SetVals()
on error resume next
Dim CodeType
Dim strCode
Dim IframeID
Set IframeID=document.frames("Dvbbs_Composition")
if not IsObject(IframeID) then
msgbox "test"
exit function
end if
CodeType=document.editor.tagType.value
bbsType=document.hidden.bbsType.value
if CodeType=1 then
document.Hidden.elementCode.value =IframeID.document.body.innerHTML
end if
if CodeType=2 then
document.Hidden.elementCode.value =addHtmlAdv(preProcess(IframeID.document.body.innerHTML))
end if
if CodeType=3 then
document.Hidden.elementCode.value =ubbCode(preProcess(IframeID.document.body.innerHTML))
end if
if document.Hidden.elementCode.value<>"" then
strCode=document.Hidden.elementCode.value
if CodeType=2 then
if bbsType="HTML" then
strCode=Replace(strCode," "," ",1,-1,1)
strCode=Replace(strCode,"<BR>",chr(13),1,-1,1)
adv=chr(13)&chr(13)&"-----------------------------------------------------------"&chr(13)
adv=adv&"以上文字、图片由易我秀输出,你也想这么酷吗?"&chr(13)
adv=adv&"<a href=http://www.eoshow.com/download/install1.html?f=bbshtml target=_blank>http://www.eoshow.com/download/install1.html</a>"
else
'adv=chr(13)&chr(13)&"-----------------------------------------------------------"&chr(13)
'adv=adv&"以上文字、图片由易我秀输出,你也想这么酷吗?"&chr(13)
'adv=adv&"<a href=http://www.eoshow.com/download/install1.html?fb=email target=_blank>http://www.eoshow.com/download/install1.html</a>"
end if
end if
if CodeType=3 then
adv=chr(13)&chr(13)&"-----------------------------------------------------------"&chr(13)
adv=adv&"以上文字、图由易我秀输出,你也想这么酷吗?"&chr(13)
adv=adv&"http://www.eoshow.com/download/install1.html"
end if
document.Hidden.elementCode.value=strCode&adv
'msgbox document.Hidden.elementCode.value
end if
end function
function addHtmlAdv(str)
Dim objRegExp
Dim strFrom
Dim bbsType
bbsType=document.hidden.bbsType.value
if bbsType="HTML" then
strFrom="bbshtml"
else
strFrom="email"
end if
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern ="<IMG SRC=\""(\S+?)\"">"
str=objRegExp.Replace(str,"<a href=""http://www.eoshow.com/download/install1.html?fb="&strFrom&""" target=""_blank""><img src=""$1"" border=""0""></a>")
set objRegExp=nothing
addHtmlAdv=str
end function
function ubbCode(str)
Dim objRegExp
Dim Match,Matchs
Dim strReplace
strReplace=str
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
strReplace=Replace(strReplace," "," ")
strReplace=Replace(strReplace,"<br>",chr(13))
objRegExp.Pattern ="<FONT (\S+?)=(\S+?)>(\S+?)</FONT>"
strReplace=objRegExp.Replace(strReplace,"[$1=$2]$3[/$1]")
objRegExp.Pattern ="<FONT (\S+?)=(\S+?) (\S+?)=(\S+?)>(.+?)</FONT>"
strReplace=objRegExp.Replace(strReplace,"[$1=$2][$3=$4]$5[/$3][/$1]")
objRegExp.Pattern ="<FONT (\S+?)=(\S+?) (\S+?)=(\S+?) (\S+?)=(\S+?)>(.+?)</FONT>"
strReplace=objRegExp.Replace(strReplace,"[$1=$2][$3=$4][$5=$6]$7[/$5][/$3][/$1]")
'粗体
objRegExp.Pattern ="<STRONG>(.+?)</STRONG>"
strReplace=objRegExp.Replace(strReplace,"[B]$1[/B]")
'斜体
objRegExp.Pattern ="<EM>(.+?)</EM>"
strReplace=objRegExp.Replace(strReplace,"[I]$1[/I]")
'下划线
objRegExp.Pattern ="<U>(.+?)</U>"
strReplace=objRegExp.Replace(strReplace,"[U]$1[/U]")
'链接替换
objRegExp.Pattern ="<a href=\""(\S+?)\"">(\S+?)</a>"
strReplace=objRegExp.Replace(strReplace,"[URL $1]$2[/URL]")
'图片替换
objRegExp.Pattern ="<IMG SRC=\""(\S+?)\"">"
strReplace=objRegExp.Replace(strReplace,"[IMG]$1[/IMG]")
'位置替换
objRegExp.Pattern ="<P align=(\S+?)>(\S+?)</P>"
strReplace=objRegExp.Replace(strReplace,"[$1]$2[/$1]")
objRegExp.Pattern ="<P>(.+?)</P>"
strReplace=objRegExp.Replace(strReplace,"$1")
'objRegExp.Pattern =" "
'str=objRegExp.Replace(str," ")
objRegExp.Pattern ="<br>"
strReplace=objRegExp.Replace(strReplace,chr(10))
Set objRegExp=Nothing
ubbCode=strReplace
end function
function preProcess(htmlCode)
Dim i,j
Dim strContent,strTmp,strReplace
Dim strSave
Dim Match
Dim iAsc
'转换库
Dim strURLArray_EN(28,1)
Dim strURLArray_CN(210,1)
Dim strURLArray_EM1(23,1)
Dim strURLArray_EM2(95,1)
Dim strURL(6)
strURL(0)="http://www.eoshow.com/images/en/"
strURL(1)="http://www.eoshow.com/images/en3/"
'strURL(2)="http://www.eoshow.com/images/en3/"
strURL(3)="http://www.eoshow.com/images/cn/"
strURL(4)="http://www.eoshow.com/images/numberd/"
strURL(5)="http://www.eoshow.com/images/em1/"
strURL(6)="http://www.eoshow.com/images/em2/"
'-----------------------------------------------------------------------------------
'英文库
'-----------------------------------------------------------------------------------
strURLArray_EN(0,0)="a"
strURLArray_EN(0,1)="a.gif"
strURLArray_EN(1,0)="b"
strURLArray_EN(1,1)="b.gif"
strURLArray_EN(2,0)="c"
strURLArray_EN(2,1)="c.gif"
strURLArray_EN(3,0)="d"
strURLArray_EN(3,1)="d.gif"
strURLArray_EN(4,0)="e"
strURLArray_EN(4,1)="e.gif"
strURLArray_EN(5,0)="f"
strURLArray_EN(5,1)="f.gif"
strURLArray_EN(6,0)="g"
strURLArray_EN(6,1)="g.gif"
strURLArray_EN(7,0)="h"
strURLArray_EN(7,1)="h.gif"
strURLArray_EN(8,0)="i"
strURLArray_EN(8,1)="i.gif"
strURLArray_EN(9,0)="j"
strURLArray_EN(9,1)="j.gif"
strURLArray_EN(10,0)="k"
strURLArray_EN(10,1)="k.gif"
strURLArray_EN(11,0)="l"
strURLArray_EN(11,1)="l.gif"
strURLArray_EN(12,0)="m"
strURLArray_EN(12,1)="m.gif"
strURLArray_EN(13,0)="n"
strURLArray_EN(13,1)="n.gif"
strURLArray_EN(14,0)="o"
strURLArray_EN(14,1)="o.gif"
strURLArray_EN(15,0)="p"
strURLArray_EN(15,1)="p.gif"
strURLArray_EN(16,0)="q"
strURLArray_EN(16,1)="q.gif"
strURLArray_EN(17,0)="r"
strURLArray_EN(17,1)="r.gif"
strURLArray_EN(18,0)="s"
strURLArray_EN(18,1)="s.gif"
strURLArray_EN(19,0)="t"
strURLArray_EN(19,1)="t.gif"
strURLArray_EN(20,0)="u"
strURLArray_EN(20,1)="u.gif"
strURLArray_EN(21,0)="v"
strURLArray_EN(21,1)="v.gif"
strURLArray_EN(22,0)="w"
strURLArray_EN(22,1)="w.gif"
strURLArray_EN(23,0)="x"
strURLArray_EN(23,1)="x.gif"
strURLArray_EN(24,0)="y"
strURLArray_EN(24,1)="y.gif"
strURLArray_EN(25,0)="z"
strURLArray_EN(25,1)="z.gif"
strURLArray_EN(26,0)="!"
strURLArray_EN(26,1)="!.gif"
strURLArray_EN(27,0)="?"
strURLArray_EN(27,1)="question.gif"
'-----------------------------------------------------------------------------------
'中文库
'-----------------------------------------------------------------------------------
strURLArray_CN(0,0)="们"
strURLArray_CN(0,1)="men.gif"
strURLArray_CN(1,0)="呼"
strURLArray_CN(1,1)="hu.gif"
strURLArray_CN(2,0)="大"
strURLArray_CN(2,1)="da.gif"
strURLArray_CN(3,0)="我"
strURLArray_CN(3,1)="wo.gif"
strURLArray_CN(4,0)="的"
strURLArray_CN(4,1)="de.gif"
strURLArray_CN(5,0)="车"
strURLArray_CN(5,1)="che.gif"
strURLArray_CN(6,0)="倒"
strURLArray_CN(6,1)="dao.gif"
strURLArray_CN(7,0)="咯"
strURLArray_CN(7,1)="ge.gif"
strURLArray_CN(8,0)="奥"
strURLArray_CN(8,1)="ao.gif"
strURLArray_CN(9,0)="扁"
strURLArray_CN(9,1)="bian.gif"
strURLArray_CN(10,0)="眉"
strURLArray_CN(10,1)="mei1.gif"
strURLArray_CN(11,0)="金"
strURLArray_CN(11,1)="jin.gif"
strURLArray_CN(12,0)="偶"
strURLArray_CN(12,1)="ou.gif"
strURLArray_CN(13,0)="哈"
strURLArray_CN(13,1)="ha.gif"
strURLArray_CN(14,0)="她"
strURLArray_CN(14,1)="ta1.gif"
strURLArray_CN(15,0)="拉"
strURLArray_CN(15,1)="la.gif"
strURLArray_CN(16,0)="真"
strURLArray_CN(16,1)="zhen.gif"
strURLArray_CN(17,0)="阿"
strURLArray_CN(17,1)="a1.gif"
strURLArray_CN(18,0)="上"
strURLArray_CN(18,1)="shang.gif"
strURLArray_CN(19,0)="傻"
strURLArray_CN(19,1)="sha.gif"
strURLArray_CN(20,0)="哎"
strURLArray_CN(20,1)="ai1.gif"
strURLArray_CN(21,0)="好"
strURLArray_CN(21,1)="hao.gif"
strURLArray_CN(22,0)="猪"
strURLArray_CN(22,1)="zhu.gif"
strURLArray_CN(23,0)="是"
strURLArray_CN(23,1)="shi.gif"
strURLArray_CN(24,0)="笑"
strURLArray_CN(24,1)="xiao2.gif"
strURLArray_CN(25,0)="雖"
strURLArray_CN(25,1)="sui.gif"
strURLArray_CN(26,0)="下"
strURLArray_CN(26,1)="xia.gif"
strURLArray_CN(27,0)="利"
strURLArray_CN(27,1)="li.gif"
strURLArray_CN(28,0)="哦"
strURLArray_CN(28,1)="o.gif"
strURLArray_CN(29,0)="妳"
strURLArray_CN(29,1)="ni1.gif"
strURLArray_CN(30,0)="木"
strURLArray_CN(30,1)="mu.gif"
strURLArray_CN(31,0)="贱"
strURLArray_CN(31,1)="jian.gif"
strURLArray_CN(32,0)="笨"
strURLArray_CN(32,1)="ben.gif"
strURLArray_CN(33,0)="靠"
strURLArray_CN(33,1)="kao.gif"
strURLArray_CN(34,0)="不"
strURLArray_CN(34,1)="bu.gif"
strURLArray_CN(35,0)="北"
strURLArray_CN(35,1)="bei.gif"
strURLArray_CN(36,0)="唉"
strURLArray_CN(36,1)="ai2.gif"
strURLArray_CN(37,0)="小"
strURLArray_CN(37,1)="xiao1.gif"
strURLArray_CN(38,0)="朹"
strURLArray_CN(38,1)="chou.gif"
strURLArray_CN(39,0)="累"
strURLArray_CN(39,1)="lei.gif"
strURLArray_CN(40,0)="髮"
strURLArray_CN(40,1)="fa.gif"
strURLArray_CN(41,0)="中"
strURLArray_CN(41,1)="zhong.gif"
strURLArray_CN(42,0)="南"
strURLArray_CN(42,1)="nan.gif"
strURLArray_CN(43,0)="啊"
strURLArray_CN(43,1)="a2.gif"
strURLArray_CN(44,0)="左"
strURLArray_CN(44,1)="zuo.gif"
strURLArray_CN(45,0)="机"
strURLArray_CN(45,1)="ji.gif"
strURLArray_CN(46,0)="美"
strURLArray_CN(46,1)="mei2.gif"
strURLArray_CN(47,0)="么"
strURLArray_CN(47,1)="me.gif"
strURLArray_CN(48,0)="反"
strURLArray_CN(48,1)="fan.gif"
strURLArray_CN(49,0)="吗"
strURLArray_CN(49,1)="ma.gif"
strURLArray_CN(50,0)="帅"
strURLArray_CN(50,1)="shuai.gif"
strURLArray_CN(51,0)="正"
strURLArray_CN(51,1)="zheng.gif"
strURLArray_CN(52,0)="肥"
strURLArray_CN(52,1)="fei.gif"
strURLArray_CN(53,0)="了"
strURLArray_CN(53,1)="liao.gif"
strURLArray_CN(54,0)="右"
strURLArray_CN(54,1)="you.gif"
strURLArray_CN(55,0)="嗯"
strURLArray_CN(55,1)="en.gif"
strURLArray_CN(56,0)="弓"
strURLArray_CN(56,1)="gong.gif"
strURLArray_CN(57,0)="水"
strURLArray_CN(57,1)="shui.gif"
strURLArray_CN(58,0)="胖"
strURLArray_CN(58,1)="pang.gif"
strURLArray_CN(59,0)="什"
strURLArray_CN(59,1)="shen.gif"
strURLArray_CN(60,0)="吧"
strURLArray_CN(60,1)="ba.gif"
strURLArray_CN(61,0)="土"
strURLArray_CN(61,1)="tu.gif"
strURLArray_CN(62,0)="很"
strURLArray_CN(62,1)="hen.gif"
strURLArray_CN(63,0)="火"
strURLArray_CN(63,1)="huo.gif"
strURLArray_CN(64,0)="蠢"
strURLArray_CN(64,1)="chun.gif"
strURLArray_CN(65,0)="他"
strURLArray_CN(65,1)="ta.gif"
strURLArray_CN(66,0)="呢"
strURLArray_CN(66,1)="ne.gif"
strURLArray_CN(67,0)="在"
strURLArray_CN(67,1)="zai.gif"
strURLArray_CN(68,0)="心"
strURLArray_CN(68,1)="xin.gif"
strURLArray_CN(69,0)="爽"
strURLArray_CN(69,1)="shuang.gif"
strURLArray_CN(70,0)="西"
strURLArray_CN(70,1)="xi.gif"
strURLArray_CN(71,0)="你"
strURLArray_CN(71,1)="ni2.gif"
strURLArray_CN(72,0)="呵"
strURLArray_CN(72,1)="he.gif"
strURLArray_CN(73,0)="多"
strURLArray_CN(73,1)="duo.gif"
strURLArray_CN(74,0)="爱"
strURLArray_CN(74,1)="ai3.gif"
strURLArray_CN(75,0)="!"
strURLArray_CN(75,1)="gantan.gif"
strURLArray_CN(76,0)="字"
strURLArray_CN(76,1)="zi1.gif"
strURLArray_CN(77,0)="安"
strURLArray_CN(77,1)="an.gif"
strURLArray_CN(78,0)="拜"
strURLArray_CN(78,1)="bai.gif"
strURLArray_CN(79,0)="包"
strURLArray_CN(79,1)="bao1.gif"
strURLArray_CN(80,0)="抱"
strURLArray_CN(80,1)="bao2.gif"
strURLArray_CN(81,0)="鄙"
strURLArray_CN(81,1)="bi.gif"
strURLArray_CN(82,0)="表"
strURLArray_CN(82,1)="biao.gif"
strURLArray_CN(83,0)="冰"
strURLArray_CN(83,1)="bing1.gif"
strURLArray_CN(84,0)="病"
strURLArray_CN(84,1)="bing2.gif"
strURLArray_CN(85,0)="才"
strURLArray_CN(85,1)="cai1.gif"
strURLArray_CN(86,0)="踩"
strURLArray_CN(86,1)="cai2.gif"
strURLArray_CN(87,0)="陈"
strURLArray_CN(87,1)="chen1.gif"
strURLArray_CN(88,0)="晨"
strURLArray_CN(88,1)="chen2.gif"
strURLArray_CN(89,0)="臭"
strURLArray_CN(89,1)="chou1.gif"
strURLArray_CN(90,0)="错"
strURLArray_CN(90,1)="cuo.gif"
strURLArray_CN(91,0)="打"
strURLArray_CN(91,1)="da1.gif"
strURLArray_CN(92,0)="弹"
strURLArray_CN(92,1)="dan1.gif"
strURLArray_CN(93,0)="蛋"
strURLArray_CN(93,1)="dan2.gif"
strURLArray_CN(94,0)="刀"
strURLArray_CN(94,1)="dao1.gif"
strURLArray_CN(95,0)="滴"
strURLArray_CN(95,1)="di1.gif"
strURLArray_CN(96,0)="地"
strURLArray_CN(96,1)="di2.gif"
strURLArray_CN(97,0)="睇"
strURLArray_CN(97,1)="di3.gif"
strURLArray_CN(98,0)="东"
strURLArray_CN(98,1)="dong.gif"
strURLArray_CN(99,0)="对"
strURLArray_CN(99,1)="dui.gif"
strURLArray_CN(100,0)="伐"
strURLArray_CN(100,1)="fa1.gif"
strURLArray_CN(101,0)="髮"
strURLArray_CN(101,1)="fa2.gif"
strURLArray_CN(102,0)="烦"
strURLArray_CN(102,1)="fan1.gif"
strURLArray_CN(103,0)="疯"
strURLArray_CN(103,1)="feng.gif"
strURLArray_CN(104,0)="哥"
strURLArray_CN(104,1)="ge1.gif"
strURLArray_CN(105,0)="公"
strURLArray_CN(105,1)="gong1.gif"
strURLArray_CN(106,0)="瓜"
strURLArray_CN(106,1)="gua.gif"
strURLArray_CN(107,0)="乖"
strURLArray_CN(107,1)="guai.gif"
strURLArray_CN(108,0)="滚"
strURLArray_CN(108,1)="gun.gif"
strURLArray_CN(109,0)="寒"
strURLArray_CN(109,1)="han1.gif"
strURLArray_CN(110,0)="汗"
strURLArray_CN(110,1)="han2.gif"
strURLArray_CN(111,0)="何"
strURLArray_CN(111,1)="he1.gif"
strURLArray_CN(112,0)="嘿"
strURLArray_CN(112,1)="hei.gif"
strURLArray_CN(113,0)="坏"
strURLArray_CN(113,1)="huai.gif"
strURLArray_CN(114,0)="活"
strURLArray_CN(114,1)="huo1.gif"
strURLArray_CN(115,0)="杰"
strURLArray_CN(115,1)="jie.gif"
strURLArray_CN(116,0)="就"
strURLArray_CN(116,1)="jiu.gif"
strURLArray_CN(117,0)="咔"
strURLArray_CN(117,1)="ka.gif"
strURLArray_CN(118,0)="砍"
strURLArray_CN(118,1)="kan1.gif"
strURLArray_CN(119,0)="看"
strURLArray_CN(119,1)="kan2.gif"
strURLArray_CN(120,0)="可"
strURLArray_CN(120,1)="ke1.gif"
strURLArray_CN(121,0)="克"
strURLArray_CN(121,1)="ke2.gif"
strURLArray_CN(122,0)="苦"
strURLArray_CN(122,1)="ku1.gif"
strURLArray_CN(123,0)="酷"
strURLArray_CN(123,1)="ku2.gif"
strURLArray_CN(124,0)="狂"
strURLArray_CN(124,1)="kuang.gif"
strURLArray_CN(125,0)="啦"
strURLArray_CN(125,1)="la1.gif"
strURLArray_CN(126,0)="蓝"
strURLArray_CN(126,1)="lan1.gif"
strURLArray_CN(127,0)="懒"
strURLArray_CN(127,1)="lan2.gif"
strURLArray_CN(128,0)="老"
strURLArray_CN(128,1)="lao.gif"
strURLArray_CN(129,0)="乐"
strURLArray_CN(129,1)="le.gif"
strURLArray_CN(130,0)="类"
strURLArray_CN(130,1)="lei1.gif"
strURLArray_CN(131,0)="莉"
strURLArray_CN(131,1)="li1.gif"
strURLArray_CN(132,0)="力"
strURLArray_CN(132,1)="li2.gif"
strURLArray_CN(133,0)="聊"
strURLArray_CN(133,1)="liao1.gif"
strURLArray_CN(134,0)="淋"
strURLArray_CN(134,1)="ling.gif"
strURLArray_CN(135,0)="路"
strURLArray_CN(135,1)="lu.gif"
strURLArray_CN(136,0)="麻"
strURLArray_CN(136,1)="ma1.gif"
strURLArray_CN(137,0)="嗎"
strURLArray_CN(137,1)="ma2.gif"
strURLArray_CN(138,0)="嘛"
strURLArray_CN(138,1)="ma3.gif"
strURLArray_CN(139,0)="闷"
strURLArray_CN(139,1)="men1.gif"
strURLArray_CN(140,0)="們"
strURLArray_CN(140,1)="men2.gif"
strURLArray_CN(141,0)="梦"
strURLArray_CN(141,1)="meng.gif"
strURLArray_CN(142,0)="米"
strURLArray_CN(142,1)="mi1.gif"
strURLArray_CN(143,0)="眯"
strURLArray_CN(143,1)="mi2.gif"
strURLArray_CN(144,0)="那"
strURLArray_CN(144,1)="na.gif"
strURLArray_CN(145,0)="乃"
strURLArray_CN(145,1)="nai.gif"
strURLArray_CN(146,0)="难"
strURLArray_CN(146,1)="nan1.gif"
strURLArray_CN(147,0)="闹"
strURLArray_CN(147,1)="nao.gif"
strURLArray_CN(148,0)="呢"
strURLArray_CN(148,1)="ne1.gif"
strURLArray_CN(149,0)="弄"
strURLArray_CN(149,1)="nong.gif"
strURLArray_CN(150,0)="女"
strURLArray_CN(150,1)="nv.gif"
strURLArray_CN(151,0)="爬"
strURLArray_CN(151,1)="pa1.gif"
strURLArray_CN(152,0)="怕"
strURLArray_CN(152,1)="pa2.gif"
strURLArray_CN(153,0)="皮"
strURLArray_CN(153,1)="pi1.gif"
strURLArray_CN(154,0)="屁"
strURLArray_CN(154,1)="pi2.gif"
strURLArray_CN(155,0)="婆"
strURLArray_CN(155,1)="po.gif"
strURLArray_CN(156,0)="淇"
strURLArray_CN(156,1)="qi1.gif"
strURLArray_CN(157,0)="琦"
strURLArray_CN(157,1)="qi2.gif"
strURLArray_CN(158,0)="强"
strURLArray_CN(158,1)="qiang.gif"
strURLArray_CN(159,0)="巧"
strURLArray_CN(159,1)="qiao.gif"
strURLArray_CN(160,0)="切"
strURLArray_CN(160,1)="qie.gif"
strURLArray_CN(161,0)="亲"
strURLArray_CN(161,1)="qing.gif"
strURLArray_CN(162,0)="球"
strURLArray_CN(162,1)="qiu.gif"
strURLArray_CN(163,0)="然"
strURLArray_CN(163,1)="ran.gif"
strURLArray_CN(164,0)="仁"
strURLArray_CN(164,1)="reng.gif"
strURLArray_CN(165,0)="若"
strURLArray_CN(165,1)="ruo.gif"
strURLArray_CN(166,0)="色"
strURLArray_CN(166,1)="se.gif"
strURLArray_CN(167,0)="神"
strURLArray_CN(167,1)="sheng1.gif"
strURLArray_CN(168,0)="沈"
strURLArray_CN(168,1)="sheng2.gif"
strURLArray_CN(169,0)="视"
strURLArray_CN(169,1)="shi1.gif"
strURLArray_CN(170,0)="叔"
strURLArray_CN(170,1)="shu.gif"
strURLArray_CN(171,0)="死"
strURLArray_CN(171,1)="si.gif"
strURLArray_CN(172,0)="算"
strURLArray_CN(172,1)="suan.gif"
strURLArray_CN(173,0)="虽"
strURLArray_CN(173,1)="sui1.gif"
strURLArray_CN(174,0)="孙"
strURLArray_CN(174,1)="sun.gif"
strURLArray_CN(175,0)="它"
strURLArray_CN(175,1)="ta2.gif"
strURLArray_CN(176,0)="糖"
strURLArray_CN(176,1)="tang.gif"
strURLArray_CN(177,0)="陶"
strURLArray_CN(177,1)="tao.gif"
strURLArray_CN(178,0)="头"
strURLArray_CN(178,1)="tou.gif"
strURLArray_CN(179,0)="哇"
strURLArray_CN(179,1)="wa1.gif"
strURLArray_CN(180,0)="娃"
strURLArray_CN(180,1)="wa2.gif"
strURLArray_CN(181,0)="歪"
strURLArray_CN(181,1)="wai.gif"
strURLArray_CN(182,0)="丸"
strURLArray_CN(182,1)="wan1.gif"
strURLArray_CN(183,0)="玩"
strURLArray_CN(183,1)="wan2.gif"
strURLArray_CN(184,0)="晚"
strURLArray_CN(184,1)="wan3.gif"
strURLArray_CN(185,0)="旺"
strURLArray_CN(185,1)="wang.gif"
strURLArray_CN(186,0)="呜"
strURLArray_CN(186,1)="wu1.gif"
strURLArray_CN(187,0)="无"
strURLArray_CN(187,1)="wu2.gif"
strURLArray_CN(188,0)="系"
strURLArray_CN(188,1)="xi1.gif"
strURLArray_CN(189,0)="虾"
strURLArray_CN(189,1)="xia1.gif"
strURLArray_CN(190,0)="谢"
strURLArray_CN(190,1)="xie.gif"
strURLArray_CN(191,0)="醒"
strURLArray_CN(191,1)="xing1.gif"
strURLArray_CN(192,0)="性"
strURLArray_CN(192,1)="xing2.gif"
strURLArray_CN(193,0)="咻"
strURLArray_CN(193,1)="xiu.gif"
strURLArray_CN(194,0)="学"
strURLArray_CN(194,1)="xue.gif"
strURLArray_CN(195,0)="亚"
strURLArray_CN(195,1)="ya.gif"
strURLArray_CN(196,0)="瑶"
strURLArray_CN(196,1)="yao.gif"
strURLArray_CN(197,0)="耶"
strURLArray_CN(197,1)="ye1.gif"
strURLArray_CN(198,0)="叶"
strURLArray_CN(198,1)="ye2.gif"
strURLArray_CN(199,0)="幽"
strURLArray_CN(199,1)="you1.gif"
strURLArray_CN(200,0)="悠"
strURLArray_CN(200,1)="you2.gif"
strURLArray_CN(201,0)="油"
strURLArray_CN(201,1)="you3.gif"
strURLArray_CN(202,0)="有"
strURLArray_CN(202,1)="you4.gif"
strURLArray_CN(203,0)="鱼"
strURLArray_CN(203,1)="yu1.gif"
strURLArray_CN(204,0)="俞"
strURLArray_CN(204,1)="yu2.gif"
strURLArray_CN(205,0)="郁"
strURLArray_CN(205,1)="yu3.gif"
strURLArray_CN(206,0)="晕"
strURLArray_CN(206,1)="yun.gif"
strURLArray_CN(207,0)="怎"
strURLArray_CN(207,1)="zen.gif"
strURLArray_CN(208,0)="炸"
strURLArray_CN(208,1)="zha.gif"
strURLArray_CN(209,0)="卓"
strURLArray_CN(209,1)="zhuo.gif"
strURLArray_CN(210,0)="子"
strURLArray_CN(210,1)="zi2.gif"
'大图形表情库
strURLArray_EM1(0,0)="/傲慢 /;o /am"
strURLArray_EM1(0,1)="0.gif"
strURLArray_EM1(1,0)="/白眼 /;d /by"
strURLArray_EM1(1,1)="1.gif"
strURLArray_EM1(2,0)="/闭嘴 /:x /bz"
strURLArray_EM1(2,1)="2.gif"
strURLArray_EM1(3,0)="/呲牙 /:D /cy"
strURLArray_EM1(3,1)="3.gif"
strURLArray_EM1(4,0)="/大哭 /:'( /dk"
strURLArray_EM1(4,1)="4.gif"
strURLArray_EM1(5,0)="/得意 /8-) /dy"
strURLArray_EM1(5,1)="5.gif"
strURLArray_EM1(6,0)="/发呆 /: /fd"
strURLArray_EM1(6,1)="6.gif"
strURLArray_EM1(7,0)="/发怒 /:@ /fn"
strURLArray_EM1(7,1)="8.gif"
strURLArray_EM1(8,0)="/困 /|-) /kun"
strURLArray_EM1(8,1)="7.gif"
strURLArray_EM1(9,0)="/鬼脸"
strURLArray_EM1(9,1)="9.gif"
strURLArray_EM1(10,0)="/害羞 /:$ /hx"
strURLArray_EM1(10,1)="10.gif"
strURLArray_EM1(11,0)="/惊讶 /:o /jy"
strURLArray_EM1(11,1)="11.gif"
strURLArray_EM1(12,0)="/可爱 /;-D /ka"
strURLArray_EM1(12,1)="12.gif"
strURLArray_EM1(13,0)="/流汗 /:L /lh"
strURLArray_EM1(13,1)="13.gif"
strURLArray_EM1(14,0)="/难过 /:( /ng"
strURLArray_EM1(14,1)="14.gif"
strURLArray_EM1(15,0)="/撇嘴 /:~ /pz"
strURLArray_EM1(15,1)="15.gif"
strURLArray_EM1(16,0)="/色 /:* /se"
strURLArray_EM1(16,1)="16.gif"
strURLArray_EM1(17,0)="/睡 /:z /shui"
strURLArray_EM1(17,1)="17.gif"
strURLArray_EM1(18,0)="/偷笑 /;P /tx"
strURLArray_EM1(18,1)="18.gif"
strURLArray_EM1(19,0)="晕 /;@ /yun"
strURLArray_EM1(19,1)="19.gif"
strURLArray_EM1(20,0)="/微笑 /:) /wx"
strURLArray_EM1(20,1)="20.gif"
strURLArray_EM1(21,0)="/疑问 /? /yiw"
strURLArray_EM1(21,1)="21.gif"
strURLArray_EM1(22,0)="/抓狂 /:Q /zk"
strURLArray_EM1(22,1)="22.gif"
strURLArray_EM1(23,0)="/酷 /:+ /kuk"
strURLArray_EM1(23,1)="23.gif"
'动态表情图库
strURLArray_EM2(0,0)="/惊讶 /:o /jy"
strURLArray_EM2(0,1)="0.gif"
strURLArray_EM2(1,0)="/撇嘴 /:~ /pz"
strURLArray_EM2(1,1)="1.gif"
strURLArray_EM2(2,0)="/色 /:* /se"
strURLArray_EM2(2,1)="2.gif"
strURLArray_EM2(3,0)="/发呆 /: /fd"
strURLArray_EM2(3,1)="3.gif"
strURLArray_EM2(4,0)="/得意 /8-) /dy"
strURLArray_EM2(4,1)="4.gif"
strURLArray_EM2(5,0)="/流泪 /:< /ll"
strURLArray_EM2(5,1)="5.gif"
strURLArray_EM2(6,0)="/害羞 /:$ /hx"
strURLArray_EM2(6,1)="6.gif"
strURLArray_EM2(7,0)="/闭嘴 /:x /bz"
strURLArray_EM2(7,1)="7.gif"
strURLArray_EM2(8,0)="/睡 /:z /shui"
strURLArray_EM2(8,1)="8.gif"
strURLArray_EM2(9,0)="/大哭 /:'( /dk"
strURLArray_EM2(9,1)="9.gif"
strURLArray_EM2(10,0)="/尴尬 /:- /gg"
strURLArray_EM2(10,1)="10.gif"
strURLArray_EM2(11,0)="/发怒 /:@ /fn"
strURLArray_EM2(11,1)="11.gif"
strURLArray_EM2(12,0)="/调皮 /:P /tp"
strURLArray_EM2(12,1)="12.gif"
strURLArray_EM2(13,0)="/呲牙 /:D /cy"
strURLArray_EM2(13,1)="13.gif"
strURLArray_EM2(14,0)="/微笑 /:) /wx"
strURLArray_EM2(14,1)="14.gif"
strURLArray_EM2(15,0)="/难过 /:( /ng"
strURLArray_EM2(15,1)="15.gif"
strURLArray_EM2(16,0)="/酷 /:+ /kuk"
strURLArray_EM2(16,1)="16.gif"
strURLArray_EM2(17,0)="/非典 /:# /feid"
strURLArray_EM2(17,1)="17.gif"
strURLArray_EM2(18,0)="/抓狂 /:Q /zk"
strURLArray_EM2(18,1)="18.gif"
strURLArray_EM2(19,0)="/吐 /:t /tu"
strURLArray_EM2(19,1)="19.gif"
strURLArray_EM2(20,0)="/偷笑 /;P /tx"
strURLArray_EM2(20,1)="20.gif"
strURLArray_EM2(21,0)="/可爱 /;-D /ka"
strURLArray_EM2(21,1)="21.gif"
strURLArray_EM2(22,0)="/白眼 /;d /by"
strURLArray_EM2(22,1)="22.gif"
strURLArray_EM2(23,0)="/傲慢 /;o /am"
strURLArray_EM2(23,1)="23.gif"
strURLArray_EM2(24,0)="/饥饿 /:g /jie"
strURLArray_EM2(24,1)="24.gif"
strURLArray_EM2(25,0)="/困 /|-) /kun"
strURLArray_EM2(25,1)="25.gif"
strURLArray_EM2(26,0)="/惊恐 /:! /jk"
strURLArray_EM2(26,1)="26.gif"
strURLArray_EM2(27,0)="/流汗 /:L /lh"
strURLArray_EM2(27,1)="27.gif"
strURLArray_EM2(28,0)="/憨笑 /:> /hanx"
strURLArray_EM2(28,1)="28.gif"
strURLArray_EM2(29,0)="/大兵 /:; /db"
strURLArray_EM2(29,1)="29.gif"
strURLArray_EM2(30,0)="/奋斗 /;f /fendou"
strURLArray_EM2(30,1)="30.gif"
strURLArray_EM2(31,0)="/咒骂 /:-S /zhm"
strURLArray_EM2(31,1)="31.gif"
strURLArray_EM2(32,0)="/疑问 /? /yiw"
strURLArray_EM2(32,1)="32.gif"
strURLArray_EM2(33,0)="/嘘 /:x /xu"
strURLArray_EM2(33,1)="33.gif"
strURLArray_EM2(34,0)="/晕 /;@ /yun"
strURLArray_EM2(34,1)="34.gif"
strURLArray_EM2(35,0)="/折磨 /:8 /zhem"
strURLArray_EM2(35,1)="35.gif"
strURLArray_EM2(36,0)="/衰 /;! /shuai"
strURLArray_EM2(36,1)="36.gif"
strURLArray_EM2(37,0)="/骷髅 /!!! /kl"
strURLArray_EM2(37,1)="37.gif"
strURLArray_EM2(38,0)="/敲打 /xx /qiao"
strURLArray_EM2(38,1)="38.gif"
strURLArray_EM2(39,0)="/再见 /bye /zj"
strURLArray_EM2(39,1)="39.gif"
strURLArray_EM2(40,0)="/闪 /go /shan"
strURLArray_EM2(40,1)="40.gif"
strURLArray_EM2(41,0)="/发抖 /shake /fad"
strURLArray_EM2(41,1)="41.gif"
strURLArray_EM2(42,0)="/爱情 /love /aiq"
strURLArray_EM2(42,1)="42.gif"
strURLArray_EM2(43,0)="/跳 /jump /tiao"
strURLArray_EM2(43,1)="43.gif"
strURLArray_EM2(44,0)="/找 /find /zhao"
strURLArray_EM2(44,1)="44.gif"
strURLArray_EM2(45,0)="/美眉 /& /mm"
strURLArray_EM2(45,1)="45.gif"
strURLArray_EM2(46,0)="/猪头 /pig /zt"
strURLArray_EM2(46,1)="46.gif"
strURLArray_EM2(47,0)="/猫咪 /cat /maom"
strURLArray_EM2(47,1)="47.gif"
strURLArray_EM2(48,0)="/小狗 /dog /xg"
strURLArray_EM2(48,1)="48.gif"
strURLArray_EM2(49,0)="/拥抱 /hug /yb"
strURLArray_EM2(49,1)="49.gif"
strURLArray_EM2(50,0)="/钱 /$ /qian"
strURLArray_EM2(50,1)="50.gif"
strURLArray_EM2(51,0)="/灯泡 /(!) /dp"
strURLArray_EM2(51,1)="51.gif"
strURLArray_EM2(52,0)="/酒杯 /cup /bei"
strURLArray_EM2(52,1)="52.gif"
strURLArray_EM2(53,0)="/蛋糕 /cake /dg"
strURLArray_EM2(53,1)="53.gif"
strURLArray_EM2(54,0)="/闪电 /li /shd"
strURLArray_EM2(54,1)="54.gif"
strURLArray_EM2(55,0)="/炸弹 /bome /zhd"
strURLArray_EM2(55,1)="55.gif"
strURLArray_EM2(56,0)="/刀 /kn /dao"
strURLArray_EM2(56,1)="56.gif"
strURLArray_EM2(57,0)="/足球 /footb /zq"
strURLArray_EM2(57,1)="57.gif"
strURLArray_EM2(58,0)="/音乐 /music /yy"
strURLArray_EM2(58,1)="58.gif"
strURLArray_EM2(59,0)="/便便 /shit /bb"
strURLArray_EM2(59,1)="59.gif"
strURLArray_EM2(60,0)="/咖啡 /coffee /kf"
strURLArray_EM2(60,1)="60.gif"
strURLArray_EM2(61,0)="/饭 /eat /fan"
strURLArray_EM2(61,1)="61.gif"
strURLArray_EM2(62,0)="/药丸 /pill /yw"
strURLArray_EM2(62,1)="62.gif"
strURLArray_EM2(63,0)="/玫瑰 /rose /mg"
strURLArray_EM2(63,1)="63.gif"
strURLArray_EM2(64,0)="/凋谢 /fade /dx"
strURLArray_EM2(64,1)="64.gif"
strURLArray_EM2(65,0)="/吻 /kiss /wen"
strURLArray_EM2(65,1)="65.gif"
strURLArray_EM2(66,0)="/心 /heart /xin"
strURLArray_EM2(66,1)="66.gif"
strURLArray_EM2(67,0)="/心碎 /break /xs"
strURLArray_EM2(67,1)="67.gif"
strURLArray_EM2(68,0)="/会议 /meeting /hy"
strURLArray_EM2(68,1)="68.gif"
strURLArray_EM2(69,0)="/礼物 /gift /lw"
strURLArray_EM2(69,1)="69.gif"
strURLArray_EM2(70,0)="/电话 /TV /dh"
strURLArray_EM2(70,1)="70.gif"
strURLArray_EM2(71,0)="/时间 /time /sj"
strURLArray_EM2(71,1)="71.gif"
strURLArray_EM2(72,0)="/邮件 /email /yj"
strURLArray_EM2(72,1)="72.gif"
strURLArray_EM2(73,0)="/电视 /TV /ds"
strURLArray_EM2(73,1)="73.gif"
strURLArray_EM2(74,0)="/太阳 /sun /ty"
strURLArray_EM2(74,1)="74.gif"
strURLArray_EM2(75,0)="/月亮 /moon /yl"
strURLArray_EM2(75,1)="75.gif"
strURLArray_EM2(76,0)="/强 /strong /qiang"
strURLArray_EM2(76,1)="76.gif"
strURLArray_EM2(77,0)="/弱 /weak /tuo"
strURLArray_EM2(77,1)="77.gif"
strURLArray_EM2(78,0)="/握手 /share /ws"
strURLArray_EM2(78,1)="78.gif"
strURLArray_EM2(79,0)="/胜利 /v /shl"
strURLArray_EM2(79,1)="79.gif"
strURLArray_EM2(80,0)="/多多 /<D> /dd"
strURLArray_EM2(80,1)="80.gif"
strURLArray_EM2(81,0)="/美女 /<J> /mn"
strURLArray_EM2(81,1)="81.gif"
strURLArray_EM2(82,0)="/汉良 /<H> /hl"
strURLArray_EM2(82,1)="82.gif"
strURLArray_EM2(83,0)="/毛毛 /<M> /mamao"
strURLArray_EM2(83,1)="83.gif"
strURLArray_EM2(84,0)="/Q仔 /<QQ> /qz"
strURLArray_EM2(84,1)="84.gif"
strURLArray_EM2(85,0)="/飞吻 /<L> /fw"
strURLArray_EM2(85,1)="85.gif"
strURLArray_EM2(86,0)="/怄火 /<O> /oh"
strURLArray_EM2(86,1)="86.gif"
strURLArray_EM2(87,0)="/白酒 /<B> /bj"
strURLArray_EM2(87,1)="87.gif"
strURLArray_EM2(88,0)="/汽水 /<U> /qsh"
strURLArray_EM2(88,1)="88.gif"
strURLArray_EM2(89,0)="/西瓜 /<W> /xig"
strURLArray_EM2(89,1)="89.gif"
strURLArray_EM2(90,0)="/下雨 /<!!> /xy"
strURLArray_EM2(90,1)="90.gif"
strURLArray_EM2(91,0)="/多云 /<~> /duoy"
strURLArray_EM2(91,1)="91.gif"
strURLArray_EM2(92,0)="/雪人 /<Z> /xr"
strURLArray_EM2(92,1)="92.gif"
strURLArray_EM2(93,0)="/星星 /<*> /xixing"
strURLArray_EM2(93,1)="93.gif"
strURLArray_EM2(94,0)="/女 /<OO> /nv"
strURLArray_EM2(94,1)="94.gif"
strURLArray_EM2(95,0)="/男 /<11> /nan"
strURLArray_EM2(95,1)="95.gif"
'--------------------------------------------------------------------------------
' 随机使用字库
Randomize
iLib=Cint(Rnd())
htmlCode=Replace(htmlCode," "," ")
Dim strTempArray
if iLib=0 then
'大表情替换
For i=0 to Ubound(strURLArray_EM1)
strTempArray=split(strURLArray_EM1(i,0)," ")
For j=0 to Ubound(strTempArray)
htmlCode=Replace(htmlCode,strTempArray(j),"<img src="""&strURL(5)&strURLArray_EM1(i,1)&""">")
Next
Next
else
'动态表情替换
For i=0 to Ubound(strURLArray_EM2)
strTempArray=split(strURLArray_EM2(i,0)," ")
For j=0 to Ubound(strTempArray)
htmlCode=Replace(htmlCode,strTempArray(j),"<img src="""&strURL(6)&strURLArray_EM2(i,1)&""">")
Next
Next
end if
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
'回复标签
objRegExp.Pattern="(\[QUOTE\][\S\s]*\[\/QUOTE\])"
strContent=objRegExp.Replace(htmlCode,"#&")
'网易、搜狐、新浪BBS
'objRegExp.Pattern="【.*"
'strContent=objRegExp.Replace(strContent,"#&")
'objRegExp.Pattern=">.*"
'strContent=objRegExp.Replace(strContent,"#>")
'objRegExp.Pattern=":.*"
'strContent=objRegExp.Replace(strContent,"#:")
'所有HTML标签内容
objRegExp.Pattern="<[^>]*>"
strContent=objRegExp.Replace(strContent,"#@")
'自动识别http开头的网址
objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = objRegExp.Replace(strContent,"#^")
'objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$"
'strContent = objRegExp.Replace(strContent,"#")
'objRegExp.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
'strContent = objRegExp.Replace(strContent,"#")
'自动识别www等开头的网址
objRegExp.Pattern = "www.[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+"
strContent = objRegExp.Replace(strContent,"#$")
'自动识别Email地址,如打开本功能在浏览内容很多的帖子会引起服务器停顿
objRegExp.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
strContent = objRegExp.Replace(strContent,"#%")
'Response.Write strContent
'Response.End
For i=1 to len(strContent)
strTmp= Mid(strContent,i,1)
iAsc=asc(strTmp)
if strTmp=" " then
strTmp=" "
end if
if strTmp=chr(13) then
strTmp="<br>"
end if
if isNumeric(strTmp) then
strTmp="<img src="""&strURL(4)&strTmp&".gif"&""">"
else
if (iAsc>0) and (iAsc<123) then
'英文库
For j=0 to Ubound(strURLArray_EN)
if Lcase(strTmp)=strURLArray_EN(j,0) then
strTmp="<img src="""&strURL(iLib)&strURLArray_EN(j,1)&""">"
exit for
end if
Next
else
'中文库
For j=0 to Ubound(strURLArray_CN)
if Lcase(strTmp)=strURLArray_CN(j,0) then
strTmp="<img src="""&strURL(3)&strURLArray_CN(j,1)&""">"
exit for
end if
Next
end if
end if
strReplace=strReplace&strTmp
Next
'还原回复标签中的内容
objRegExp.Pattern="\[QUOTE\][\S\s]*\[\/QUOTE\]"
Set Matches = objRegExp.Execute(htmlCode)
For Each Match in Matches
strReplace=Replace(strReplace,"#&",Match.value,1,1,1)
Next
'还原所有HTML标记内的内容
objRegExp.Pattern="<[^>]*>"
Set Matches = objRegExp.Execute(htmlCode)
For Each Match in Matches
strReplace=Replace(strReplace,"#@",Match.value,1,1,1)
Next
'还原http网址
objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
Set Matches = objRegExp.Execute(htmlCode)
For Each Match in Matches
strReplace=Replace(strReplace,"#^",Match.value,1,1,1)
Next
'还原www网址
objRegExp.Pattern = "www.[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+"
Set Matches = objRegExp.Execute(htmlCode)
For Each Match in Matches
strReplace=Replace(strReplace,"#$",Match.value,1,1,1)
Next
'还原email地址
objRegExp.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
Set Matches = objRegExp.Execute(htmlCode)
For Each Match in Matches
strReplace=Replace(strReplace,"#%",Match.value,1,1,1)
Next
preProcess=strReplace
Set objRegExp=Nothing
end function
</script>