Salinan kode adalah sebagai berikut:
<%
ifsavefile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") lalu
Response.write "dibuat"
kalau tidak
Response.write "tidak dihasilkan"
endif
FunctionsAveFile (LocalFileName, RemoteFileUrl)
Dimads, Retrieval, Getremotedata
OnerrorresumeNext
SetRetrieval = server.createObject ("microso" & "ft.xm" & "lhttp")
Tanpa retrieval
.Open "get", remoteFileUrl, false, "", ""
.Mengirim
Getremotedata = .responseBody
Endwith
SetRetrieval = tidak ada
Setads = server.createObject ("ado" & "db.str" & "eam")
Withads
.Type = 1
.Membuka
.WriteGetRemotedata
.Savetofileerver.mappath (localfilename), 2
.Membatalkan()
.Menutup()
Endwith
Setads = tidak ada
iferr <> 0then
SaveFile = false
err.clear
kalau tidak
SaveFile = true
endif
Fungsi endfungsi
%>