Copie y pegue el código en un documento de texto, guárdelo y cambie el nombre del sufijo del archivo a: hta y haga doble clic para ejecutarse.
El código es el siguiente:
<!-//////////////// =====
Nombre del programa: Registro de consumo Ver1.1 (20070808-20070811) .hta
Instrucciones para su uso: Copie y pegue el código en un documento de texto, guárdelo y cambie el nombre de sufijo del archivo a: HTA y haga doble clic para ejecutar.
Descripción del autor: yoxi01 ,,, sin derechos de autor, bienvenido a la versión pirateada !! //////////->
<!-///////////////->
<title> Programa de grabación de consumo </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312"/>
<!-///////// hta logo /////->
<HTA: aplicación
Scroll = "No"
Subtítulos = "Sí"
Sysmenu = "sí"/>
<!-////////////->
<script language = "VBScript">
TotalMoney = 0 'Consumo total
index = -1 'Inicializar el número de ID de control de casilla de verificación;
bandera = 0 'El indicador que define si el archivo está cambiado
establecer fso = createObject ("scripting.filesystemObject")
'///////////////////// Lea el archivo de configuración y defina su propio tamaño y ubicación //////
Sub Window_onload
Si no (fso.fileExists ("consumen.ini")), entonces 'cree si no hay archivo de configuración;
FSO.CreateTextFile ("Consume.ini"). Cerrar
final si
Window.resizeto 638,495 'establece su propio tamaño y posición;
Window.moveto 200,100
Addrow 0, "Hoho", "2007-1-1", "Martes" 'agregue una fila primero. Ni siquiera puedo entenderlo yo mismo, pero de todos modos lo estoy usando para tratar con errores;
document.all.namedItem ("mytable"). filas (1) .style.display = "none" 'Establecer esta línea es invisible;
Addrow 0, "Hoho", "2007-1-1", "Martes" 'agregue otra fila. Ni siquiera puedo entenderlo yo mismo, pero de todos modos lo estoy usando para tratar con errores;
document.all.namedItem ("mytable"). filas (2) .style.display = "none" 'Establecer esta línea es invisible;
readfile ("consumen.ini")
Final
'//////////////////////////////////////
Función ReadFile (nombre de archivo)
establecer archivo = fso.opentextfile (nombre de archivo, 1,1)
hacer while file.atendofline <> true 'lea el archivo hasta el final del archivo
str = split (file.readline, " #") 'Split no filas por # flager (hay un total de cuatro de estos banderas)
Adhrow Str (1), Str (2), Str (3), Str (4) 'Agregar cinco celdas, los contenidos son ...
bucle
Función final
'////////////////////////
Función AddRow (CNUM, CTYPE, CDATE, CDAY)
índice = índice+1 'El número de serie agrega 1
Establecer objTable = document.all.namedItem ("mytable") 'Obtener la tabla de objetos basada en ID
establecer newRow = objTable.inserTrow () 'Inserte una línea
newRow.className = "Row_add" 'Establezca el estilo de la línea;
newRow.onmouseover = getRef ("Change_bgcolor")
newRow.onmouseOut = getRef ("Back_bgcolor")
newRow.Onclick = getRef ("ChoiceBJ")
var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday
str = split (var, "#")
str (0) = "<input type = checkbox id = 'delcheck' & index>"
para i = 0 a 4
establecer newcell = newRow.insertCell () 'Inserte la celda y establezca el valor de la celda;
newcell.innerhtml = str (i)
próximo
TotalMoney = TotalMoney+CLNG (CNUM) 'Establezca el valor del consumo total y defina la pantalla;
consumo.innerhtml = "Consumo total:" y TotalMoney & "yuan"