存档
在老四(http://www.0097.org/laos/)的博客上看到一电子钢琴，下边还有千千阙听的曲子，想马上弹奏一曲，好累啊，音调好像也不对，写了一个VBScript的脚本，给他留了言。结果该文章不显示了，提示找不到文件
Windows虚拟主机的悲哀啊，因为网页中有了Wscript脚本，结果被主机非屏蔽了，或说被杀毒软件Killer了，以前用Win主机生成的时候也出现过这种问题，真的不是故意的，再次像老四抱歉。
下面是老四的键盘钢琴
下面保存为vbs,运行后，打开本页面即可用该脚本模拟键盘按键，听到千千阙听
Sub start
‘每个空格代表演示1000毫秒，两个按键间隔400毫秒
‘童话
‘keys="LONOL LONOL LONO OOMMLL ONOL LQPPO LONOM MMOTS PPRRQQ QQNPOONO ONOR LSRQPPPRRQQ QQVUTUV VPOT TTSSSLSRQQRQ QRQ RQPOOQST TTSPPRQ OQST TTSPPRQRQPO PQMMOONO"
‘心语心愿
‘keys="TVUTSTQ TSTVUVUTUV VWXXXXW VUTUS TVUTST QSTXWVUV VUTTTTSSTQSSTXWVUVV VUTTSUT"
‘会呼吸的痛
‘keys="STVTXXTW WWVUVWXWSV VUTUVRRRVVWVSSS SYXWXX STVTXXTW WWVUVWXWSVVVUTUVRRRVVWVSSS STUVVUVV"
‘欢乐颂
‘keys="J J K L L K J I H H I J J I IJ [...]
朋友手中有上千个域名，现在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来生成。
[...]