<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'查看Access数据库所有表名和所有字段的asp类 '
'使用例子： '
'set ddd=new zhiwu_tablecolumn '实例化类 '
'ddd.zhiwu_DBfile="test.mdb" '输入数据库 '
'ddd.zhiwu_showInfo() '显示这个数据库的所有表和所有字段 '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set showtable= new zhiwu_tablecolumn
showtable.zhiwu_Dbfile="admin/data/web_system_db.mdb"
showtable.zhiwu_showInfo
class zhiwu_tablecolumn
private zhiwu_conn
private zhiwu_DBfile02
Private Sub Class_Initialize()
set zhiwu_conn=server.createobject("adodb.connection")
End Sub
public property let zhiwu_DBfile(str)
zhiwu_conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath(str)
zhiwu_DBfile02=str
end property
public function zhiwu_showInfo()
if zhiwu_DBfile02="" then
response.write "找不到数据库文件"
response.end
end if
dim zhiwu_arr(100,1)
dim zhiwu_i
zhiwu_i=0
set zhiwu_rs=zhiwu_conn.openschema(20)
while not zhiwu_rs.eof
if zhiwu_rs("table_type")="TABLE" then
zhiwu_arr(zhiwu_i,0)=zhiwu_rs("table_name")
zhiwu_i=zhiwu_i+1
end if
zhiwu_rs.movenext
wend
for zhiwu_j=0 to zhiwu_i-1
set zhiwu_arr(zhiwu_j,1)=zhiwu_conn.execute( "select * from " & zhiwu_arr(zhiwu_j,0) )
response.write "<table border=1 cellspacing=0 cellpadding=1 bordercolorlight=gray bordercolordark=#fffff0 bgcolor=silver width=100% align=center>"
response.write "<caption valign=top style='background:pink;font-size:12px'>数据库"&zhiwu_DBfile02&"的第"&zhiwu_j+1&"张表名称:<span style=color:red>"& zhiwu_arr(zhiwu_j,0) &"</span> 一共有<span style=color:red>"&zhiwu_arr(zhiwu_j,1).fields.count&"</span>个字段</caption>"
response.write "<tr>"
for i=1 to zhiwu_arr(zhiwu_j,1).fields.count
response.write "<td style='font-size:12px'>第"&i&"个字段:<span style=color:green>"& zhiwu_arr(zhiwu_j,1)(i-1).name &"</span></td>"
if i mod 5 = 0 then
response.write "</tr><tr>"
end if
next
response.write "</tr>"
response.write "</table><br><br>"
next
end function
end class
%>
