分类： 沉思录

现有10W条数据，Access数据库保存

通过正常提取：
 程序代码
<%
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db2.mdb")
conn.Open connstr

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from people order by id desc"
rs.Open sql,conn,1,1

Do While Not rs.EOF
    Response.write rs("id")&" | "
    rs.MoveNext
Loop
%>

http://myhhe.cn/test/getrows/show1.asp 
耗时3,250.000毫秒，总测试平均值在3秒左右

使用存储过程提取：
 程序代码
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")

cmd.ActiveConnection = conn
cmd.CommandText = "Select * from people order by id desc"
Set rs = cmd.Execute

Do While Not rs.EOF
Response.write rs("id")&" | "
rs.MoveNext
Loop
%>

http://myhhe.cn/test/getrows/show2.asp 
耗时2,187.500毫秒，总测试平均值在2秒左右

以上两种均不能彻底解决执行时间漫长的问题，主要原因即是循环每次都须向数据库抽取记录（Command速度相对较快）

那么使用GetRows()方法呢：
 程序代码
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")
cmd.ActiveConnection = conn
cmd.CommandText = "Select * from people order by id desc"
Set rs = cmd.Execute
rsArray = rs.GetRows()

For i = 0 To UBound(rsArray, 2)
Response.Write rsArray(0, i)&" | "
Next
%>

http://myhhe.cn/test/getrows/show3.asp 
耗时187.500毫秒，总测试平均值在0.2秒左右

GetRows()方法是将数据从 Recordset 复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号

所以rsArray = rs.GetRows()
rsArray(0, 0)就表示记录集第一行的第一字段值
rsArray(1, 0)就表示记录集第一行的第二字段值

数组的数据是保存在内存中的，这就从根本上解决了每次显示记录还需向数据库请求的麻烦。

另外，关于GetRows()的详细介绍和用法，这里有份内容参考

http://www.51windows.net/pages/Ado/mdmthgetrows.htm 

http://www.blueidea.com/tech/program/2005/2853.asp

大家应该都知道 Recordset 有个 GetRows 属性，但是真正使用的不多，我也是最近才用的！汗……

其实这个属性很简单，就是把数据集输出到一个数组中。但是实用性可不小，在这里我举一个例子说明一下GetRows的使用方法，大家举一反三能想到更多的用法！

比如一个分类的表 T_Cate，结构和数据如下：

ID   |   Title   |  Intro
—————————————–
1    |   新闻   |  这里是新闻
2    |   教程   |  这里是教程
3    |   下载   |  这里是下载

好了，表建立好了，数据也有了，下面我们就要用到GetRows咯！ 

Dim Rs_Cate
Dim Arr_Cate
Set Rs_Cate=Conn.ExeCute("SELECT ID,Title,Intro FROM T_Cate ORDER BY ID ASC")
Arr_Cate=Rs_Cate.GetRows
Set Rs_Cate=Nothing

好了表数据已经导出到数组了！下面我们将遍历这个数组

Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2)  '得到数组中数据的下标
For Arr_CateNumI=0 To Arr_CateNumS
    Response.Write("ID："&Arr_Cate(0,Arr_CateNumI)&" | 标题："&Arr_Cate(1,Arr_CateNumI)&" | 介绍："&Arr_Cate(2,Arr_CateNumI)&"<br>")
Next

呵呵，好了，输出的数据为：
ID：1 | 标题：新闻 | 介绍：这里是新闻
ID：2 | 标题：教程 | 介绍：这里是教程
ID：3 | 标题：下载 | 介绍：这里是下载

好了，具体就写这么多吧！文采不行，如果大家有什么不明白的，多用用就可以了，呵呵

function posts(id){
    var xmlhttp;
    try{
        xmlhttp=new XMLHttpRequest();
        }
    catch(e){
        xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
        }
    xmlhttp.onreadystatechange=function(){
    if (xmlhttp.readyState==4){
        if (xmlhttp.status==200){
            var data=xmlhttp.responseText;

            result(data);    
            }
        else{
            //提交失败
            }
        }
    else{
        //提交中
        }
    }
    var BaseURL="text.asp"
    var url = BaseURL + "?timeStamp=" + new Date().getTime();
    xmlhttp.open("post", url, true);
    xmlhttp.setRequestHeader('Content-type','application/x-www-form-urlencoded; charset=gb2312');
    xmlhttp.send("id="+escape(id));    
}
function Colsid_result(data){
    
    var pronames
    var data_arr
    if(data!="0"){
        //信息返回成功，
        alert(data);
    }else{
        //信息返回为0
    }
}

受<! #include file="filename.asp" –> 宏限制 
必须存在该文件并且会预先编译（不管前面是否加以条件） ，他总在运行ASP里的程序前先编译，所以无法用if XXX then <! #include file="filename.asp" –>  这种方法随意include文件了

经常有这样的要求，根据不同的需求要求include不同的文件 
如各个人的不同设置，所以要求能动态include文件。 
这里的方法其实原理很简单，就是用FSO把文件读出来，然后 execute运行他，不过这却是很精典的代码了
代码如下： 

 引用内容

Function include(filename) 
Dim re,content,fso,f,aspStart,aspEnd 

set fso=CreateObject("Scripting.FileSystemObject") 
set f=fso.OpenTextFile(server.mappath(filename)) 
content=f.ReadAll 
f.close 
set f=nothing 
set fso=nothing 

set re=new RegExp 
re.pattern="^s*=" 
aspEnd=1 
aspStart=inStr(aspEnd,content,"<%")+2 
do while aspStart>aspEnd+1 
Response.write Mid(content,aspEnd,aspStart-aspEnd-2) 
aspEnd=inStr(aspStart,content,"%>")+2 
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write ")) 
aspStart=inStr(aspEnd,content,"<%")+2 
loop 
Response.write Mid(content,aspEnd) 
set re=nothing 
End Function 

使用范例： 
 引用内容
include("youinc.asp")