[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:/二叉樹")
%>