Microsoft VBScript 运行时错误 错误 '800a139a'

错误的数量词

../../KS_Cls/KS.CollectCls.asp，行 797

PathTemp = SavePath & strFileName

Constr = re.Replace(Constr, PathTemp) 797行

解决方法 在793行 re.Pattern = TempArray(Tempi)上面一行

插入以下代码

if instr(TempArray(Tempi),"+")>0 and instr(TempArray(Tempi),"\+")<=0 then
TempArray(Tempi)=replace(TempArray(Tempi),"+","\+")
end if

PS：这段个代码不是很好

晕 里面有两个＋没处理

处理下就可以了

是由以下字符引起的 正则不是很熟

希望高手能解决下

Constr="dfefsdafsa/images/cnblogs_com/lantaio/51744/o_T-Shirt-C++-Developer.jpgcvbcbbnnn"
PathTemp="/Upfiles/BeyondPic/tech/aspx/2008-01/20080109124725805.jpg"
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "o_T-Shirt-C++-Developer.jpg" 这个字段串有什么问题呢
Constr = re.Replace(Constr, PathTemp)
response.Write(Constr)
Set re = Nothing

怎么回事啊！