直接用正則替換，但沒有判斷功能 
Function FormatImg(content) 
dim re 
Set re=new RegExp 
re.IgnoreCase =true 
re.Global=True 
re.Pattern="(script)" 
Content=re.Replace(Content,"script") 
re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" 
Content=re.replace(Content,"<img src=$2 style=""cursor: pointer"" alt=""在新窗口中打開瀏覽"" onclick=""javascript:window.open(this.src);"" onload=""javascript:resizepic(this)"" border=""0""/>") 
set re = nothing 
FormatImg = content 
End Function 
這段代碼將內容中的圖片替換成 <img src=$2 style="cursor: pointer" alt="在新窗口中打開瀏覽" onclick="javascript:window.open(this.src);" onload="javascript:resizepic(this)" border="0"/> 這中形式的， 
我現在需要提取$2的前7個字符，用來判斷是否需要被替換，如果前7=特定的字符，就不要替換，但獲取$2的前7 無法。大家有什么辦法支下招撒？  

主要是參考了下面的代碼，大家可以看下 
'連接 
re.Pattern = "/[url=(.[^/]]*)/](.[^/[]*)/[//url]"  
Set strMatchs=re.Execute(strContent) 
For Each strMatch in strMatchs 
tmpStr1=checkURL(strMatch.SubMatches(0)) 
tmpStr2=strMatch.SubMatches(1) 
strContent=replace(strContent,strMatch.Value,"<a target=""_blank"" href="""&tmpStr1&""">"&tmpStr2&"</a>",1,-1,0) 
Next 
這里是正則的Matchs的說明文檔 
http://www.49028c.com/article/15362.htm 

下面由武林網測試代碼，大家可以做出函數 
<% 
content2="<img src='http://www.49028c.com/images/logo.gif' width=100 />中間一些內容<img src='http://www.49028c.com/indeximg/logo.GIF'  width=200 />" 
dim re 
Set re=new RegExp 
re.IgnoreCase =true 
re.Global=True 
re.Pattern="<img.[^>]*src(=| )(.[^>]*)[/]?>" 
set Matches=re.execute(content2) 
For Each strMatch in Matches 
tmpStr1=(strMatch.SubMatches(1)) 
tmpurl=replace(replace(tmpStr1,"'",""),"""","") 
//response.write left(tmpurl,20) 
if left(tmpurl,19)="http://www.49028c.com" then 
picurl=tmpurl 
else 
picurl="http://sucai.vevb.com/showpic.asp?url="&tmpurl 
end if 
Content=replace(Content2,strMatch.Value,"<img src="&picurl&" style=""cursor: pointer"" alt=""在新窗口中打開瀏覽"" onclick=""javascript:window.open(this.src);"" onload=""javascript:resizepic(this)"" border=""0""/>") 
Next 
response.write Content 
set re = nothing 

%>