asp实现检查目录是否存在与建立目录的函数
'------------------------- '--检查目录是否存在 '---------------------- Function CheckDir(byval FolderPath)dim fsoSet fso = Server.CreateObject("Scripting.File
'------------------------- '--检查目录是否存在 '---------------------- Function CheckDir(byval FolderPath)dim fsoSet fso = Server.CreateObject("Scripting.File
以下虚线框内为mk.asp文件的具体代码:--------------------------------------------------------------------------------"" thenset fso = Server.CreateObject("Scripting.F
那天突然的一个灵感,是针对防盗链的 正常上传的文件,若被人盗链则增加了自己服务器的负担,上次164.cc就因此被挂 然后想想对策,目前各类防盗链程序也不少,不过使用也并不简单,还有就是不能免费…… 所以,只有自己先想办法。那么,现在看看标题,再想想防盗链,或许就有些眉目了 我可以不定时的修改上传文件
set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本) set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Set objIE = Cre
FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为n
好多直接在服务器上将所有文件包括程序,图片等文件封装到mdb,就需要下面这个文件了Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = CreateObject("ADODB.RecordSet") Set stream = Creat
要得到生成的HTML文件的最后修改时间,写了一个函数,有简单的判断. 实例:2005-11-10 19:33:44 ASP 文件 6.83 KB把下面文件另存为mofei.asp文件,运行即可,要FSO支持."&fsofile.type&"" '类型sfilere=sfilere&a
方法一:FSOSet fs = CreateObject("Scripting.FileSystemObject")NewFile=Server.MapPath("/asp/chap06/at/newfile.html")'新建一文件/newfile.html,若该文件已存在,则覆盖它Set a =
Dim rs, ws, fso, conn, stream, connStr, theFolderSet rs = CreateObject("ADODB.RecordSet")Set stream = CreateObject("ADODB.Stream")Set conn = CreateObj