代码如下:
<! Doctype html public "- // w3c // dtd html 4.01 transitional // en">
<html>
<adal>
<Title> Fichier de package V0.1 </TITME>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<HTA: application
Id = "fichier de package v0.1"
ApplicationName = "File de package v0.1"
Version = "0,1"
Scroll = "non"
Innerborder = "no"
ContextMenu = "Oui"
Légende = "Oui"
Icon = "non"
Showintaskbar = "Oui"
Singleinstance = "Oui"
Sysmenu = "Oui"
Maximiserbutton = "no"
Fenêtre = "normal"
Navigable = "Oui"
/>
<Script linguisse = "vbscript">
fonction transfertt ()
nom de fichier DIM
filename = document.getElementById ("srcfile").
Si Len (nom de fichier)> 0 alors
ORIQUE
'On Error Repume Suivant
'// 创建 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)
pour i = 0 à U-1
s = hex (ascb (midb (ff, i + 1,1))))
Si Len (S) <2 alors
s = "0" & s
terminer si
'kk = kk & s
kk (i) = s
suivant
faire du nom de fichier, jointure (kk, "")
autre
document.getElementById ("srcfile"). Focus
msgbox "请选择要压缩的文件", 16, "提示"
terminer si
fonction finale
Fonction Make (nom de fichier, données)
Dim htm, fichier
fichier = mid (nom de fichier, instrrrev (nom de fichier, "/") + 1)
htm = htm & data
DIM FSO, F
dim this_file
this_file = fichier & "-pf.htm"
Set fso = createObject ("scripting.fileSystemObject")
Set f = fso.OpentextFile (this_file, 2, true)
F.Write HTM
msgbox "生成文件" & this_file & "成功！", 64, "生成"
fonction finale
</cript>
</ head>
<Body marginleft = 0 marginright = 0 onload = "window.resizeto 389,145">
请选择文件: <input type = file id = "srcfile"> [br] [br]
<input type = Button Value = "转换" onClick = "Transfert"> <Type d'entrée = Button Value = "关闭" onClick = "Window.close">
</docy>
</html>