[asp]几个ASP函数(数据备份,创建文件夹,历遍文件)

1、备份
<%
SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"/"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.write "错误："&err.Descripting
else
response.write "数据备份成功！"
end if
%>

2、恢复
<%
SQL="Restore database 数据库名 from disk='"&Server.MapPath("backup")&"/"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.write "错误："&err.Descripting
else
response.write "数据恢复成功！"
end if
%>

=============================创建文件夹==========================================

<%

Dim Name

Name = Request("Name")

set fs=createobject("scripting.filesystemobject")

MyFolder=server.mappath(""&name&"")

If NOT fs.folderexists(MyFolder) then

fs.createfolder(MyFolder)

End If

If fs.folderexists(MyFolder) then

%> 恭喜,文件夹创建成功!命名为:<%=MyFolder%>

<%Else%%>

出错啦!请返回重试.

<%End If

%>
======================================一个asp的文件拷贝函数 ==========================
<%
function copyfile(a,b)
set fso=server.createobject("scripting.filesystemobject")
if not fso.fileexists(server.mappath(a)) then
response.write "Err"
response.end
end if
fso.copyfile server.mappath(a),server.mappath(b)
response.write "<div align=center>Ok,You Have Succeed!!"
set fso=nothing
end function
copyfile "2.asp","sdffsd.asp"

%>
=============================显示一个目录下的文件夹及其文件夹里的文件=======================================================
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
nowpath=path&"/"&objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("D:/二叉树")
%>