代码如下 :
<! doctype html public "-// w3c // dtd html 4.01 Transitional // en">
<html>
<헤드>
<title> 패키지 파일 v0.1 </title>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<HTA : 응용 프로그램
id = "패키지 파일 v0.1"
ApplicationName = "패키지 파일 v0.1"
버전 = "0.1"
스크롤 = "아니요"
Innerborder = "아니요"
ContextMenu = "예"
캡션 = "예"
아이콘 = "아니요"
Showintaskbar = "예"
SingleInstance = "예"
sysmenu = "예"
maximizebutton = "no"
Windowstate = "정상"
Navigable = "예"
/>
<script language = "vbscript">
기능 전송 ()
희미한 파일 이름
filename = document.getElementById ( "srcfile"). 값
LEN (filename)> 0이면
희미한 Oreq
'오류로 이력서에 다음에
'// m 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 = 16 진수 (ASCB (MIDB (FF, I+1,1)))
Len (s) <2 인 경우
s = "0"& s
끝 If
'KK = KK & S
kk (i) = s
다음
파일 이름 만들기, 가입 (kk, "")
또 다른
document.getElementById ( "srcfile"). 초점
msgbox "请选择要压缩的文件", 16, "提示"
끝 If
엔드 기능
기능 제작 (파일 이름, 데이터)
Dim HTM, 파일
file = mid (filename, instrev (filename, "/")+1)
HTM = HTM 및 데이터
dim fso, f
this_file을 어둡게합니다
this_file = file & "-pf.htm"
set fso = createobject ( "scripting.filesystemobject")
f = fso.opentextfile 세트 (this_file, 2, true)
F. htm
msgbox "生成文件"& this_file & "成功！", 64, "生成"
엔드 기능
</스크립트>
</head>
<body marginleft = 0 marginright = 0 onload = "window.resizeto 389,145">
： <입력 유형 = 파일 ID = "SRCFILE"> [BR] [BR]
<입력 유형 = 버튼 값 = "转换"onclick = "Transfer"> <입력 유형 = 버튼 값 = "关闭"onclick = "window.close">
</body>
</html>