Kode program
<%
' ===== = =========
'Ekspor catatan sebagai file (.csv).
'Tanggal produksi: Maret 2003
'Penulis: Salju di Saibei
' ===== = =========
Kelas Ekspor_CSV
objek sistem file FSO pribadi
fEkspor pribadi
redupkan Exp_Type
sub pribadi Class_Initialize()
set FSO= Server.CreateObject("Scripting.FileSystemObject") 'Buat instance objek sistem file
Exp_Type=1 'Ekspor tipe 1 adalah mode penambahan untuk menulis file 2 adalah membuat file baru dan kemudian menulis
sub akhir
'Tutup objeknya
sub pribadi Class_Terminate()
fEkspor.Tutup
atur FSO=tidak ada
sub akhir
'Ekspor program utama (gunakan array untuk menentukan bidang)
Fungsi publik File Ekspor (jalur lengkap, rsSet, HeaderArray)
jika Exp_type=1 maka
jika bukan ExistFile(fullpath) maka
jika CreateFile(fullpath) lalu
TulisHeaderHeaderArray
WriteBody rsSet, HeaderArray
kalau tidak
err_Show "Terjadi kesalahan saat membuat file!"
berakhir jika
kalau tidak
jika OpenFile (jalur lengkap) maka
WriteBody rsSet, HeaderArray
kalau tidak
err_Show "Terjadi kesalahan saat membuka file!"
berakhir jika
berakhir jika
elseif Exp_type=2 lalu
jika ExistFile(fullpath) lalu
err_Show "Nama file bertentangan!"
kalau tidak
jika CreateFile(fullpath) lalu
TulisHeaderHeaderArray
WriteBody rsSet, HeaderArray
kalau tidak
err_Show "Terjadi kesalahan saat membuat file!"
berakhir jika
berakhir jika
berakhir jika
jika salah=0 maka
EksporFile=benar
kalau tidak
EksporFile=salah
berakhir jika
fungsi akhir
'Tulis judul yang ditentukan
sub publik WriteHeader(HeaderArray)
sGaris = ""
untuk i=0 hingga ubound(HeaderArray,2)
sGaris=sGaris & "," & Array Header(0,i)
Berikutnya
jika sLine<>"" lalu
sGaris=kanan(sGaris,len(Garis)-1)
fExport.WriteLine(sLine)
berakhir jika
end sub
'Output informasi lapangan yang ditentukan oleh kumpulan catatan
sub publik WriteBody(rsSet, HeaderArray)
rsSet.movefirst
Lakukan Sampai rsSet.EOF
sGaris = ""
untuk i=0 hingga ubound(HeaderArray,2)
sLine=sLine & "," & rsSet(HeaderArray(1,i))
Berikutnya
jika sLine <> "" maka
sGaris = kanan(sGaris, Len(Garis)-1)
fExport.WriteLine(sLine)
berakhir jika
rsSet.MoveNext
Lingkaran
sub akhir
'Ekspor program utama (lengkapi kumpulan catatan)
Fungsi publik EksporFile2(jalur lengkap,rsSet)
jika Exp_type=1 maka
jika bukan ExistFile(fullpath) maka
jika CreateFile(fullpath) lalu
TulisHeader2 rsSet
WriteBody2 rsSet
kalau tidak
err_Show "Terjadi kesalahan saat membuat file!"
berakhir jika
kalau tidak
jika OpenFile (jalur lengkap) maka
WriteBody2 rsSet
kalau tidak
err_Show "Terjadi kesalahan saat membuka file!"
berakhir jika
berakhir jika
elseif Exp_type=2 lalu
jika ExistFile(fullpath) lalu
err_Show "Nama file bertentangan!"
kalau tidak
jika CreateFile(fullpath) lalu
TulisHeader2 rsSet
WriteBody2 rsSet
kalau tidak
err_Show "Terjadi kesalahan saat membuat file!"
berakhir jika
berakhir jika
berakhir jika
jika salah=0 maka
EksporFile2=benar
kalau tidak
EksporFile2=salah
berakhir jika
fungsi akhir
'Tuliskan nama field sebagai judulnya
sub publik WriteHeader2(rsSet)
sGaris = ""
untuk i=0 hingga rsSet.fields.count-1
sLine=sLine & "," & rsSet.fields(i).nama
Berikutnya
jika sLine<>"" lalu
sGaris=kanan(sGaris,len(Garis)-1)
fExport.WriteLine(sLine)
berakhir jika
akhir sub
'Informasi kumpulan catatan keluaran
sub publik WriteBody2(rsSet)
rsSet.movefirst
Lakukan Sampai rsSet.EOF
sGaris = ""
untuk i=0 hingga rsSet.fields.count-1
sLine=sLine & "," & rsSet.fields(i).nilai
Berikutnya
jika sLine <> "" maka
sGaris = kanan(sGaris, Len(Garis)-1)
fExport.WriteLine(sLine)
berakhir jika
rsSet.MoveNext
Lingkaran
sub akhir
'Pesan kesalahan keluaran
sub pribadi Err_Show(errDesc)
Respon.Tulis errDesc
Respon.Akhir
sub akhir
'Buat file
Fungsi publik CreateFile (jalur lengkap)
Setel fExport = FSO.CreateTextFile(FullPath, false)
jika salah=0 maka
BuatFile=benar
kalau tidak
BuatFile=salah
berakhir jika
fungsi akhir
'Buka file
Fungsi publik OpenFile (jalur lengkap)
setel fExport=FSO.OpenTextFile(fullPath,8,false)
jika salah=0 maka
OpenFile=benar
kalau tidak
OpenFile=salah
berakhir jika
fungsi akhir
'Tentukan apakah file dengan nama file yang ditentukan ada
fungsi publik ExistFile (jalur lengkap)
jika FSO.FileExists(fullpath) maka
ExistFile=benar
kalau tidak
ExistFile=salah
berakhir jika
fungsi akhir
kelas akhir
%>