ASP获取ACCESS数据库的表名以及表名对应的字段名和字段类型

[asp] 献一函数：ASP获取ACCESS数据库的表名以及表名对应的字段名和字段类型

<％
showtable "../database/#mall.mdb" '调用
Sub showtable(tablepath)
StrSQL="DBQ="+server.mappath(""&tablepath&"")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
Set rs=Conn.OpenSchema(20)
rs.filter="table_type='table'"  '过滤只显示table类型的记录
do while not rs.eof
     response.write "tablename："&rs("TABLE_NAME")&"<br>"
        Set rst =server.CreateObject("adodb.recordset")
        sql="select * from ["&rs("TABLE_NAME")&"]"
        rst.open sql,conn,1,1
        For i=0 To rst.fields.count-1
        response.write  rst.fields(i).name&"--"&getType(rst.fields(i).type)&"<br />"
        next
        rs.movenext
Loop
End sub
function getType(num)
   select case num
     case "202" :
       getType="文本"
     case "203" :
       getType="备注"
     case "3" :
        getType="长整型"
     Case "2" :
       getType="整型"
     case "17" :
       getType="字节"
     case "3" :
       getType="长整型"
     case "4" :
       getType="单精浮点"
     Case  "5" :
       getType="双精浮点"
     case "3" :
       getType="长整型"
     case "72" :
       getType="同步复制ID"
     case "131" :
       getType="小数"
     Case "135" :
       getType="日期/时间"
     case "6" :
       getType="货币"
     case "11" :
       getType="是/否"
     case "205" :
       getType="OLE对象"
   end  Select
End function
％>