標簽歸檔: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:點擊放大

?