代码如下:

<%

DimI,sCode,aCode,sNewCode

sCode="asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"

aCode=Split(sCode,"{#")

sNewCode=""

ForI=0ToUBound(aCode)

IfInStr(aCode(I),"#}")>0ThensNewCode=sNewCode&"{#"&Split(aCode(I),"#}")(0)&"#}"

Next

Response.WritesNewCode

%>

2、正则办法：

代码如下:

<%

DimsCode,sNewCode,oTempReg,Match,Matches

sCode="asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf"

SetTempReg=NewRegExp

WithTempReg

.IgnoreCase=True

.Global=True

.Pattern="\{\#.+?\#\}"

SetMatches=.Execute(sCode)

ForEachMatchInMatches

sNewCode=sNewCode&Match.Value

Next

EndWith

SetTempReg=Nothing

Response.WritesNewCode

%>

下一篇：推荐的用Asp实现屏蔽IP地址访问的代码