asp替换字符串中后面起的一个指定字符串

是asp还是asp.net？

<%
Dim B
    B="CDCCVVBBDMMDMKKK"
 
'方法一 使用正则表达式替换
   Dim Reg
       Set Reg        = new RegExp
    Reg.pattern    = "D{1}([^D]*)$"
    Reg.global     = true
       Reg.IgnoreCase = true
    Response.write Reg.replace( B, "[............]$1") & ""
    Set Reg = nothing
   
'方法二  先查找，后分割， 再拼接  
  Dim WeiZhi, StrA, StrB
      WeiZhi = instrRev( B, "D" )
   StrA   = Left( B, WeiZhi - 1 )
   StrB   = Right( B, Len( B ) - WeiZhi )
   Response.write StrA & "[............]" & StrB
   
   
   
 '注： 上面的代码中 [............]就是你要替换的字符
  
%>

结果：

最简单的方法是：
A = Replace(A, "D", "E", InstrRev(A, "D"))