sql调用方法精简

<%If IsArray(proList) Then%>
<UL class="product-ul">
    <%For x=0 to Ubound(proList,2)%>
    <LI>
        <DIV><A href="<%=HTMLURL%>product_view_<%=proList(0,x)%>.html"><IMG src="<%=selectPic(proList(2,x),proList(3,x))%>"></A><P>
<A href="<%=HTMLURL%>product_view_<%=proList(0,x)%>.html"><%=CutStr(proList(1,x),6,"...")%></A></P></DIV>
    </LI>
    <%Next%>
    <DIV class="clear"></DIV>
</UL>
<%End If%>

-----------------------------------------------------------
Dim proList
set rs = Conn.Execute("sql")
If not rs.Eof Then
	proList = rs.GetRows()
End If
rs.Close()
Set rs = Nothing

 

IF  真 Then

end if

 

IsArray 数组为真：不是数组为假
Ubound数组一维 二维 三维

一维 横竖1

二维 横竖多

三维。横竖双层

 

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

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

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

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

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

 

Dim Rs_Cate
Dim Arr_Cate

Set Rs_Cate=Conn.ExeCute(Sql)
　　Arr_Cate=Rs_Cate.GetRows

Rs_cate.close()
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 | 标题：下载 | 介绍：这里是下载

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