Скопируйте и вставьте код в текстовый документ, сохраните его и измените имя суффикса файла на: hta и дважды щелкните, чтобы запустить.
Код заключается в следующем:
<!-///////////////////// =====
Имя программы: запись потребления Ver1.1 (20070808-20070811) .hta
Инструкции для использования: скопируйте и вставьте код в текстовый документ, сохраните его и измените имя суффикса файла на: hta и дважды щелкните, чтобы запустить.
Author's description: youxi01,,,No copyright, welcome to pirated version!!////////////-->
<!-///////////////////->
<Title> Программа записи потребления </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312"/>
<!-//////////// HTA LOGO //////->
<HTA: Приложение
Scroll = "Нет"
Подпись = "Да"
Sysmenu = "yes"/>
<!-////////////////->
<script language = "vbscript">
TotalMoney = 0 'Общее потребление
index = -1 'Инициализируйте идентификационный номер управления флажком;
flag = 0 'флаг, который определяет, изменяется ли файл
Установить fso = createObject ("scripting.filesystemobject")
'/////////////////////////////MIPE файл конфигурации и определить его собственный размер и место
Sub windows_onload
Если нет (fso.fileexists ("unsume.ini")), то 'создать, если нет файла конфигурации;
fso.createTextFile ("unsume.ini"). ЗАКРЫТЬ
конец, если
window.resizeto 638,495 'Установите свой собственный размер и положение;
Window.moveto 200,100
AddRow 0, «Hoho», «2007-1-1», «вторник» «Добавьте строку сначала. Я даже не могу понять это сам, но я все равно использую это, чтобы справиться с ошибками;
document.all.nameditem ("mytable"). Rows (1) .style.display = "none", установленная эта строка невидима;
addrow 0, "hoho", "2007-1-1", "вторник" добавить еще один ряд. Я даже не могу понять это сам, но я все равно использую это, чтобы справиться с ошибками;
document.all.nameditem ("mytable"). Rows (2) .style.display = "none", установленная эта строка невидима;
readfile ("unsume.ini")
Конец суб
'/////////////////////////////////////////
Функция readfile (имя файла)
Установить файл = fso.opentextfile (имя файла, 1,1)
Делайте, пока file.atendofline <> true 'Прочитайте файл до конца файла
STR = DOLT (file.readline, " #") 'Split No Rows от # flag (в общей сложности четыре таких флага)
AddRow Str (1), STR (2), STR (3), STR (4) 'Добавить пять ячеек, содержимое ...
петля
Конечная функция
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Функция AddRow (CNUM, CTYPE, CDATE, CDAY)
index = index+1 'серийный номер добавляет 1
Установить objtable = document.all.nameditem ("mytable") 'Получить таблицу объектов на основе идентификатора
SET NEWROW = OBJTABLE.INSERTROW () 'Вставьте линию
newRow.classname = "row_add" 'Установить стиль линии;
newRow.onmouseover = getRef ("change_bgcolor")
newRow.onmouseout = getRef ("back_bgcolor")
newRow.onclick = getRef ("selectObj")
var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday
str = split (var, "#")
str (0) = "<<input type = fackbox id = 'delcheck' & index>"
для i = 0 до 4
Установить newcell = newRow.insertCell () 'Вставьте ячейку и установите значение ячейки;
newcell.innerhtml = str (i)
следующий
TotalMoney = TotalMoney+CLNG (CNUM) 'Установите значение общего потребления и определите дисплей;
Потребление.