当访客留言和发帖时，我们并不希望访客在留言和帖子中使用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);}?>...

<%    set rs = server.createobject("adodb.recordset")    sql = "Select * from friend order by id DESC"   rs.Open sql,conn,1    i=1    do&...

<?phpecho "<br/>数值强制转换：";$string="2a";$string1=intval($string);echo '$string1的值：'.$string1.'$string2的值：';//单引号不会输出变量，将原样输出$string2=(int)($string);echo $string2?>手册上查不到。看到http://bbs.phpchina.com/thread-27236-1-344.html这也是手册上说的：引用:int intval ( mixed $var&...

Function urlChk(sUrl)on error resume nextSet xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")xmlHttp.open "GET",sUrl,falsexmlHttp.send    if xmlHttp.Status <> 200 then       &nb...

如果要用于金额的转换，对小数部分的处理要做一下修改<?phpfunction ch_num($num,$mode=true) {$char = array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");$dw = array("","拾","佰","仟","","萬","億","兆");$dec = "點";$retval = "";if($mode)preg_match_all("/^0*(\d*)\.?(\d*)/",$num, $ar);...

 fread :以字节位计算长度,按照指定的长度和次数读取数据,遇到结尾或完成指定长度读取后停止. fgets :整行读取,遇到回车换行或结尾停止.在文本方式时使用.读字符串函数fgets函数的功能是从指定的文件中读一个字符串到字符数组中，函数调用的形式为：fgets(字符数组名，n，文件指针)；其中的n是一个正整数。表示从文件中读出的字符串不超过 n-1个字符。在读入的最后一个字符后加上串结束标志'\0'。例如：fgets(str,n,fp);的意义是从fp所指的文件中读出n-1个字符送入字符数组str中。按行读取）fgets()每次读入一行...

    问题的解决办法是，对于一个需要发送大数据的域，在提交表单前将数据拆分为小于限额的数份，分别放在数个hidden域中，同时把原有域清空，再正式提交表单。服务器端还是用Request.Form()读取各hidden域的数据，再按照顺序把他们拼接起来就行了。主要代码如下：注意：需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域。====客户端示例代码====在Form中的HTML代码内加入：<div id=divHidden></div>，在Form标签中加入： onSubmit...

 function is_utf8($string) {     return preg_match('%^(?:             [\x09\x0A\x0D\x20-\x7E]                &...

 for i=1 to 256  yongfa365=yongfa365&"<!--这里主要是让前边先产生２５６个字符，这样才可以实时输出-->"  if len(yongfa365)>=256 then exit for next        MadeBasic()        ...

<%sub fsojs()%> <%Set fso= Server.CreateObject("Scripting.FileSystemObject")set fd=fso.createtextfile(server.MapPath("../category.js"),true)'开始操作set rs=server.CreateObject("adodb.recordset")rs.Open "select * from dept_category",conn,1,1str="...

[html]<script language="vbs">'Function CreateKeyWords(KeyWords)'关键字生成系统     Dim i,L,TempStr    KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|“|”|［|］|—|—|（|）|…", "")    L=Len(KeyWo...