用asp实现的截取指定格式字符串的代码

有段字符串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf
没任何规律的...我要把里面的{#kljlkkm#}和{#wdfs#}查找出来...

1、Split办法：

<%   
Dim I, sCode, aCode, sNewCode   
sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"   
aCode = Split(sCode, "{#")   
sNewCode = ""   
For I = 0 To UBound(aCode)   
If InStr(aCode(I), "#}") > 0 Then sNewCode = sNewCode & "{#" & Split(aCode(I), "#}")(0) & "#}"   
Next   
Response.Write sNewCode   
%> 

2、正则办法：

复制代码代码如下:

<%   
Dim sCode, sNewCode, oTempReg, Match, Matches   
sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"   
Set TempReg = New RegExp   
With TempReg   
     .IgnoreCase = True   
     .Global = True   
     .Pattern = "\{\#.+?\#\}"   
     Set Matches = .Execute(sCode)   
     For Each Match In Matches   
          sNewCode = sNewCode & Match.Value   
     Next   
End With   
Set TempReg = Nothing   
Response.Write sNewCode   
%> 