日期: 2005 年 11 月 8 日

QQ上没人理我。
路上没人理我。
大家都他吗的的不理我。。

吗的、、、、
没意思。。

没人陪我，，撤夜。。。
死了算了。。。ＦＴ～

这地方还是我撒野，发情的地方。。。。

再也不贴ＸＸ文章了。。。

靠靠靠～～！！！！！！
撒野！
发情！

这是个删除非空目录的例子

'test.asp
'要执行删除你需要对该目录具有修改权限
<%
dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
set fso=server.CreateObject("Scripting.FileSystemObject")
sub delfolder(sPath)
If (fso.FolderExists(server.MapPath (sPath))) then
set tmpfolder=fso.GetFolder(server.MapPath (sPath))
set tmpfiles=tmpfolder.files
for each tmpfile in tmpfiles
fso.DeleteFile (tmpfile)
next
set tmpsubfolder=tmpfolder.SubFolders
Continue reading