Hazır Script – Hazır Kod

Server2server db yedekleme

Bir serverdeki dbleri oteki servere download eder

codeDivStart()

<%

'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

%>