自动替换

[rayyu1989]

比如存在A页面，定义了代码后自动插入A页面中的内容

如何在显示出调用的内容前把特定的文字，如<>;'替换成特定的文字
如<换成123

[neo_yoho]

<%
'str 原字符串
'string1 替换前字符串
'string2 替换后字符串
Function ReplaceAll(str,string1,string2)
Dim regEx,newstr
newstr = str
Set regEx = New RegExp
regEx.Pattern = string1
regEx.IgnoreCase = True
regEx.Global = True
newstr = regEx.Replace(newstr,string2)
ReplaceAll=newstr
End Function

s = "aaa<ddd<fddd<"
response ReplaceAll(s,"<","123")
%>

[cuidenghong123]

写个函数