Salin dan tempel kode ke dalam dokumen teks, simpan, dan ubah nama sufiks file ke: hta, dan klik dua kali untuk dijalankan.
Kodenya adalah sebagai berikut:
<!-///////////////// ======
Nama Program: Catatan Konsumsi Ver1.1 (20070808-20070811) .hta
Instruksi untuk digunakan: Salin dan tempel kode ke dalam dokumen teks, simpan, dan ubah nama akhiran file ke: hta, dan klik dua kali untuk dijalankan.
Deskripsi Penulis: Youxi01 ,,, tidak ada hak cipta, selamat datang di versi bajakan !! ///////////-->
<!-/////////////////->
<title> Program Perekaman Konsumsi </iteme>
<meta http-equiv = "konten-tipe" content = "text/html; charset = gb2312"/>
<!-//////////// Hta LOGO /////->
<HTA: Aplikasi
Gulir = "tidak"
Keterangan = "Ya"
Sysmenu = "ya"/>
<!-//////////////->
<bahasa skrip = "vbscript">
TotalMoney = 0 'Total Konsumsi
index = -1 'Inisialisasi nomor ID kontrol kotak centang;
flag = 0 'bendera yang menentukan apakah file diubah
atur fso = createObject ("Scripting.filesystemObject")
'//////////////////////// Baca file konfigurasi dan tentukan ukurannya sendiri dan lokasi ////////
Sub window_onload
Jika tidak (fso.fileexists ("consume.ini")) maka 'buat jika tidak ada file konfigurasi;
fso.createTextFile ("consume.ini"). Tutup
akhiri jika
Window.Resizeto 638.495 'Tetapkan ukuran dan posisinya sendiri;
window.moveto 200.100
Addrow 0, "Hoho", "2007-1-1", "Selasa" 'Tambahkan barisan terlebih dahulu. Saya bahkan tidak bisa memahaminya sendiri, tetapi saya tetap menggunakannya untuk menangani bug;
document.all.namedItem ("mytable"). baris (1) .style.display = "tidak ada" 'atur baris ini tidak terlihat;
Addrow 0, "Hoho", "2007-1-1", "Selasa" 'Tambahkan baris lain. Saya bahkan tidak bisa memahaminya sendiri, tetapi saya tetap menggunakannya untuk menangani bug;
document.all.namedItem ("mytable"). Baris (2) .style.display = "none" 'atur baris ini tidak terlihat;
readfile ("consume.ini")
Akhir sub
'//////////////////////////////////////////////////////////////////
Fungsi readfile (nama file)
Setel file = fso.opentextFile (nama file, 1,1)
lakukan saat file.atendofline <> true 'baca file sampai akhir file
str = split (file.readline, " #") 'split no rows by # flag (ada total empat bendera tersebut)
addrow str (1), str (2), str (3), str (4) 'tambahkan lima sel, isinya adalah ...
lingkaran
Fungsi akhir
'////////////////////////////////////////
Fungsi addRow (cnum, ctype, cdate, cday)
indeks = indeks+1 'nomor seri menambahkan 1
Set Objtable = document.all.namedItem ("mytable") 'Dapatkan tabel objek berdasarkan ID
Setel newrow = objtable.insertrow () 'masukkan baris
newrow.classname = "row_add" 'atur gaya garis;
newrow.onmouseover = getRef ("change_bgcolor")
newrow.onmouseout = getRef ("back_bgcolor")
newrow.onClick = getRef ("pilihobj")
var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday
str = split (var, "#")
str (0) = "<input type = checkbox id = 'delcheck' & index>"
untuk i = 0 hingga 4
Setel newcell = newrow.insertcell () 'Masukkan sel dan atur nilai sel;
newcell.innerhtml = str (i)
Berikutnya
TotalMoney = TotalMoney+Clng (CNUM) 'Tetapkan nilai dari total konsumsi dan tentukan tampilan;
konsumsi.innerhtml = "Total Konsumsi:" & TotalMoney & "Yuan"