新闻动态

   

您现在的位置是:首页 » 新闻动态 » 网站技术


asp 替换函数


人气: 40915  日期: 2011-12-16  作者: 大向网络  [打印本文]

<%

Function myReplace(myString)    '   写入数据库替换

     myString=Replace(myString,"&","& amp;")          '替换&为字符实体&

     myString=Replace(myString,"<","& lt;")           '替换<为字符实体<

     myString=Replace(myString,">","& gt;")           '替换>为字符实体>

     myString=Replace(myString),"<br>",chr(13))       '替换回车符为换行标记<br>  

     myString=Replace(myString,chr(32),"& nbsp;")     '替换空格符为字符实体

     myString=Replace(myString,chr(9)," & nbsp;& nbsp;& nbsp;& nbsp;")      '替换Tab缩进符为

     myString=Replace(myString,chr(39),"& acute;")    '替换单引号为字符实体′

     myString=Replace(myString,chr(34),"& quot;")     '替换双引号为字符实体"

     myReplace=myString                              '返回函数值

End Function

%>

<%

     Function myReplace(myString)   '从数据库读出来的替换

     myString=Replace(myString,"& amp;","&")          '替换&为字符实体&

     myString=Replace(myString,"& lt;","<")           '替换<为字符实体<

     myString=Replace(myString,"& gt;",">")           '替换>为字符实体>

     myString=Replace(myString,chr(13),"<br>")       '替换回车符为换行标记<br>

     myString=Replace(myString,"& nbsp;",chr(32))     '替换空格符为字符实体

     myString=Replace(myString," & nbsp;& nbsp;& nbsp;& nbsp;",chr(9))      '替换Tab缩进符为

     myString=Replace(myString,"& acute;",chr(39))    '替换单引号为字符实体′

     myString=Replace(myString,"& quot;",chr(34))     '替换双引号为字符实体"

     myReplace=myString                              '返回函数值

End Function

%>

怎么令ASP中的replace函数进行全文替换?

悬赏分:50 - 解决时间:2006-9-16 15:29

代码如下:

Function ReplaceTest(patrn, replStr)

Dim regEx, face ' 建立变量。

face = request.form("face")

Set regEx = New RegExp ' 建立正则表达式。

regEx.Pattern = patrn ' 设置模式。

regEx.IgnoreCase = True ' 设置是否区分大小写。

regEx.count = -1

ReplaceTest = regEx.Replace(face, replStr,count) ' 作替换。

End Function

response.write(ReplaceTest("fox", "cat")) ' 将 'fox' 替换为 'cat'。

Html部分是一个表单输入值

问题补充:中间那个regEx.count = -1 是随便加上去的,我以为那样就可以实现全文替换了


  上一篇:asp 时间段搜索
  下一篇:html5自带得表单验证代码 做验证再也不用那么复杂了
相关文章(Tags:ASP)