标签归档:hta

Workeasy之图片文件统计打印

通过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之上传图片预览工具

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

因为现在公司网站程序已经完成,所以我更多的时间是上传图片,因为本人实在太懒了,天天传图,而且容易重复上传,郁闷。。。忽然想起了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:点击放大