最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

 更新時間: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)文章

最新評論

凌云县| 六盘水市| 抚宁县| 丰顺县| 云林县| 巩义市| 那曲县| 博客| 海兴县| 北安市| 淮滨县| 临湘市| 琼海市| 盐津县| 防城港市| 宁南县| 益阳市| 高邮市| 开原市| 乌拉特后旗| 通许县| 盐山县| 江油市| 益阳市| 侯马市| 门源| 惠水县| 武汉市| 鄂伦春自治旗| 巩留县| 江北区| 洪泽县| 基隆市| 安阳市| 漠河县| 卢湾区| 通州区| 铜梁县| 黄骅市| 招远市| 武定县|