苗启源的部落格

最近准备放弃使用许久的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 = $d[$rs[$k] -> name];
				if(isset($myvalue) && !is_array($myvalue)){
					$rs[$k] -> value = mb_convert_encoding($myvalue,"GB2312","UTF-8");
				}
			}
		}
		$rs['isupdate'] -> value = 2;
		$rs -> update();
		$rs -> close();
		$dlist -> movenext();
	}
?>