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

　　<%

　　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

　　%>

　　<%

　　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

　　%>