ASP教程之利用FSO按文件巨细扫瞄文件目次并举行删...
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全上面先容FSO按文件巨细扫瞄文件目次并举行删除操纵的办法：<%@Language=VBScript%><%Server.ScriptTimeout=50000%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</HEAD>
<BODY>
<%
functionJudgeParaRegular(intID)
ifintID""andisnumeric(intID)then
JudgeParaRegular=intId
else
Response.Write"输出毛病！"
Response.End
endif
endfunction
intFileSize=JudgeParaRegular(Request.QueryString("intFileSize"))
strPath=Request.QueryString("strPath")
ifinstr(strPath,":")=0thenstrPath=server.MapPath(strPath)
%>
<%
functiondeletefiles(path)
onerrorresumenext
Setfs=Server.CreateObject("Scripting.FileSystemObject")
iffs.FileExists(path)then
fs.DeleteFilepath,True
response.write"乐成删除"&path
else
response.write"文件不存在!"
endif
Setfs=nothing
ifErr.number0thenResponse.WriteErr.number
endfunction
strFile=request("strFile")
ifrequest("strFile")""then
deletefilesstrFile
endif
%>
<%
functionListFolderFiles(strPath,intFileSize,intFlag)
strOriginPath=Request.ServerVariables("Script_Name")&"?strPath="&Request.QueryString("strPath")&"&intFileSize="&Request.QueryString("intFileSize")
ifstrPath""then
ifintFlag=0then
intFlag=intFlag+1
endif
SetobjFs=Server.CreateObject("Scripting.FileSystemObject")
SetobjFdir=objFs.GetFolder(strPath)
strParentPath=objFs.GetParentFolderName(strPath)
foreachstrSubFilesinobjFdir.files
ifstrSubFiles.size/(1024^2)>=intFileSizethen
Response.Write"<TR>"&vbcrlf
Response.Write"<TD>"&replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),"<b>"&strNullTran(strSubFiles.Name)&"</b>")&"</TD>"&vbcrlf
Response.Write"<TD>"&strNullTran(FormatNumber(strSubFiles.size/(1024^2),2))&"MB</TD>"&vbcrlf
Response.Write"<TD>"&strNullTran(strSubFiles.type)&"</TD>"&vbcrlf
Response.Write"<TD>"&strNullTran(strSubFiles.datelastmodified)&"</TD>"&vbcrlf
Response.Write"<TD><AHREF="&strOriginPath&"&strFile="&strNullTran(strSubFiles)&"></A></TD>"&vbcrlf
Response.Write"</TR>"&vbcrlf
intFlag=intFlag+strSubFiles.size
endif
next
foreachstrSubFoldersinobjFdir.SubFolders
ifintFlag=0thenintFlag=1
ListFolderFilesstrSubFolders,intFileSize,intFlag
next
else
Response.Write"<tr><tdcolspan=5>输出毛病！</td></tr>"
endif
ListFolderFiles=intFlag
endfunction
functionstrNullTran(str)
ifisnull(str)orstr=""then
strNullTran=""
else
strNullTran=str
endif
endfunction
Response.Write"<TABLEWIDTH=100%BORDER=1CELLSPACING=1CELLPADDING=1>"&vbcrlf
Response.Write"<TR>"&vbcrlf
Response.Write"<TD>文件名及路径</TD>"&vbcrlf
Response.Write"<TDalign=center>巨细</TD>"&vbcrlf
Response.Write"<TDalign=center>种别</TD>"&vbcrlf
Response.Write"<TDalign=center>修正工夫</TD>"&vbcrlf
Response.Write"<TDalign=center>删除</TD>"&vbcrlf
Response.Write"</TR>"&vbcrlf
intFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)
Response.Write"<tr><tdalign=right>总计：</td><tdcolspan=4>"&formatNumber((intFlag-1)/(1024^2),2)&"MB</td></tr>"&vbcrlf
Response.Write"</TABLE>"&vbcrlf
%>
</BODY>
</HTML>
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:
页:
[1]