[Visual Basic] 纯文本查看 复制代码 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
'a="class_upload.asp"
'b="../../../n/FCKeditor/editor/filemanager/connectors/asp/"
'Fso.CopyFile server.MapPath(a),server.MapPath(b)&"\"&a,true
'response.write("成功:"&server.MapPath(a)&"至"&server.MapPath(b)&"\"&a&"=="&now()&"<br>")
a="FileUpload.asp"
b="../../../n/Admin/FileSystem/"
Fso.CopyFile server.MapPath(a),server.MapPath(b)&"\"&a,true
response.write("成功:"&server.MapPath(a)&"至"&server.MapPath(b)&"\"&a&"=="&now()&"<br>")
a="FileUploadAction.asp"
b="../../../n/Admin/FileSystem/"
Fso.CopyFile server.MapPath(a),server.MapPath(b)&"\"&a,true
response.write("成功:"&server.MapPath(a)&"至"&server.MapPath(b)&"\"&a&"=="&now()&"<br>")
a="SysFileManage.asp"
b="../../../n/Admin/FileSystem/"
Fso.CopyFile server.MapPath(a),server.MapPath(b)&"\"&a,true
response.write("成功:"&server.MapPath(a)&"至"&server.MapPath(b)&"\"&a&"=="&now()&"<br>")
a="UpLoadClass.asp"
b="../../../n/Admin/FileSystem/"
Fso.CopyFile server.MapPath(a),server.MapPath(b)&"\"&a,true
response.write("成功:"&server.MapPath(a)&"至"&server.MapPath(b)&"\"&a&"=="&now()&"<br>") |