苗启源的部落格

最近准备放弃使用许久的vbscript作为处理工作方面问题，而转向PHP。
应该是ASP转向PHP把，怎么是vbscript转向php？这个我要说一下，处理工作方面问题，比如通过API导个数据…用ASP，PHP在IIS中执行肯定不行，写个VBScript脚本，cscript 脚本名 让他执行吧，别的不用关了。所以用脚本处理些数据转换、导入导出还是不错的选择。
VBScript的致命的缺点是不支持引用文件，对HTTP请求方便不是很强，正则、XML处理起来不方面，JSON作为数据载体时就等着傻眼把。这是后用php作为脚本也是一个不错的选择。扯得有点远了，换成了php，数据库还是Access怎么办？这个简单，直接用com创建adodb实例即可。
现在已经创建好了数据库，只填写了部分域名，要通过php到域名查询接口返回whois信息，并存到Access数据库中，Access字段名已对应返回数组中的索引相同。

<?php
set_time_limit(0);

#因为要链接web，使用我前几天写的myhttp类。
include(‘myhttp.clsss.php’);
#API操作，这里直接忽略，里边有个get_domain_info来获取API返回的数据，并处理成数组。
include(‘api.function.php’);

$conn = new COM("Adodb.Connection");
$conn -> open("provider=microsoft.jet.oledb.4.0;data source=D:\myweb\miaoqiyuan.cn\test\php-linkdb\domain.mdb");

$dlist = new COM("ADODB.Recordset");
$rs = new COM("ADODB.Recordset");

$dlist -> open("select [domain],[did] from [domain] where isupdate=0",$conn,1,1);
while(!$dlist -> eof()){
echo "下载域名数据[".$dlist['domain']."].\n";
$d=get_domain_info($dlist['domain']);
$rs -> open("select * from [domain] where did=".$dlist['did'],$conn,3,2);
foreach($rs -> fields as $k => $v){
if($k >= 6){
$myvalue = [...]

经常用asp的同行，可能会建议用set rs=conn.execute(sql)来代替set rs=server.createobject(“ADODB.recordset”):rs.open conn,sql,1,1。还有一些同行更提出了用set rs=conn.execute(sql):res=rs.getRows(100)来优化ASP程序。其实在没有做此实验前，我也是很相信这种方法的。实际效果果真如此吗？经过一番测试，我发现结果远非如此，set rs=server.createobject(“ADODB.recordset”)的方法比set rs=conn.execute的方法快4~5倍。这个结果您信吗？不信，更我来一起做这个测试。猫七(苗启源)博客首发，转载请注明出处，原文地址： (http://www.miaoqiyuan.cn/p/conn-execute_rs-getrows)。
数据说明真相。首先创建一个多记录的数据库。

set conn=createobject(“adodb.connection”)
conn.open “provider=microsoft.jet.oledb.4.0;data source=E:\labs\miaoqiyuan.cn\g.mdb”
do while conn.execute(“select count(id) from site”)(0)<1000000
conn.execute(“insert into site(sitename,siteadmin,siteurl,sitekey) values(‘苗启源’,'http://localhost/app_login/’,'http://www.miaoqiyuan.cn’,'e10adc3949ba59abbe56e057f20f883e’)”)
loop

经过几个小时的运行，我得到了一个有63万多条记录的数据库。数据库大小为99.7MB(测试数据库下载地址http://www.miaoqiyuan.cn/products/rs-execute-test.rar)。
为了保证数据的真实性，我们用公共的头部header.asp来保存数据库连接字符串。footer.asp来保存运行时间。
运行环境，Windows 2003 Server SP2。IIS6.0，CPU E2200 2.2GHz，内存2Gx2。硬盘300G SATA+80G ATA。
公共头部:header.asp

< %
startTme=timer()
set conn=server.createobject("ADODB.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("g.mdb")
%>

[...]

因为某种原因要实现一个RAR的文件的下载，而且为了节省服务器资源，需要做一个判断，下载引用方法如下:

<input type="button" value="下载工具包" onclick="location.href=’http-localhost-api?/easywork-imageupload-client-full/download/port-80/ver=<%=date%/>.gzip.rar’;">
<input type="button" value="下载升级包" onclick="location.href=’http-localhost-api?/easywork-imageupload-client-fast/download/port-80/ver=<%=date%/>.gzip.rar’;">

初步打算用FSO读取为TextStream，然后用BinaryWrite输出，代码如下：

< %@codepage=65001%>
< %
response.buffer=false
if session("safe_mode")<>"ok" then response.write "<form action=""../../../admin.asp"" method=""post"" id=""a""><script type=""text/javascript"">document.getElementById(""a"").submit();</script>":response.end
if instr(request.Querystring,"/")< =0 then response.redirect "/":response.end
set fso=server.createobject("Scripting.FileSystemObject")
file=server.mappath(split(request.QueryString,"/")(1)&".rar")
if not fso.fileexists(file) then response.redirect "/":response.end
set fto=fso.getfile(file)
set fts=fto.OpenAsTextStream(1,-1)
 
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename="&split(request.QueryString,"/")(1)&".rar"
 
response.binarywrite fts.readall
%>
</form>

实际运行时速度不是很快，可能是fts.readall的原因吧，于是修改一下代码，一行一行的输出:

< %@codepage=936%>
< %
response.buffer=false
if session("safe_mode")<>"ok" then response.write "<form action=""../../../admin.asp"" method=""post"" id=""a""><script type=""text/javascript"">document.getElementById(""a"").submit();</script>":response.end
if instr(request.Querystring,"/")< =0 then response.redirect "/":response.end
set [...]