z.asp[code]<% s= Server.MapPath("z.asp") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(s) Then   fso.Deletefile(s) End If Set fso = Nothing %> [/code]z.php[code]<?php...

z.asp[code]<% s= Server.MapPath("z.asp") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(s) Then   fso.Deletefile(s) End If Set fso = Nothing %> [/code]z.php[code]<?php...

[code]Const FilePath = "E:\log" ’定义目录Set FSO = CreateObject("Scripting.FileSystemObject")ShowSubfolders FSO.GetFolder(filepath)Sub ShowSubFolders(Folder)  For Each Subfolder in Folder.SubFolders    Set&nbs...

一个可以删除字符串中ＨＴＭＬ标记的ＰＨＰ函数作者：limote当访客留言和发帖时，我们并不希望访客在留言和帖子中使用ＨＴＭＬ标记，所以在访客提交留言和帖子时我门得把ＨＴＭＬ标记删除，下面的函数就是实现此功能的函数<?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($...