代码如下:
<! doctype html public "-// w3c // dtd html 4.01 transitional // en">
<html>
<head>
<title> ไฟล์แพ็คเกจ v0.1 </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<HTA: แอปพลิเคชัน
id = "ไฟล์แพ็คเกจ v0.1"
ApplicationName = "Package File V0.1"
เวอร์ชัน = "0.1"
Scroll = "ไม่"
innerBorder = "ไม่"
ContextMenu = "ใช่"
คำบรรยายภาพ = "ใช่"
icon = "ไม่"
showintaskBar = "ใช่"
singleinstance = "ใช่"
sysmenu = "ใช่"
MaximizeButton = "ไม่"
WindowState = "ปกติ"
Navigable = "ใช่"
-
<ภาษาสคริปต์ = "vbscript">
ฟังก์ชั่น transfert ()
ชื่อไฟล์หรี่
filename = document.getElementById ("srcfile") ค่า
ถ้า len (ชื่อไฟล์)> 0 แล้ว
หรี่
'เมื่อเกิดข้อผิดพลาดต่อไป
'// 创建 xmlhttp 对象
ตั้งค่า oreq = createObject ("msxml2.xmlhttp")))
oreq.open "get", "ไฟล์: //" & 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)))))
ถ้า Len (S) <2 จากนั้น
s = "0" & s
สิ้นสุดถ้า
'kk = kk & s
kk (i) = s
ต่อไป
สร้างชื่อไฟล์เข้าร่วม (KK, "")
อื่น
document.getElementById ("srcfile") โฟกัส
msgbox "请选择要压缩的文件", 16, "提示"
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นทำ (ชื่อไฟล์ข้อมูล)
Dim HTM, ไฟล์
file = mid (ชื่อไฟล์, instrrev (ชื่อไฟล์, "/")+1)
htm = htm & data
สลัว fso, f
สลัว this_file
this_file = ไฟล์ & "-pf.htm"
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ตั้งค่า 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">>
请选择文件： <อินพุตประเภท = ไฟล์ id = "srcfile"> [br] [br]
<อินพุต type = button value = "转换" onclick = "transfert"> <input type = button value = "关闭" onclick = "window.close">
</body>
</html>