<%
strtest="this　is　an　apple."
response.write　replace(strtest,”apple”,”orange”)
%>

Function strReplace(Str)
 dim tempcheckstr
 tempcheckstr=Str
 If Isnull(tempcheckstr) Then
  strReplace = ""//这里要注册，如果字符串为空，那replace装会出错
  Exit Function 
 End If
 strReplace = Replace(tempcheckstr,"'","''")
End Function

function insertLink(str,key,url)
   if str<>"" then
 str=replace(str,key,"<a href="&url&">"&key&"</a>"
   end if
   insertLink=str
end function

Set regEx = New RegExp
regEx.Pattern = reg  '正则表达式
regEx.IgnoreCase = True '是否忽略大小写
regEx.Global = True
newStr= regEx.Replace(oldStr,newPart) 'reg被替换成newPart
Set regEx = Nothing