Programalama > ASP


Ort. 0
Puan ver:
<%

'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
%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.