Programalama > ASP

ASP / Server2server Db Yedekleme

Bir Serverdeki Dbleri Oteki Servere Download Eder

Etiketler: server2server, yedekleme

Ort. 0

Puan ver:

hazirkod 04 June 19:33 0

0 kişiden 0 puan aldı

5618

<%
 
'db locs
Server.ScriptTimeOut=640
 
hdLocation="../../db/"
 
dosyalarim=array(_
"test.mdb",_
"test2.mdb")
 
For i=0 to ubound(dosyalarim)
 
 
    kaydedilecek = hdLocation&dosyalarim(i)
    'fileURL=fileURL&dosyalarim(i)
    Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    '
    'asil serverdeki dbler fso yada ftp ile web e acik bi dizine kopyalanmali
    '
    xmlHTTP.open "GET", "http://smslust.net/temproryfolder/"&dosyalarim(i), false
    xmlHTTP.send()
 
    set myStream = CreateObject("ADODB.Stream")
    myStream.Open
    myStream.Type = 1
    myStream.Write xmlHTTP.ResponseBody
    myStream.Position = 0
     
    Set kopyala = server.CreateObject("Scripting.FileSystemObject")
    if kopyala.FileExists(Server.MapPath(hdLocation&dosyalarim(i))) then
    kopyala.DeleteFile Server.MapPath(hdLocation&dosyalarim(i))
    end if
    set kopyala = Nothing
     
    myStream.SaveToFile Server.MapPath(kaydedilecek)
    myStream.Close
    Set myStream = Nothing
    Set xmlHTTP = Nothing
 
 
next
%>