存档
Test
Test
/*
文件名：set-Object.html
设计者：苗启源
功 能：可以方便的给DOM对象添加方法，可支持所有浏览器
主 页：http://www.miaoqiyuan.cn/p/set-Object
*/
var $=function(id){return document.getElementById(id);}
//SetObject 设置对象属性
var setObject=function(c,d){for(p in d){c[p]=d[p];if(p==”init”)c.init();}return c;}
//扩展属性
var __isIE=function(){return window.ActiveXObject}
var __Name=function(t){if(this.tmp)this.name=this.tmp;else this.name=’Hello’}
var __setClass=function(t){if(__isIE){this.className=t}else{this.setAttribute(‘class’,t);}}
var __getClass=function(){if(__isIE){return this.className}else{return this.getAttribute(‘class’);}}
//测试对象
var ob=$(“Demo”);var ob2=$(“Demo2″);
setObject(ob,{tmp:’Demo’,init:__Name,setClass:__setClass,getClass:__getClass});
setObject(ob2,{init:__Name,setClass:__setClass,getClass:__getClass});
document.write(ob.name+”\n”);
document.write(ob2.name+”\n”);
document.write(ob.getClass()+”\n”);
document.write(ob2.getClass()+”\n”);
ob.setClass(‘newDemoClass’);
ob2.setClass(‘newDemo2Class’);
document.write(ob.getClass()+”\n”);
document.write(ob2.getClass()+”\n”);
因为周日加班，所以程序的发布计划被完全打乱，本人决定在细节上做一下修改，于元旦发布。
FlyCat(CatSeven) 美女图片程序框架完成,预计下周一即可发布。
登陆图片使用了UGUG.CN上的404错误页的背景图。
后台顶部导航条参考了139邮箱的导航。
后台仅有一个页面，所有功能都由Ajax请求，并输出结果。
朋友手中有上千个域名，现在cn域名续费涨价了，准备抛弃一些。让我帮忙写个小程序来筛选一下，看看那个有留下的价值。当时我放出大话，20分钟搞定。最初设想的是生成Excel文件，通过Excel中的筛选来统计。
代码如下(附件包中的excel.vbs):
‘域名统计程序，生成excel结果
‘通过VBS获取当前目录，替代ASP中的Server.Mappath
Function Mappath(v)
Mappath=fso.getAbsolutePathName(v)
End Function
‘写得一个函数，用于判断字符串中是否含有数字。
Function iszajiao(v)
for i=1 to len(v)
if isnumeric(mid(v,i,1)) then
iszajiao=1
exit for
end if
next
End Function
‘创建一个FSO对象
Set fso=CreateObject("Scripting.FileSystemObject")
‘判断是否有生成的Excel结果ok.xls，如果有，则删除
if fso.fileexists(mappath("ok.xls")) then fso.getfile(mappath("ok.xls")).delete
‘创建一个ok.xls
set fto=fso.createtextfile(mappath("ok.xls"),2)
wscript.echo "吴哥哥，请稍等，我正在为您工作中。。。"
fto.writeline "域名 后缀 位数 类型"
‘寻找当前目录中的所有txt文件，如果有则依次打开
for each file in fso.getfolder(mappath(".")).files
if Lcase(fso.getExtensionName(file))="txt" then
set db=fso.opentextfile(file,1)
‘如果不是在txt文件的结尾，则循环读取
do while not db.atendofstream
rs=db.readline
‘获取域名的位数，即第一次出现.的位置-1
ws=cint(instr(rs,".")-1)
‘防止本行数据为空行
if ws>=1 then
rsi=rsi+1
‘获取域名
ym=left(rs,ws)
‘获取域名后缀
hz=replace(rs,ym&".","")
‘分析域名类型，如果ym为数字则为数字
if isnumeric(ym) then
lx="数字"
‘否则，如果出现数字则为杂交
elseif iszajiao(ym)=1 then
lx="杂交"
‘其他类型就剩下字母了
else
lx="字母"
end if
‘输出
fto.writeline ym&" "&hz&" "&ws&" "&lx
end if
loop
end if
next
fto.close
set fto=nothing
msgbox "吴哥哥，我帮你完成工作了，怎么谢我呢？请我吃MM吧"
正准备邀功请赏的时候，朋友竟然说没用过Excel，狂吐血，并且还不想用数据库。这儿就有点复杂了，初步设想生成HTML文件，然后把数据保存到数组中，根据Select的选项来现在最终结果。
我是从两个方便考虑的，生成网页部分由Javascript控制，这些Javascript最终代码由VBScript来生成。
[...]
刚写个一篇激活Vista的烂文，现在在此烂文截图的基础上扩展一下，Vista的界面就是漂亮，特别是窗口方面，太漂亮了。
实用该图作为背景，来写个有Vista边框的框架吧~后边的窗口直接用Iframe,前边用div，分三层，背景，iframe，前端DIV，因为实在vista中的截图，现在在win2003下，不能截图，仅有一张背景图，所以要div层叠在iframe上，而且还要实用背景图，有点难度，不过这样正好可以来练习练习CSS，好久没写了
不想写了，代码写了两三个小时，效果如下：http://www.miaoqiyuan.cn/Products/vista-bg-test.htm
直接发代码了
<style type="text/css">
body{background:url(‘vista.jpg’);background-repeat:no-repeat;padding:0px;margin:0px;overflow:hidden}
div{position:absolute;z-index:999;margin-left:472px;margin-top:264px;margin-right:0px;width:534px;height:341px;background:url(‘vista.jpg’) #333;background-position:-472px -264px;background-repeat:no-repeat;}
a{border:#FEE solid 1px;display:block;background:#F8F8F8;height:40px;margin-left:46px;margin-top:8px;line-height:40px;font-size:24px;font-family:黑体;text-indent:2em;color:#8B859F;text-decoration:none;font-weight:800}
a.s1{height:55px;line-height:55px;margin-top:118px;}
a strong{font-size:18px;font-weight:400;color:#999}
a span{display:none}
a:hover{color:#000;border:#666 solid 1px;}
a:hover strong{display:none;}
a:hover span{display:inline;padding-left:20px;font-size:16px;color:#F00;font-weight:400;font-family:宋体}
iframe{margin-left:102px;margin-top:110px;width:782px;border:none;height:497px;}
input{margin:0px;margin-top:5px;height:25px;font-size:22px;}
</style>
<body>
<div>
<a class="s1" href="About:电影@远通" onclick="this.href=’ftp://www.yuantong’" onblur="this.href=’About:电影@远通’" target="_blank">电影<strong>(Moives)</strong><span>点击打开电影库，可以通过迅雷下载哦</span></a>
<a href="About:软件@远通" onclick="this.href=’ftp://www.yuantong/install’" onblur="this.href=’About:软件@远通’" target="_blank">软件<strong>(Softwares)</strong><span>点击打开软件库，各类软件应有尽有</span></a>
<a href="About:资询@远通" onclick="document.getElementById(‘locaweb’).src=’http://miaoqiyuan.cn’;return false;">主页<strong>(How to use?)</strong><span>点击访问飞猫主要寻找帮助信息</span></a>
<a href="About:上网@远通" onclick="return false;">上网<strong>(Internet)</strong><span><input id="url" value="请输入网址或关键字" size="28" onmouseout="this.blur();if(this.value==”)this.value=’请输入网址或关键字’;" onclick="this.value=”" /><input type="button" value="Go" onclick="document.getElementById(‘locaweb’).src=’loadweb.html?url=’+document.getElementById(‘url’).value;" /></span></a>
</div>
<iframe src="http://www.miaoqiyuan.cn" id="locaweb" ></iframe>
</body>
随着业务量的增多，客户信息管理又是一个问题，而且客户的资料、画册已经堆积如山了，找一个客户的资料太难了，于是我想到了给客户信息编号，如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系类中我最喜欢的一个工具。