代码如下:
<! Doctype html public "-// w3c // dtd html 4.01 Transitional // en">
<html>
<голова>
<TILE> Файл пакета v0.1 </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA: Приложение
Id = "Файл пакета v0.1"
ApplicationName = "Файл пакета v0.1"
Версия = "0,1"
Scroll = "Нет"
Innerborder = "Нет"
Contextmenu = "Да"
Подпись = "Да"
Icon = "Нет"
Showintaskbar = "Да"
SingleInstance = "Да"
Sysmenu = "Да"
MaximizeButton = "Нет"
WindowState = "Нормальный"
Навигал = "Да"
/>
<Script language = "vbscript">
функция передачи ()
DIM FILENAME
filename = document.getElementById ("srcfile"). Значение
Если Len (имя файла)> 0, тогда
Dim Oreq
'При ошибке резюме следующим
'// 创建 xmlhttp 对象
SET OREQ = createObject ("msxml2.xmlhttp")
oreq.open "get", "file: //" & filename, false
Oreq.send
ff = oreq.responsebody
Dim U, S, KK
u = lenb (ff)
Redim kk (u-1)
для i = 0 до u-1
S = HEX (ASCB (MIDB (FF, I+1,1))))))
Если Лен (ы) <2, тогда
s = "0" & s
конец, если
'kk = kk & s
kk (i) = s
следующий
Сделайте имя файла, Join (KK, "")
еще
document.getElementbyId ("srcfile"). Focus
msgbox "请选择要压缩的文件", 16, "提示"
конец, если
конечная функция
Функция сделана (имя файла, данные)
Dim htm, файл
file = mid (имя файла, instrrev (имя файла, "/")+1)
htm = htm & data
Dim fso, f
Dim this_file
this_file = file & "-pf.htm"
Установить fso = createObject ("scripting.filesystemobject")
Установите f = fso.opentextfile (this_file, 2, true)
F.Write htm
msgbox "生成文件" & this_file & "成功！", 64, "生成"
конечная функция
</Script>
</head>
<marginleft body = 0 marginright = 0 onload = "window.resizeto 389,145">
请选择文件 ： <input type = file id = "srcfile"> [br] [br]
<input type = кнопка value = "转换" onclick = "transfort"> <input type = кнопка value = "关闭" onclick = "window.close">
</body>
</html>