'******************************************************* ***************
' fungsi
' Fungsi: Gunakan stream untuk menyimpan file
'Parameter: from (alamat file jarak jauh), tofile (menyimpan lokasi file)
'******************************************************* ***************
Fungsi Pribadi SaveFiles(byref dari,byref tofile)
Data Redup
Data=DapatkanData(dari,0)
Response.Tulisan berhasil disimpan: &formatnumber(len(Data)/1024*2,2)&Kb
respon.Flush
jika formatnumber(len(Data)/1024*2,2)>1 maka
ADOS.Tipe = 1
ADOS.Mode =3
ADOS.Buka
ADOS.tulis Data
ADOS.SaveToFile server.mappath(tofile),2
ADOS.Tutup()
kalau tidak
Response.Write gagal disimpan: ukuran file&formatnomor(len(imgs)/1024*2,2)&Kb, kurang dari 1K
respon.Flush
berakhir jika
fungsi akhir
'******************************************************* ***************
' fungsi (pribadi)
' Fungsi: Gunakan fso untuk mendeteksi apakah file tersebut ada. Jika ada, maka akan mengembalikan nilai true.
'Parameter: filespes (lokasi file)
'******************************************************* ***************
Fungsi Pribadi IsExists (byref filespec)
Jika (FSO.FileExists(server.MapPath(filespec))) Kemudian
IsExists = Benar
Kalau tidak
IsExists = Salah
Akhiri Jika
Fungsi Akhir
'******************************************************* ***************
' fungsi (pribadi)
' Fungsi: Gunakan fso untuk mendeteksi apakah folder tersebut ada. Jika ada, ia mengembalikan nilai true. Jika tidak ada, ia mengembalikan false.
'Parameter: folder (lokasi folder)
'******************************************************* ***************
Fungsi Pribadi IsFolder (Folder byref)
Jika FSO.FolderExists(server.MapPath(Folder)) Lalu
IsFolder = Benar
Kalau tidak
IsFolder = Salah
Akhiri Jika
Fungsi Akhir
'******************************************************* ***************
' fungsi (pribadi)
' Fungsi: Gunakan fso untuk membuat folder
'Parameter: fldr (lokasi folder)
'******************************************************* ***************
Fungsi Pribadi CreateFolder (byref fldr)
F
Setel f = FSO.CreateFolder(Server.MapPath(fldr))
BuatFolder = f.Jalur
Tetapkan f=tidak ada
Fungsi Akhir
'******************************************************* ***************
' fungsi (publik)
' Fungsi: Menyimpan file dan secara otomatis membuat folder bertingkat
'Parameter: fromurl (alamat file jarak jauh), tofiles (menyimpan lokasi)
'******************************************************* ***************
Fungsi Publik SaveData (byref FromUrl,byref ToFiles)
ToFiles=trim(Ganti(ToFiles,//,/))
flName=Ke Files
fldr=
Jika IsExists(flName)=false maka
GetNewsFold=split(flNama,/)
Untuk i=0 hingga Ubound(GetNewsFold)-1
jika fldr = maka
fldr=DapatkanLipatBerita(i)
kalau tidak
fldr=fldr&/&DapatkanLipatBerita(i)
berakhir jika
Jika IsFolder(fldr)=salah maka
BuatFolder fldr
Berakhir jika
Berikutnya
Simpan File DariUrl,flName
Berakhir jika
Fungsi akhir
'******************************************************* ***************
' fungsi (publik)
' Fungsi: Mendapatkan data jarak jauh
'Parameter: url (alamat file jarak jauh), getmode (mode: 0 adalah biner, 1 adalah pengkodean bahasa Mandarin)
'******************************************************* ***************
Fungsi Publik GetData(byref url,byref GetMode)
'pada kesalahan lanjutkan berikutnya
SourceCode = OXML.open (GET,url,false)
OXML.kirim()
jika OXML.readystate<>4 lalu keluar dari fungsi
jika GetMode=0 maka
GetData = OXML.responseBody
kalau tidak
GetData = BytesToBstr(OXML.responseBody)
berakhir jika
jika err.number<>0 maka err.Clear
Fungsi Akhir
'******************************************************* ***************
' fungsi (publik)
' Fungsi: memformat alamat gambar jarak jauh sebagai lokasi lokal
'Parameter: imgurl (alamat gambar jarak jauh), imgfolder (direktori gambar lokal), fristname (tambahan nama awalan)
'******************************************************* ***************
Fungsi Publik FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
jalur=
ImgUrl=ImgUrl
jika instr(ImgUrl,Nophoto) atau lenb(GetData(ImgUrl,0))<=0 maka
strpath=noimg
Respon.Tulis &strpath& &vbcrlf
kalau tidak
jika Instr(ImgUrl,.asp) lalu
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
kalau tidak
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
berakhir jika
strpath = Folder Img&/&strpath
strpath = Ganti(strpath,//,/)
jika kiri(strpath,1)=/ maka strpath=kanan(strpath,len(strpath)-1)
strpath = potong(strpath)
Respon.Tulis &strpath& &vbcrlf
savedataImgUrl,strpath
berakhir jika
FormatImgPath = jalur str
Fungsi akhir