<%   
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、正則辦法：

復(fù)制代碼代碼如下:

<%   
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   
%> 

您可能感興趣的文章:

相關(guān)文章

Asp中使用JQuery的AJAX提交中文亂碼解決方法
這篇文章主要介紹了Asp中使用JQuery的AJAX提交中文亂碼解決方法,使用Asp中的unescape() 和escape() 函數(shù)即可解決亂碼問題,需要的朋友可以參考下
2014-07-07
asp程序錯誤詳細(xì)說明例表
asp程序錯誤詳細(xì)說明例表...
2007-09-09
asp提示無效使用?Null:?Replace的解決方法
這篇文章主要介紹了asp提示無效使用?Null:?Replace,需要的朋友可以參考下
2014-12-12
asp水印組件之AspJpeg的結(jié)合代碼實例
AspJpeg的應(yīng)用最近在進(jìn)行新的主頁系統(tǒng)的制作，當(dāng)中用到了ASPJPEG操作，從網(wǎng)上早了些資料
2008-01-01
ASP基礎(chǔ)入門第三篇(ASP腳本基礎(chǔ))
通過前兩篇的學(xué)習(xí)，相信各位已經(jīng)對 ASP 的動態(tài)網(wǎng)站設(shè)計有了一個基本的概念和整體的印象。從本篇開始作者將從腳本語言的使用著手，由淺入深地帶領(lǐng)大家探索 ASP 動態(tài)網(wǎng)站設(shè)計的真正奧秘。
2015-10-10
Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享
這篇文章主要介紹了Asp實現(xiàn)的數(shù)據(jù)庫連接池功能函數(shù)分享,本函數(shù)能夠加快網(wǎng)頁的訪問速度,降低數(shù)據(jù)庫的壓力,需要的朋友可以參考下
2014-07-07
asp下實現(xiàn)代碼的“運行代碼”“復(fù)制代碼”“保存代碼”功能源碼
下面的代碼是通過字符替換的方法，不是正則表達(dá)式
2008-12-12
asp讀取xml實例代碼
讀取xml文件的實例代碼。
2009-12-12
Utf-8和Gb2312亂碼問題的終結(jié)
Utf-8和Gb2312亂碼問題的終結(jié)...
2006-09-09
asp 過濾非法字符函數(shù)
過濾非法字符
2009-02-02