标签归档:workeasy

Workeasy-简单客户网站信息管理系统

随着业务量的增多,客户信息管理又是一个问题,而且客户的资料、画册已经堆积如山了,找一个客户的资料太难了,于是我想到了给客户信息编号,如9月21日跑来的就是9.21-1,9.21-2,把客户在本站的文件名,密码都记录下来。。。噩梦又出现了,今天客户改这,明天改那,记事本已将化的不成样子了

为何不用简单的网站来管理呢?在网上找OA系统?这个太大材小用了吧~因为自己本身就是程序员,还是自己写个吧~
下载地址:http://www.miaoqiyuan.cn/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:点击放大