存档
最近准备放弃使用许久的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 = [...]
在程序设计时，可能经常用到随机读取几条记录的功能，MSSQL有order by NewID()的方法，Access怎么办呢？
经过一翻百度搜索，还真找到了一些解决方案：
网上还有一种说法，有人采用一条SQL语句解决Access随机读取几条记录的问题：select top 50 * from table order by int(rnd()*50)，不过这种方法我不敢苟同，也许是我的只是不够渊博，我竟然不能理解。如果int(rnd()*50)应该是一个数了吧，int(rnd()*50)，不初始化种子，所以每次返回结果都是一样的，所以相当于没有排序。
还有一种方法，就是先获取总记录数，然后取1~总数之间的随机数，rs.move，不过这种方法有点罗嗦，在此不推荐。
再反回来看第一种方法，如果稍微修改一下，给rnd添加一个种子呢，比如第一条记录rnd(1),第二条记录rnd(2)….。有了，数据库中的id字段(自动编号主键)不正是现成的吗？select top 10 * from news order by rnd(id)。对就是这样简单。
在测试的时候还发现了另一个有趣的事情，如果order by 常量数字，比如select top 10 * from news order by 1 desc则是按第一列结果倒序来排序。
经常用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")
%>
[...]