ASP教程之利用FSO按文件巨细扫瞄文件目次并举行删...

只看该作者 · 发表于 2015-1-16 22:05:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用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邮箱设置等等，就像管理本地机一样方便。

只看该作者 · 发表于 2015-1-18 20:17:12

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-1-25 16:15:00

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-2-3 09:31:28

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-2-8 20:16:04

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

只看该作者 · 发表于 2015-2-26 03:47:27

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

只看该作者 · 发表于 2015-3-8 11:58:02

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

只看该作者 · 发表于 2015-3-15 22:29:47

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-3-22 17:21:08

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之利用FSO按文件巨细扫瞄文件目次并举行删...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子