最新国产好看的视频,伊人天堂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)文章

最新評論

阳信县| 伊通| 安徽省| 柯坪县| 原平市| 乌海市| 阜新市| 孙吴县| 峡江县| 焦作市| 凤台县| 望奎县| 玉树县| 望谟县| 广昌县| 隆林| 水富县| 南漳县| 漳浦县| 化隆| 亚东县| 郑州市| 西和县| 瑞金市| 海门市| 贡觉县| 闽清县| 清河县| 正阳县| 乐亭县| 永兴县| 武威市| 大石桥市| 平陆县| 罗源县| 廉江市| 大城县| 来凤县| 楚雄市| 灵台县| 保定市|