存档
通过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之上传图片预览工具， 大大的提高了工作效率~
但是新的问题又出现，因为图片信息不全，我们网络部（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 [...]
在网站上经常用到根据客户IP显示城市的功能，如果只是简单的查询功能，直接用网上写好的纯真的IP数据库查询工具（如:114IP.NET）即可！如果想要该地区访客的统计什么的，网上下载的这些源码恐怕就无能为力了。这个时候就需要我们把纯真IP数据导入到数据库中。
在Baidu上找了下，看到一篇通过导入纯真查询程序生成IP的数据库的文本格式到表A，然后再次用一个ASP文件来访问数据表A，把A表的IP转换到B表，这种方法我不是很赞成，而且有一定的局限行，比如要将纯真IP数据库转换成MDB格式，必须装Access，将纯真IP数据库转换成MSSQL必须安装MSSQL，转换城MYSQL必须安装MYSQL。即使安装了数据库还要安装IIS，对与新手操作可能有些麻烦了~
我写了一个VBS的脚本，通过ADODB.Connection链接数据库，然后用ADODB保存到将纯真IP数据库转MDB数据库
Function Mappath(n)
Mappath=Fso.getabsolutepathname(n)
End Function
Function IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
if err<>0 then IpN=0
err.clear
IpToNum=IpN
End Function
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
on error resume next
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Set Rs=CreateObject("ADODB.Recordset")
Rs.open "Select * from d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Do while not Fto.atendofstream
Rs.addnew
Res=Split(Replace(Replace(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs("h")=Res(3)
Wscript.Echo "From "&Res(0)&" To "&Res(1)&" Updated."
Rs.update
Loop
Rs.close
将纯真数据库转MSSQL数据库也很简单，只需改
Conn.open “driver={SQL Server}; server=(local);database= ;uid= ;pwd= ”
将纯真数据库转MYSQL数据库，只需改
Conn.open “Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassword];option=16386;”
与生成DOC文件同时接的，废话不多说，直接发代码
< %
download=trim(request("Downloads"))
if download="Get:输出结果.xls" then
Response.ContentType = "Application/msexcel"
Response.AddHeader "Content-Disposition","attachment; filename=输出结果.xls"
‘+飞猫友情制作
‘http://www.miaoqiyuan.cn
path=server.mappath("./")
set fso=server.createobject("Scripting.FileSystemObject")
set fpo=fso.getfolder(path)
for each files in fpo.files
ftype=fso.getExtensionName(files) ‘文件扩展名
if ftype="mp3" or ftype="wma" or ftype="txt" then
response.write replace(files.name,"."&ftype,"")&" "
i=i+1
if(i mod 3)=0 then i=0:response.write chr(13)+chr(10)
end if
next
set fpo=Nothing
Set fso=Nothing
else
response.write "<a href=""?Downloads=Get:输出结果.xls&Pid="&date()&"-"&replace(time(),":","-")&""">下载Excel输出结果"
end if
%>
原文地址:http://www.miaoqiyuan.cn/p/FlyCatGameCMS/
下载地址:
http://miaoqiyuan.cn/Products/flycatgamecms.rar
(临时CMS不能生成首页，因为自己不是美工出身，SO…)
程序支持模板，可生成静态页~
没有首页模板文件，所以使用者要自己写首页，我的第一个整站程序。
下面说说主要目录:
|–config\ 程序配置目录
| |–conn.+飞猫 配置数据库及站点名称
| |–plus.+飞猫 当前使用的插件的数据，程序生成
|–fck\ 大名顶顶的FCKEDITOR编辑器
|–manger\ 后台管理路径
|–not.vistor#\ 数据库目录
|–plus\ 插件目录，把插件拷入该目录，后台程序能自动识别，在后台启用即可生效
|–sys\ 程序内核，所有的核心程序都在该目录下
| |–gamemanger.+飞猫 游戏后台管理核心文件
| |–plus.+飞猫 插件后台管理核心文件
| |–pagebulid.+飞猫 页面生成文件核心文件
| |–siteconfig.+飞猫 站点配置核心文件(预留，因为周日加班，所以暂不支持)
|–ui\ 故名思义，界面，模板文件所在目录
| |–common\ 公共模板文件所在目录
|–images\ JS脚本，CSS,图片所在目录
| |—gamepic 游戏图片上传目录
公共模板在ui/common目录下，为了提高可用度，模板文件分为三个:
1).head.html
可用标签:<!–[use:tag]title[/]–>,<!–[use:tag]gamelist[/]–>,<!–[use:tag]site[/]–>
2).main.html
可用标签:<!–[use:tag]content[/tag]–>,<!–[use:tag]getimg[/]–>
3).foot.html
获取CDKEY插件有各插件目录下的”demo.+飞猫”控制。支持的标签有:<!–[use:template]xhead[/]–>,<!–[use:template]xbody[/]–>,<!–[use:template]xfoot[/]–>,<!–[use:tag]plus[/]–>,<!–[use:tag]site[/]–>
插件功能定制:目录名a_b\,b为插件名称,”demo.+飞猫”为插件模板，以此生车不够在{gamename}_getkey.html；”说明.txt”为插件说明文件，在后台调用插件的时候显示；”system.+飞猫”为插件的核心文件。
程序后台:/admin.asp，密码:admin888
程序创新方面:使用了FlyCat JsEasy框架，FlyCat LoadingADs框架。
程序不足：因为时间仓促，模板编写的过于简单，有些地方严重变形。
下步计划:以此基础开发多用户游戏推广营销平台，每用户随意创建虚拟子目录(有FlyCat 404URLRewrite实现,由http://miaoqiyuan.cn/p/wordpress-plus-chc/此文扩展而来)，随意添加删除游戏，各游戏互不影响，是有该系统可留住一些游戏推广专员，实现网站流量的暴增，该系统需有独立IP，根据IP授权。如无独立IP主机，本人可提供中国万网带独立IP虚拟主机，成本价销售(150MB,150元)