标签归档:adodb

PHP连接Access的方法

最近准备放弃使用许久的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();
	}
?>

set rs=conn.execute,set rs=server.createobject(“ADODB.recordset”)的若干谎言

经常用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")
%>

公共底部:footer.asp

<hr />总共用时:< %=(timer()-startTme)*1000%>毫秒

测试方法:以三种方式,每页100条记录。同时读取第6000页到6099页的记录共一万条,并测出运行时间。

test1.asp,采用set rs=server.createobject(“ADODB.recordset”)的方法。


< %
for k=0 to 100
	response.write "<br /><br />第"&(6000+k)&"页<hr />"

	set rs=server.createobject("adodb.recordset")
	rs.open "select * from site",conn,1,1
	rs.pagesize=100
	rs.absolutepage=6000+k
	i=0
	do while not rs.eof and i<100
		i=i+1
		response.write rs("id")&":"&rs("sitename")&"<br />"&vbCrlf
		rs.movenext
	loop
	rs.close
	set rs=nothing

next
%>

test2.asp 采用set rs=conn.execute()的方法


< %
for k=0 to 100
	response.write "<br /><br />第"&(6000+k)&"页<hr />"

	set rs=conn.execute("select * from site")
	rs.movefirst
	rs.move (6000+k)*100
	i=0
	do while not rs.eof and i<100
		i=i+1
		response.write rs("id")&":"&rs("sitename")&"<br />"&vbCrlf
		rs.movenext
	loop
	rs.close
	set rs=nothing

next
%>

至于getRows,这种方法只能算是返回结果的优化,并不能算是一种方法。我们采用两种返回结果的方式测试。test3.asp采用set rs=server.createobject(“ADODB.recordset”)的方法,test4.asp采用set rs=conn.execute(sql)的方法


< %
for k=0 to 100
	response.write "<br /><br />第"&(6000+k)&"页<hr />"

	set rs=server.createobject("adodb.recordset")
	rs.open "select * from site",conn,1,1
	rs.pagesize=100
	rs.absolutepage=6000+k
	res=rs.getRows(100)
	rs.close
	set rs=nothing
	for i=0 to 99
		response.write res(0,i)&":"&res(1,i)&"<br />"&vbCrlf
	next

next
%>


< %
for k=0 to 100
	response.write "<br /><br />第"&(6000+k)&"页<hr />"

	set rs=conn.execute("select * from site")
	rs.movefirst
	rs.move (6000+k)*100
	res=rs.getRows(100)
	rs.close
	set rs=nothing
	for i=0 to 99
		response.write res(0,i)&":"&res(1,i)&"<br />"&vbCrlf
	next

next
%>

下面是我的测试结果:

test1.asp test2.asp test3.asp test4.asp
第一次测试 4281.25毫秒 20656.25毫秒 4281.25毫秒 18671.88毫秒
第二次测试 4234.375毫秒 25171.88毫秒 4312.5毫秒 13781.25毫秒
第三次测试 4328.125毫秒 20031.25毫秒 4234.375毫秒 19093.75毫秒

为什么会出现这种结果呢?set rs=conn.execute(sql),set rs=server.createobject(“ADODB.recordset”)为什么为相差这么多?对比一下test1.asp、test3.asp与test2.asp、test4.asp,除了返回结果的方式不同,还有一处就是rs.move。难道是这个原因?把test3.asp的代码稍微修改一下。存为test5.asp。


< %
for k=0 to 100
	response.write "<br /><br />第"&(6000+k)&"页<hr />"

	set rs=server.createobject("adodb.recordset")
	rs.open "select * from site",conn,1,1
	rs.movefirst
	rs.move (6000+k)*100
	res=rs.getRows(100)
	rs.close
	set rs=nothing
	for i=0 to 99
		response.write res(0,i)&":"&res(1,i)&"<br />"&vbCrlf
	next

next
%>

经过测试,test5.asp能比test3.asp快0.1~0.2秒,如果读取100条数据,这点差距可以忽略不计。

由此可见:set rs=conn.execute的方式确实比set rs=server.createobject(“ADODB.recordset”)方式慢,在学校的时候,老师教的一般都是set rs=server.createobject(“ADODB.recordset”)的方法,真正工作室,学习所谓的高手set rs=conn.execute优化的方法,结果最终发现,而鄙视用老师教的方法写程序的同行,最终发现还是老师教的速度快,而且set rs=server.createobject(“ADODB.recordset”)的方法比set rs=conn.execute的方法快4~5倍。囧。。。。猫七(苗启源)博客首发,转载请注明出处,原文地址: (http://www.miaoqiyuan.cn/p/conn-execute_rs-getrows)。

难道set rs=conn.execute就一无是处了吗?在数据插入方面,两者的差别有多大呢?详情请关注我的博客(http://www.miaoqiyuan.cn)今天太累了,就写这些吧~

ASP使用BinaryWrite与Adodb.Stream实现下载

因为某种原因要实现一个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 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"
do while not fts.atendofstream
	response.binarywrite fts.readall
loop
%>
</form>

效率有所提高,因为FSO每次读取硬盘,速度很慢~到网上搜索了一下,发现Adodb中除了Connection和Recordset,还有一个Stream,于是有了第三种方法:

< %@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
 
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename="&now&".rar"
 
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Ados.LoadFromFile(Server.mappath(split(request.QueryString,"/")(1)&".rar"))
 
response.binarywrite Ados.read()
%>
</form>

速度已经不错了,同时很多人访问CPU占用也不是很高。