標簽歸檔:workeasy

Workeasy-簡單客戶網站信息管理系統

隨著業務量的增多,客戶信息管理又是一個問題,而且客戶的資料、畫冊已經堆積如山了,找一個客戶的資料太難了,于是我想到了給客戶信息編號,如9月21日跑來的就是9.21-1,9.21-2,把客戶在本站的文件名,密碼都記錄下來。。。噩夢又出現了,今天客戶改這,明天改那,記事本已將化的不成樣子了

為何不用簡單的網站來管理呢?在網上找OA系統?這個太大材小用了吧~因為自己本身就是程序員,還是自己寫個吧~
下載地址:http://www.shiekolong1185.icu/products/sitemanger.rar

通過本程序,可以方便的列出需要拍照的,需要傳圖的,沒有簡介的,需要客戶確認的,已經完成的單子的信息~

大大的放百年了我們的管理,值得一提的(我最自豪的)是直接點擊公司名稱即可選中(邊框為藍色),再點取消,通過點擊上邊的“修改為..”可以批量修改選中的Case的狀態(隱藏了checkbox,點擊設checkbox設為Ture),不是通過ID來修改,項目可以為任意多,而且可以通過全選,反選來快速選擇。

運用了CSS+Javascript+ASP(VBScript),在workeasy系類中我最喜歡的一個工具。

SiteMange 點擊放大

Workeasy之不變形批量轉換圖片文件大小

通過WorkEasy之上傳圖片預覽工具,Workeasy之圖片文件統計打印大大的提高了我們的工作效率,是上傳圖片成為了一個輕松的問題,因為用的圖片不得不做一下處理,用的圖片大小甚至是200×900像素,服務器程序用ASPJPEG生成120×120的縮略圖,因為為了快捷,所以直接穿了上去不,不變形才怪~~

然后是客戶提出種種意見,然后我們開始了無休無止的修改圖片為統一的大小,長寬比為1:1,用WorkEasy之上傳圖片預覽工具列出圖片,本來30張圖二十多分鐘就傳完了,但是修改30張圖甚至用到兩個小時~對于我這種懶人簡直是一個要命的問題,曾今想過N多次不干了,但是又N+1次回到了工作崗位~

十一長假,別人都放了一個星期,而我們僅僅2天~555555,壓得活太多了~

昨天沒事看了看ASPJPEG的文檔,E文的,因為在回老家了,沒有時間上網,簡直是…,好在我對VBScript用的還是比較熟練(在自己博客上就不謙虛了),在家上有效果圖,這樣就大體明白了ASPJPEG的用法,然后寫出了這個小工具!

Workeasy之不變行批量轉換圖片文件大小,嘎嘎,簡直太棒了,能自動修改圖片大小,而且不變形,代碼很簡單,我在老家寫的,先吧主要代碼寫在紙上,會來馬上放到了博客,呵呵,明天工作,狂輕松了,。。,。

用了ASPJPEG,大體思路如下:
1.遍歷程序所在文件夾(也可單獨設置),并打開JPG文件
2.獲取JPG文件長寬,并判斷寬高
3.如果寬>=高,現寬=400,現高=400*JPEG圖片的寬/JPEG圖片的高;TMP=(400-現高)/2,然后用ASPJPEG的Crop 0,-TMP,400,現高+TMP,這樣圖片上下就有一個上下一樣大小的空白,這樣就是一個400×400的圖片了,怎么改變大小都不會變形了;同理,設高400,然后在圖片兩邊加一個同樣大小的空白。
4.保存文件

這樣就全自動修改了圖片的大小,而且不會變性,2個小時的工作只需1秒~嘎嘎,爽呆呆咯~_~
代碼如下,需要安裝ASPJPEG,否則不會正常運行。

?

<html>
<head>
<script type="text/vbscript">
Function Mappath(v)
 Mappath=fso.getAbsolutePathName(v)
End Function
 
Sub Convert
	for each file in fpo.files
		if ucase(fso.getExtensionName(file))="JPG" Then
			jpeg.open file
			owidth=jpeg.originalwidth
			oheight=jpeg.originalheight
			if owidth>=oheight then
				jpeg.width=400
				jpeg.height=400*oheight/owidth
				om=(400-jpeg.height)/2
				jpeg.crop 0,0-om,400,jpeg.height+om
			else
				jpeg.width=400*owidth/oheight
				jpeg.height=400
				om=(400-jpeg.width)/2
				jpeg.crop 0-om,0,jpeg.width+om,400
			end if
			jpeg.save file
			jpeg.close
		end if
	next
	msgbox "轉換完畢。"
	window.close
End Sub
 
set fso=CreateObject("Scripting.FileSystemObject")
set jpeg=CreateObject("Persits.JPEG")
set fpo=fso.getFolder(Mappath(""))
 
</script>
</head>
<body style="background:#D4D0C8;text-align:center" onload="Convert">
<div style="width:640px;height:400px;margin-top:50px;border:solid 2px #666;background:#FFF;font-size:48px;font-weight:800;font-family:黑體;line-height:400px;">
請稍后...
</div>
</body>
</html>

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:點擊放大

?