代码如下:
<! doctype html public "-// w3c // dtd html 4.01 Transitional // en">
<html>
<head>
<title> ملف حزمة V0.1 </itlem>
<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<hta: التطبيق
id = "Package File v0.1"
ApplicationName = "Package File v0.1"
الإصدار = "0.1"
Scroll = "لا"
innerborder = "لا"
ContextMenu = "نعم"
Caption = "نعم"
أيقونة = "لا"
ShowIntaskBar = "نعم"
SingleInstance = "نعم"
sysmenu = "نعم"
MailasizedButton = "لا"
WindowState = "Normal"
sevigable = "نعم"
/>
<script language = "vbscript">
وظيفة transfert ()
اسم الملف الخافت
filename = document.getElementById ("srcfile"). القيمة
إذا كان (اسم الملف)> 0 ثم
قاتمة oreq
'عند استئناف الخطأ التالي
'// 创建 xmlhttp 对象
set oreq = createObject ("msxml2.xmlhttp")
Oreq.Open "GET" ، "ملف: //" وأسماء الملف ، خطأ
oreq.send
ff = oreq.ResponseBody
Dim U ، S ، KK
u = lenb (FF)
redim KK (U-1)
لأني = 0 إلى U-1
S = Hex (ASCB (MIDB (FF ، I+1،1))))
إذا كان len (s) <2 ثم
s = "0" & s
إنهاء إذا
'kk = kk & s
kk (i) = s
التالي
جعل اسم الملف ، انضم (KK ، "")
آخر
document.getElementById ("srcfile"). التركيز
msgbox "请选择要压缩的文件" ، 16 ، "提示"
إنهاء إذا
وظيفة نهاية
وظيفة جعل (اسم الملف ، البيانات)
خافت HTM ، ملف
ملف = منتصف (اسم الملف ، instrev (اسم الملف ، "/")+1)
HTM = HTM والبيانات
قاتمة FSO ، و
باهتة this_file
this_file = file & "-pf.htm"
set fso = createObject ("scripting.filesystemObject")
set f = fso.opentextFile (this_file ، 2 ، true)
F.Write HTM
msgbox "生成文件" & this_file & "成功！" ، 64 ، "生成"
وظيفة نهاية
</script>
</head>
<body marginleft = 0 marginRight = 0 Onload = "Window.Resizeto 389،145">
： ： <إدخال نوع = معرف الملف = "srcfile"> [br] [br]
<type type = button value = "转换" onClick = "Transfert"> <type type = button value = "关闭" onClick = "window.close">
</body>
</html>