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;’&g...
http://www.jb51.net//article/9223.htm
<%setxlApp=Server.CreateObject("Excel.Application")xlApp.Visible=false'使服务端不出现Excel窗口.setmyWorkbook=xlApp.Workbooks.Add'建立一个worksheet.setmyWorksheet=myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value='精彩春风通讯录'myWorksheet.Range("A1").Font.Size=12myWorksheet.Range("A1").Font.Bold=truemyWorksheet...
http://www.jb51.net//article/4799.htm
<%FunctionComma(str)IfNot(IsNumeric(str))Orstr=0Then Result=0ElseIfLen(Fix(str))<4Then Result=strElse Pos=Instr(1,str,".") IfPos>0Then Dec=Mid(str,Pos) Endif Res=StrReverse(Fix(str)) LoopCount=1 WhileLoopCount<=Len(Res) TempResult=TempRes...
http://www.jb51.net//article/4694.htm
第一步:把如下代码加入<body>区域中<imgsrc="http://my.6to23.com/redriver/helpor/helpor.gif"name="u"border="0"alt="很好玩的"><scriptlanguage="JavaScript">varb=1;varc=true;functionfade(){if(document.all);if(c==true){b++;}if(b==100){b--;c=false}if(b==10)...
http://www.jb51.net//article/2609.htm
<?php$a="这是一个小段落.看吧";$a.="这又是小句!";$a.="最后一句?";$a.="这是结果了!";//其实这是一个长的字句。$b=split("[\.\!\?]",$a,4);//根本句号，！号，问号等按自己的要求分段for($index=0;$index<count($b);$index++){print"$index.$b[$index]<br>";}//在循环中读出数组。?>...
http://www.jb51.net//article/2018.htm
共有:5/10，当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到：