代码如下:
<! Doctype html public "-// w3c // dtd html 4.01 transisi // en">
<Html>
<head>
<iteme> File paket v0.1 </iteme>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<HTA: Aplikasi
Id = "file paket v0.1"
ApplicationName = "File paket v0.1"
Versi = "0.1"
Gulir = "tidak"
Batin = "tidak"
ContextMenu = "Ya"
Keterangan = "Ya"
Ikon = "tidak"
ShowInkBar = "ya"
SingleInstance = "Ya"
Sysmenu = "ya"
MaximizeButton = "Tidak"
WindowState = "Normal"
Navigable = "ya"
/>
<Bahasa skrip = "vbscript">
function transfert ()
nama file redup
filename = document.geteLementById ("srcfile"). nilai
Jika len (nama file)> 0 lalu
redup oreq
'pada kesalahan resume berikutnya
'// 创建 xmlhttp 对象
set oreq = createObject ("msxml2.xmlhttp")
Oreq.open "get", "file: //" & fileName, false
Oreq.Send
ff = oreq.responseBody
redup u, s, kk
u = lenb (ff)
Redim KK (U-1)
untuk i = 0 hingga u-1
s = hex (ascb (midb (ff, i+1,1))))
Jika len <) <2 lalu
s = "0" & s
akhiri jika
'kk = kk & s
kk (i) = s
Berikutnya
Buat nama file, gabungkan (kk, "")
kalau tidak
document.geteLementById ("srcfile"). Fokus
msgbox "请选择要压缩的文件", 16, "提示"
akhiri jika
fungsi akhir
fungsi membuat (nama file, data)
redup htm, file
file = mid (nama file, instrrev (fileName, "/")+1)
htm = htm & data
redup fso, f
redup this_file
this_file = file & "-pf.htm"
Atur fso = createObject ("Scripting.filesystemObject")
Set f = fso.opentextFile (this_file, 2, true)
f.write htm
msgbox "生成文件" & this_file & "成功！", 64, "生成"
fungsi akhir
</script>
</head>
<marginleft body = 0 marginright = 0 onload = "window.resizeto 389.145">
请选择文件 ： <input type = file id = "srcfile"> [br] [br]
<Input type = tombol value = "转换" onClick = "Transfert"> <input type = nilai tombol = "关闭" ontClick = "window.close">
</body>
</html>