28,391
社区成员
发帖
与我相关
我的任务
分享
<script>
/*
if(yfla.is_support(6)){
yfla.load({id:"myfla",url:"http://cn.yimg.com/i/wea/v1/ico/w26.swf",width:30,height:30});
}else{
document.write('<img src="http://cn.yimg.com/i/wea/v1/ico/32x32/w26.gif" width="30" height="30" />');
}
*/
document.write('<img src="http://cn.yimg.com/i/wea/v1/ico/32x32/w26.gif" width="30" height="30" />');
</script>
<noscript>
<img src="http://cn.yimg.com/i/wea/v1/ico/32x32/w26.gif" width="30" height="30" />
</noscript>
<script>
var goSwidth = 60;
var goSheight = 60;
var goSflashfile = 'images/wea/w1.swf';
var imgSrc = 'images/wea/w1.gif'
var goLink = '';
</script>
Function RegExpReplace(strng, patrn, replStr)
Dim regEx,match,matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
RegExpReplace = regEx.Replace(strng, replStr) ' 作替换。
End Function