当访客留言和发帖时，我们并不希望访客在留言和帖子中使用html标记，所以在访客提交留言和帖子时我门得把html标记删除，下面的函数就是实现此功能的函数<?functiondelete_htm($scr){for($i=0;$i<strlen($scr);$i++){if(substr($scr,$i,1)=="<"){while(substr($scr,$i,1)!=">")$i++;$i++;}$str=$str.substr($scr,$i,1);}return($str);}?>...
http://www.jb51.net//article/15582.htm
a1="sp2=20;sp1=34;"a2="sp3=2;sp2=3;sp1=4;"两组字符串数据，将字符串中相同的数据值相加后得到新的一组数据即“sp3=2;sp2=23;sp1=38”(p.s 一个简单的应用：商品二原有数量20件，商品一原有数量34件，新进货或者新出售了商品二3件，商品一4件等类型模拟情况下计算出进货量，销售量和库存量，小型的进销存系统可采用这样的方法)那么如何实现两组字符串数据比较合并相同数据？第一，将两组字符串数据进行连接组合a3=a1&a2那么a3="sp2=20;sp1=34;sp3=2;sp2=3;sp1=4;"第二，将a3中相同的数据进行值的...
http://www.jb51.net//article/15400.htm
首先看看原来是怎么样做的：[code]function toTXT(str){ str = str.replace(/\&/g, "& amp;"); str = str.replace(/\>/g, "& gt;"); str = str.replace(/\</g, ...
http://www.jb51.net//article/15354.htm
可以任意转载，但转载时必须标明原作者charlee、原始链接http://tech.idv2.com/2006/11/23/javascript-strreplace-benchmark/以及本声明我对这两个函数作了benchmark，发现新函数的效率约为原函数的1.4倍。虽然没有预想中那么高效率，但当要替换的字符串更多时，效率应该会提高吧。测试方法为，对一个2048字节长的字符串分别执行两个函数100次，取其执行时间。下面为10次测试的结果。toTXT_1为通常的作法，toTXT_2为Clear的方法。toTXT_1(ms)toTXT_2(ms)toTXT_1/toTXT_216091204...
http://www.jb51.net//article/15353.htm
UPDATE Friend set Name = REPLACE(Name,'脚本,'脚本之家www.jb51.net')超级简单 ...
http://www.jb51.net//article/15265.htm
其实php对gzip解压很简单，用内置的gzdecode函数就可以了，不过很可惜我配置了半天也无法支持gzdecode函数，所以只好变通一下： [code]if (!function_exists('gzdecode')) { function gzdecode ($data) { &nbs...
http://www.jb51.net//article/15262.htm
因为服务器上安了一流拦截系统,所以dede的交替功能不好使.只能手动在phpadmin中SQL:update dede_addonarticle set body=replace(body ,'大法','方法') ...
http://www.jb51.net//article/15014.htm
当初只是为了玩玩写的，没想到写了之后不断有人询问，所以改写了一下代码，完善了一下，支持了正则替换，避开了会导致出错的二进制（ole对象），并且做了一个EXE的程序。感谢虚拟帮忙。附asp代码：[code]<% '#################################### '批量替换数据库内容2008-3-17 '替换是不可逆的，所以操作前做好能备份 '###############...
http://www.jb51.net//article/14999.htm
比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc[code]<% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function ...
http://www.jb51.net//article/14997.htm
function is_utf8($string) { return preg_match('%^(?: [\x09\x0A\x0D\x20-\x7E] &...
http://www.jb51.net//article/14992.htm
<%'字段内网址加上联接。Function ToLink(Str) Dim RE '正则表达式对象 Dim strContent If IsNull(Str) Then Str = "" Set RE = New RegExp '创建正则表达式对象 ...
http://www.jb51.net//article/14956.htm