此脚本的功能为将一个目录中的jpg,gif,png格式的图片生成Html相册，页面上的图像只是改变显示大小，并没有生成缩略图。
用到的技术：Scripting.FileSystemObject，Adodb.Stream。其中得到图片长宽用了秋水无恨的Adodb.Stream取得图像的高宽
'///////////////////////////////////////////////
'VBS相册生成脚本，使用方法：将此文件放在sendto目录中（在运行中输入直接sendto，就可以打开），然后在有图片的文件夹上点右键，选择发送到，等一下，就OK了。
'海娃 http://www.51windows.Net
'更新日期:2004-12-30
'///////////////////////////////////////////////
Set ArgObj = WScript.Arguments
Set fsoBrowse = CreateObject("Scripting.FileSystemObject")
dim cpath,imgw,imgh,pagesize,wn,hn,pagetitle,filenamestart,firstpage
cpath=ArgObj(0)'传递路径
imgw = 240
imgh = 180
wn = 3
hn = 3
pagetitle = "图片展示 - 51windows.Net"
filenamestart = "Page_"
firstpage = "index.htm"
pagetitle2 = inputbox("请输入页面标题","请输入页面标题",pagetitle)
if isempty(pagetitle2) = false and len(pagetitle2) > 1 then
pagetitle = pagetitle2
end if
filenamestart2 = inputbox("请输入文件名前缀","请输入文件名前缀",filenamestart)
if isempty(filenamestart2) = false and len(filenamestart2) > 1 then
filenamestart = filenamestart2
end if
firstpage2 = inputbox("请输入第一页的文件名，点取消按序号生成","请输入第一页的文件名",firstpage)
if isempty(firstpage2) = false and len(filenamestart2) > 1 then
firstpage = firstpage2
else
firstpage = ""
end if
if len(firstpage) > 0 and (right(lcase(firstpage),4)<>".htm" and right(lcase(firstpage),5)<>".html") then
firstpage = firstpage & ".htm"
end if
imgw2 = inputbox("请输入小图的宽度","请输入小图的宽度",imgw)
if isnumeric(imgw2) and isempty(imgw2) = false then
imgw = imgw2
end if
imgh2 = inputbox("请输入小图的高度","请输入小图的高度",imgh)
if isnumeric(imgh2) and isempty(imgh2) = false then
imgh = imgh2
end if
wn2 = inputbox("请输入每行的图像数","请输入每行的图像数",wn)
if isnumeric(wn2) and isempty(wn2) = false then
wn = wn2
end if
hn2 = inputbox("请输入行数","请输入行数",hn)
if isnumeric(hn2) and isempty(hn2) = false then
hn = hn2
end if
dim info
info = "<!-- 本页面有 VBScript 相册生成脚本生成，http://www.51windows.Net -->"
pagesize = wn*hn
dim message
message = ""
message = message & "文件路径：" & chr(9) & cpath & vbnewline
message = message & "页面标题：" & chr(9) & pagetitle & vbnewline
message = message & "文件名前缀：" & chr(9) & filenamestart & vbnewline
message = message & "首页文件名：" & chr(9) & firstpage & vbnewline
message = message & "小图的宽度：" & chr(9) & imgw & vbnewline
message = message & "小图的高度" & chr(9) & imgh & vbnewline
message = message & "每行的图像数：" & chr(9) & wn & vbnewline
message = message & "行数：" & chr(9) & chr(9) & hn & vbnewline
message = message & vbnewline & "确定生成吗？" & vbnewline
dim StartRun
StartRun = msgbox(message,1,"VBS相册生成脚本")
if StartRun=1 then
CreatPageHtml(FileInofList(cpath))
end if
function FileInofList(cpath)
ON ERROR RESUME NEXT
dim FileNameListStr
&nbss7ff66Rf#DSS##'7fffffff6BR#'7fffffff&WB#'7fffffff&WB6B"#'7fffffff6B"#'7fffffff&WB"6B"#'7fff66Rf#CcCCr##'7fffffff6B2#'7fffffff&WBtb"#'7fffffff&WB6B"#'7fffffff&WB"6B"#'7fff66Rf#S3SsCb##'7fffffff6BR#'7fffffff&F6B#'7fffffff46%7G"66"&Ff#'7fffffffG3G#$gB46R#'7fffffff46B46b#'7fffffffv6fG2B#'7fffffffffff&F6B#'7fffffffffff4646%7G"66"&Ff#'7fffffffvV#'7fffffff&WB5tb"#'7fffffff&WB'27G#$B46G2&G2G#$B46G2&G2#'7fffffff&WB"'27G#$B462G2&G2G#$B46"G2&G2#'7fff66Rf$ddCdb##'7fffffffF7#'7fffffffffffF'76Bf'7vfSRff62#'7fffffffffffbffwCffbfFV'7WBfF7VRf6B&6B"#'7fffffffffffF6B'7vff#SRff62#'7fffffff'7vfG'VR#'7fffffff6B2#'7fffffff&WBr"#'7fffffff&WB"6B"#'7fffffff&WB6B"#'7fff66RfVS#'7fffffffbfgB&G"$fr$fFV'#'7fffffffffff6BR#'7fffffffffff&WB$"#'7fffffffffff&WB6BB#'7fffffffffff&WB"6BB#'7fffffffVR#'7fffffffffff&WB"#'7fffffffVb#'7fffV6V7B#'7fff&WB2vGF""fff&WBff"""fVvC""fff&WB"ff""""#'7fffvWFvW6SWB#BfgV'#Bf673#Fc#k9^njih~KniK6V^KYKZ^yNhV Xh>[KnYiY~yNih~KnZKKx+XhXXKKn8.Ki8kzK##iv#i>[Dtb##
| 
转播
