标签归档：hta

Workeasy之图片文件统计打印

1条回复

通过WorkEasy之上传图片预览工具， 大大的提高了工作效率~

但是新的问题又出现，因为图片信息不全，我们网络部（OnlyMe）和编辑(OnlyOne)部的员工对客户的产品信息不是很了解~，这样就出现了一个新的问题，编号网网需要是某公司的编号，但是我们这边没有相关信息，客户天天到公司也不现实，怎么办呢？如果把所有图片打印出来，给客户看不久解决了吗？本来想用WorkEasy之上传图片预览工具，这样太费纸张了，于是在WorkEasy之上传图片预览工具的基础上修给，于是出现了本篇文章：Workeasy之图片文件统计打印

 打印120多张图片只需要，在下面预留了名称，分类供客户填写，代码如下：

<html><head><title>点石传媒传图预览工具 - Design By MiaoQiyuan.cn cnly888.com</title></head><body style="font-size:14px;"><table><tr><td colspan=8 style="text-align:center;background:#CCC;border:solid 2px #666;padding:5px;font-family:黑体;font-size:28px;font-weight:800">点石传媒 客户产品 统计表</td></tr><tr>
<script type="text/vbscript">
j=10000 //产品编号设置，需要1开头
co="" //公司名称
eco=""  //编号开头
fi=0 //产品名称,0:空；1:目录名；2:文件名
 
set fso=createobject("scripting.filesystemobject"):fpa=fso.getabsolutepathname("./"):set fpo=fso.getfolder(fpa):for each xx in fpo.files
if Lcase(fso.GetExtensionName(xx))="jpg" then
if i mod 8=0 then document.write "</script></tr><tr>"
if fi=1 then
	fpn=fpo.name
elseif fi=2 then
	fpn=replace(xx.name,"."&fso.GetExtensionName(xx),"")+" "
else 
	fpn=""
end if
i=i+1:document.write "<td><table height=140 width=110 bgcolor=#666666 onclick=""javascript:this.style.background='#000';"" ondblclick=""javascript:this.style.background='#666';""><tr><td bgcolor=#FFFFFF><img src="&xx.name&" width=100 height=100/></td></tr><tr><td bgcolor=#CCCCCC>名称:</td></tr><tr><td bgcolor=#CCCCCC>分类:</td></tr></table></td>"
end if:next
</tr><tr><td colspan=8 style="text-align:center;background:#CCC;border:solid 2px #666;padding:3px;font-family:黑体;font-size:18px;">版权所有：苗启源 @ 点石传媒</td></tr></table></body></html>

WorkEasy之上传图片预览工具

2条回复

最近比较忙，没有更新博客。

因为现在公司网站程序已经完成，所以我更多的时间是上传图片，因为本人实在太懒了，天天传图，而且容易重复上传，郁闷。。。忽然想起了HTA文件~嘎嘎，于是出现了WorkEasy系列文章。。

这是第一篇文章，可以设置文件名的前缀，自动为产品编号，可以选择按文件夹名或按文件名显示产品名称，通过这个工具就可以直接复制粘贴。工作好不快乐。。。。。。。。

<html><head><title>点石传媒传图预览工具 - Design By MiaoQiyuan.cn cnly888.com</title></head><body><table><tr><td colspan=4 style="text-align:center;background:#CCC;border:solid 2px #666;padding:5px;font-family:黑体;font-size:28px;font-weight:800">点石传媒 客户产品 统计表</td></tr><tr>
<script type="text/vbscript">
j=1000 //产品编号设置，需要1开头
co="宏大 " //公司名称
eco="HD"  //编号开头
fi=2 //产品名称,0:空；1:目录名；2:文件名
 
set fso=createobject("scripting.filesystemobject"):fpa=fso.getabsolutepathname("./"):set fpo=fso.getfolder(fpa):for each xx in fpo.files
if Lcase(fso.GetExtensionName(xx))="jpg" then
if i mod 4=0 then document.write "</script></tr><tr>"
if fi=1 then
	fpn=fpo.name
elseif fi=2 then
	fpn=replace(xx.name,"."&fso.GetExtensionName(xx),"")+" "
else 
	fpn=""
end if
i=i+1:document.write "<td><table height=280 width=220 bgcolor=#666666 onclick=""javascript:this.style.background='#000';"" ondblclick=""javascript:this.style.background='#666';""><tr><td bgcolor=#000000><img src="&xx.name&" width=220/></td></tr><tr><td bgcolor=#CCCCCC>名称:<input value='"&co&fpn&eco&replace("x"&i+j,"x1","")&"' style='width:174px;border:none;text-align:center'/></td></tr><tr><td bgcolor=#CCCCCC>价格:<input style='background:#FFF;border:none;width:30px;text-align:right;'/>元  规格:<input style='background:#FFF;border:none;width:80px;'/></td></tr></table></td>"
end if:next
</tr><tr><td colspan=4 style="text-align:center;background:#CCC;border:solid 2px #666;padding:3px;font-family:黑体;font-size:18px;">版权所有：苗启源 @ 点石传媒</td></tr></table></body></html>

Workeasy:点击放大