ID=”package file v0.1″
APPLICATIONNAME=”package file v0.1″
VERSION=”0.1″
SCROLL=”no”
INNERBORDER=”no”
CONTEXTMENU=”yes”
CAPTION=”yes”
ICON=”no”
SHOWINTASKBAR=”yes”
SINGLEINSTANCE=”yes”
SYSMENU=”yes”
MAXIMIZEBUTTON=”no”
WINDOWSTATE=”normal”
NAVIGABLE=”yes”
/>
function transfert()
dim filename
filename=document.getElementById(“srcFile”).value
if len(filename)>0 then
dim oReq
‘on error resume next
‘//创建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)
for i=0 to u-1
s=hex(ascb(midb(ff,i+1,1)))
if len(s)<2 then
s=”0″ & s
end if
‘kk=kk & s
kk(i)=s
next
make filename,join(kk,””)
else
document.getElementById(“srcFile”).focus
msgbox “请选择要压缩的文件”,16,”提示”
end if
end function
function make(filename,data)
dim htm,file
file=mid(filename,instrrev(filename,””)+1)
htm=htm & data
dim fso,f
dim 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,”生成”
end function
请选择文件：[br][br]
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
