Colorful Life²⁰¹⁰

ARRAY
一 array与table的区别
        Array：可以使用下标，进行顺序访问或随即访问
        Table：不可以使用下标，只能顺序访问。只能以TABxxx开头。
        注：table虽然和array的功能相似，但是array要比table灵活很多。Table可以淘汰了，了解table的原因是维护老的代码时可能会用到。

二 array的类型和key word
        1有三种类型的array，分别是compile time array、run time array、pre-run time array。
        
        2与array相关的key word：
        DIM（number）         定义数组中元素的数量

<%'---------------读access库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Driver={Microsoft　Access　Driver  (*.mdb)};DBQ="&　Server.MapPath("库名称")
Set  rstSchema = Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop
%>
　　<%'---------------读sql  server库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"
Set  rstSchema=Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop
%>　

　　<%'---------------读oracle库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Provider=MSDAORA.1;Password=密码;User　ID=用户名;Data  Source=数据源名称"
Set  rstSchema=Conn.OpenSchema(20)
　　
Do　Until  rstSchema.EOF
 Response.Write　"Table　name:"&  rstSchema(2)&　"<　br>　"&  "Table　type:"&　rstSchema(3)&　"<  br>　<　br>　"
 rstSchema.MoveNext
Loop

'Response.Write("所在数据库名:" & rs(0) & "
")
'Response.Write("所有者:" & rs(1) & "
")
'Response.Write("表 名:" & rs(2) & "
")
'Response.Write("表的类型:" & rs(3) & "
")
%>