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