存档
在很多场合，特别重要的要加密传输。使用成熟的加密算法是一个不错的选择，但是~ 有些算法这个语言支持而另一种语言不支持。或者直接要安装某某组件，实在是太烦琐了，为了方便以后使用，自己抽空写了一个。
谷歌的Chrome系统终于出现了，它的最大的优点是开机速度超快、入手超简单。进入ChromeOS，唯一的程序就是一个浏览器。所以可以说对所有木马和病毒免疫。所有文档均云存储在互联网上，不用担心丢失，也令其成为最安全的操作系统，另外几秒钟便可启动并接入互联网，也让同类上网本黯然失色。目前Win8是唯一能与之抗衡的系统。
可能用过Win8的用户，会感觉Win8是个怪胎。如果同时用ChromeOS和Win8的用户，会无奈的发现。这是一场革命。就像Win取代Dos，一部留神。我们都Out了。要知道当初Dos用户也说自己用的最优秀的系统，Win98/Win2000到05年的时候，仍占半壁江山。
最近公司想整理下业务，看看有什么漏掉的订单。万网，息壤的业务比较多。万网的可以导出csv，而息壤就悲剧了。好几百页，只能一条一条的复制，郁闷。受QQ云输入法的影响，将JS保存到收藏夹，点击链接执行JS，加载外部JS创建表单，通过DOM获取内容，提交到本地的数据库。剩下的就好处理了。
1、新建收藏夹项目，路径填写：
javascript:(function(){$tmp=document.createElement("script");$tmp.src=’http://192.168.99.29/_app/xirang.js’;document.getElementsByTagName("head")[0].appendChild($tmp);})();
2、本地架设好服务器，xirang.js内容如下：
(function(){
$tmp=document.createElement("div");
$tmp.innerHTML=’ <form action="http://192.168.99.29/_app/xirang.asp" style="display:none" method="post" id="__tmp_form"><textarea name="txtdb"></textarea></form>’;
document.getElementsByTagName("body")[0].appendChild($tmp);}
)();
hostlist = (function(){
_t=document.getElementsByTagName("table");
for(i=0;i<_t.length;i++){
if(_t[i].getAttribute("className") == "listtable"){
return _t[i];
}
}
return "";
})();
if(typeof(hostlist) == "object"){
__tmp_frm = document.getElementById("__tmp_form");
__tmp_frm.txtdb.value [...]
很早之前就想一套PHP无限级分类函数，供以后的项目用，今晚闲了无事，就写一个把。懒得动脑，就按以前的ASP无限级分类函数的思想写一个把。
/*
作者：苗启源(Miaoqiyuan.cn)
函数：getCatagory
功能：获得分类列表
参数：cat_arr -> 分类数组(Rscordset:id:分类编号,pid:上级分类,name:分类名称,childs:子分类)
cat_pid -> 上级分类编号
cat_childs [...]
本文为catseven落伍缩写，已发到落伍者，供catseven落伍。如有引用，请注明出处。
因为工作，经常要操作数据库，考虑到安全问题，在防火墙中没有开mssql端口。每次遇到必须使用查询分析器的时候，就麻烦了。为了方便工作，写了这个工具。
可以操作所有ADODB连接的数据库，当然包括MSSQL，MySQL，Access….
本工具分为两个部分。控制代码和输入代码。
控制代码就是VBScript部分，可以实现所有逻辑操作，和asp操作一样。
输入部分就是Link、SQL分别用于输入连接字符串，SQL语句。如果控制代码不调用这些语句，则这部分无实际意义。
默认，控制代码已经写好一个模板。点击执行，可以执行SQL语句，点击下载，将执行结果保存到Excel中。
因为能直接操作VbScript，如果要使用，请设置好权限。新建mssql用户，在iis中设置mssql.asp以mssql的身份执行。mssql.asp的访问权限只有mssq用户。mssql对所有文件无任何权限，对mssql.asp只有可读权限。
代码如下：
<%
Server.ScriptTimeout = 9999
starttime = timer()
cmd = request("cmd")
if request("out")="xls" and trim(cmd)<>"" then
response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition", "attachment;filename=执行结果.xls"
execute(cmd)
response.end
end if
%>
<style type="text/css">
form{text-align:center}
textarea{width:100%;height:200px;border:solid 1px #CCC;}
input{height:20px;vertical-align:middle}
input.input{border:solid 1px #CCC;width:40%;line-height:18px;color:#090}
a{font-size:12px;color:#C00;text-decoration:none;}
</style>
<form action="mssql.asp" method="post">
<textarea name="cmd">
<%
if trim(cmd)="" then
%>set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Request("link")
Set Rs=Conn.Execute(Request("sql"))
for i = 0 to Rs.Fields.Count-1
[...]
< %
set FSO = Server.CreateObject("Scripting.FileSystemObject")
Function CheckFile(byval Path)
pathArr = Split(Path,"/")
Path = replace(Path,"/" & pathArr(ubound(pathArr)),"")
if Path = "" then Exit Function
if not FSO.FolderExists(Server.Mappath(Path)) then
Call CheckFile(Path)
FSO.CreateFolder(Server.Mappath(Path))
end if
End Function
Function newFile(byval Path)
if Right(Path,1)="/" then
Path = Path & "index.html"
end if
Call CheckFile(Path)
Set newFile = FSO.CreateTextFile(Server.Mappath(Path))
End Function
set n = newFile("/index/cat2/path/demo/111/222/333/444/555/666/777/888/")
n.write "12345"
n.close
set n = nothing
set n = newFile("../../../../test.css")
n.write "body{}"
n.close
set n = nothing
%>