|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码操纵完驱动器,接着就是来操纵文件夹了。个中包含:提取文件夹信息、创立文件夹、删除文件夹、复制文件夹、挪动文件夹等。上面就详细来看。<P> 1、fso.GetFolder
一看就分明,是提取文件夹了。那详细是提取哪一个文件夹呢?前面一定要跟一个文件夹的路径。提掏出来了再来显现该文件夹相干信息呢?是否是有要详细提取下往。以是,看程序:
1,getfldr.asp<P>- <%
- Setfso=CreateObject("Scripting.FileSystemObject")
- Setfldr=fso.GetFolder("c:ProgramFiles")
- Response.Write"父文件夹名字是:"&fldr&"<br>"<P>Iffldr.IsRootFolder=TrueThen
- Response.Write"该文件夹是一根文件夹"&"<br>"
- Else
- Response.Write"该文件夹不是根文件夹"&"<br>"
- EndIfResponse.Write"驱动器名字是:"&fldr.Drive&"<br>"
- %>
复制代码 <P> 起首创建FSO组件的毗连是必不成少的啦,然后Setfldr=fso.GetFolder("c:ProgramFiles")设定fldr工具被赋值,以作上面程序的援用。<P> fldr.IsRootFolder即为判别该文件夹是不是为一根文件夹,值为布尔值(trueorfalse);fldr.Drive则显现该文件夹地点的驱动器号了。<P> 2、fso.CreateFolder
上面对照让人冲动的是经由过程ASP创建文件夹了,你能够在你的权利局限内恣意地位创建恣意文件夹。
2,creatfldr.asp<P>- <%
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.CreateFolder("c:cnbruce")
- Response.Write"文件夹名为"&fso.GetBaseName("c:cnbruce")
- %>
复制代码 <P> 实行程序,应当发明C盘多出了cnbruce文件夹,fso.GetBaseName则是提取文件夹名。<P> 3、fso.DeleteFolder
经由过程ASP能够创建了文件夹,则一样能够删除文件夹。<P> 3,delfldr.asp<P>- <%
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.DeleteFolder("c:cnbruce")
- Response.Write"文件夹已删除"
- %>
复制代码 <P> 发明刚创建的cnbruce文件夹的确已被删除。
那上面就接纳一个通用程序来天真应变下。<P> 4,mainflr.asp<P>- <%
- SubCreateAFolder(file)
- Dimfso
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.CreateFolder(file)
- response.write"已创建了"&file
- EndSubSubDeleteAFolder(file)
- Dimfso
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.DeleteFolder(file)
- response.write"已删除"&file
- EndSub
- %>
- <%
- subname=request.form("submit")
- create=request.form("create")
- del=request.form("del")
- ifsubname""then
- ifcreate""then
- callCreateAFolder(""&create&"")
- endif
- ifdel""then
- callDeleteAFolder(""&del&"")
- endif
- endif
- %>
- <formaction="mainflr.asp"method="post">
- <inputname="create">
- <inputtype="submit"value="创建"name="submit">
- </form>
- <hr>
- <formaction="mainflr.asp"method="post">
- <inputname="del">
- <inputtype="submit"value="删除"name="submit">
- </form>
复制代码 <P> 必要注重的是:删除其实不会提醒“确认要放进接纳站”这项。这点你必要审慎处置,出格是对你的体系文件夹。<P> 4、fso.MoveFolder
次要感化是举行文件夹的挪动,相称于剪切粘贴举措。<P> 5,movefldr.asp<P>- <%
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.CreateFolder("c:cnbruce")
- fso.MoveFolder"c:cnbruce","C:ProgramFiles"
- %>
- <ahref="C:ProgramFiles">检察cnbruce文件夹有无挪动过去</a>
复制代码 <P> 格局:fso.MoveFolder"被挪动的文件夹","挪动到的文件夹"<P> 本程序先是在C盘下创建了cnbruce文件夹,然后将其挪动到C:ProgramFiles文件夹上面。<P> 不外一样必要注重的是你的体系文件夹不克不及乱挪动。<P> 5、fso.CopyFolder
次要感化:将文件夹从某地位复制到另外一地位。
6,copyfldr.asp<P>- <%
- Setfso=CreateObject("Scripting.FileSystemObject")
- fso.CopyFolder"c:ProgramFilescnbruce","c:"
- %>
- <ahref="C:">检察cnbruce文件夹有无复制过去</a>
复制代码 <P> 该程序是创建在上一movefldr.asp的实行了局基本之下去完成复制到C盘根目次下的。(话对照长-_-!)<P> 固然,其拷贝也是将该文件夹包含内里以是子文件夹和文件一切拷贝。<P> 到最初再试着将c:ProgramFilescnbruce和c:cnbruce两个文件夹举行删撤除吧。<P> 不外,持续提示你:不要写错了,好比写成c:ProgramFiles,那你就惨了:这叫玩命,学ASP玩出心跳出来了。<P> 对文件夹的操纵差未几了,是否是感应用途对照年夜?有训言:好器材是把双刃剑。公理和罪恶就只一线间,注重正轨公道使用该组件。不外另有你宁神的是,如今网站空间服务商对这权利已限制得逝世逝世的了,你再怎样闹翻也不会冒泡的:)<P> 然后接上去就是更奇妙的:FSO对文件的操纵。
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|