通过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> |