將代碼複製粘貼到一文本文檔中，然後保存，並將該文件後綴名改為：hta，雙擊即可運行。
代碼如下:
<!--////////程序說明/////////====
程序名稱：消費記錄Ver1.1(20070808-20070811).hta
使用說明：將代碼複製粘貼到一文本文檔中，然後保存，並將該文件後綴名改為：hta，雙擊即可運行。
作者說明：youxi01,,,版權沒有，歡迎盜版!!///////////-->
<!--///////設置題頭，編碼方式//////-->
<TITLE>消費記錄程序</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<!--///////hta標誌//////-->
<HTA:APPLICATION
SCROLL="no"
CAPTION="yes"
SYSMENU="yes"/>
<!--///////控製程序部分//////-->
<script language="vbscript">
totalMoney=0 '總消費額
index=-1 '初始化checkbox控件ID序號；
flag=0 '定義文件是否改動的標誌
set fso=createobject("scripting.filesystemobject")
'///////////////////文件載入時，讀取配置文件，定義自身大小、位置////////
Sub Window_onLoad
if not (fso.fileexists("consume.ini")) then '不存在配置文件則創建；
fso.createtextfile("consume.ini").close
end if
window.resizeTo 638,495 '設置自身大小、位置；
window.moveTo 200,100
addRow 0,"hoho","2007-1-1","星期二" '先添加一個行。自己都搞不明白，反正用來處理bug；
document.all.namedItem("mytable").rows(1).style.display="none" '設置這行不可見;
addRow 0,"hoho","2007-1-1","星期二" '再添加一個行。自己都搞不明白，反正用來處理bug；
document.all.namedItem("mytable").rows(2).style.display="none" '設置這行不可見;
readFile("consume.ini")
End Sub
'//////////////////讀取文件//////////////////
Function readFile(filename)
set file=fso.opentextfile(filename,1,1)
do while file.atendofline<>true '讀文件一直到文件尾部
str=split(file.readline,"#") '按#標誌分割沒行(總共有四個這種標誌)
addRow str(1),str(2),str(3),str(4) '添加五個單元格，內容分別為....
loop
End Function
'////////////////添加表行，單元格///////////
Function addRow(cnum,ctype,cdate,cday)
index=index+1 '序號自加1
set objTable=document.all.namedItem("mytable") '根據ID獲取對象表格
set newrow = objTable.insertRow() '插入一行
newrow.className="row_add" '設置該行的樣式；
newrow.onmouseover=getRef("change_bgcolor")
newrow.onmouseout=getRef("back_bgcolor")
newrow.onclick=getRef("chooseOBJ")
var="#"&cnum&"#"&ctype&"#"&cdate&"#"&cday
str=split(var,"#")
str(0)="<input type=checkbox id='delcheck'&index>"
for i=0 to 4
set newcell=newrow.insertCell() '插入單元格，並設置單元格的值；
newcell.innerhtml=str(i)
next
totalMoney=totalMoney+clng(cnum) '設置總消費額的值，並定義顯示；
consume.innerHTML="消費總額："&totalMoney&"元"