欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vbs:把一段文字中指定字符顏色變成紅色的正則

 更新時(shí)間:2007年04月06日 00:00:00   作者:  
vbs:把一段文字中指定字符顏色變成紅色的正則

 
function c(Tstr,Word) 
Dim re 
Set re = new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.pattern = "("&Word&")" 
c=re.replace(Tstr,"<font style='color:red;'>$1</font>") 
End function 

調(diào)用方法 

response.write c("內(nèi)容字串","要顯示為紅色的字") 

比如 

<% 
function c(Tstr,Word) 
Dim re 
Set re = new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.pattern = "("&Word&")" 
c=re.replace(Tstr,"<font style='color:red;'>$1</font>") 
End function 
Response.write("lamking.com","a") 
%> 
就把lamking.com中的a替換為紅色的。 

相關(guān)文章

最新評(píng)論