此方法可獲得ACCESS資料的表名及其結構，資料類型等... 程式過濾了幾個ACCESS資料庫的幾個隱藏表(可能是導致ACCESS資料庫刪除資料還會變大的原因)
<html>
<head>
<title>取得ACCESS資料庫表名_www.vevb.com</title>
</head>
<body style=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<form style=padding:5px;margin:5px;margin-left:0px name=get action= method=post>
資料庫路徑:<input type=text name=path value= size=50 />
<input type=hidden name=ari value=1 />
<input type=submit value=查看/>
</form>
<hr>
<%
if request.form(ari)=1 and request.form(path)<> then
dim conn,connstr,i,sql,rs
on error resume next
Connstr=DRIVER=Microsoft Access Driver (*.mdb);DBQ=+server.mappath(request.form(path))
Set Conn=Server.CreateObject(ADODB.Connection)
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write 資料庫連線出錯，請檢查連接字符串。
Response.End
End If
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
dim tablecount
tablecount=0
Set shm = conn.OpenSchema(20)
shm.MoveFirst
Do While Not shm.EOF
If shm(TABLE_TYPE) = TABLE Then
If Left(shm(table_name), 1) <> ~ Then '這裡過濾掉隱藏表
j=j+1
call GetFileds(shm(table_name))
End If
End If
shm.MoveNext
Loop
response.write 共有&j& 個資料表!
else
response.write <h3>請輸入資料庫相對路徑查看具體內容!</h3>
end if
%>
</body>
</html>
<%
Function GetFileds(TableName)
Set rs = server.createobject(adodb.recordset)
Dim SQL
SQL = select * from & TableName
rs.Open SQL, conn, 1, 1
Dim Cont
Cont = rs.Fields.Count
response.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee>&vbcrlf
response.write 表<font color=red><b>&TableName&</b></font> 中含有&Cont&個欄位,具體如下:<br>&vbcrlf
For i = 0 To Cont - 1
dim filtype
select case rs.fields(i).type
case 3
filtype=自動編號(數字)
case 202
filtype=字符
case 203
filtype=備註
case 125
filtype=日期
case 11
filtype=真/假(是/否)
end select
response.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Next
response.write </div>&vbcrlf
rs.Close
set rs=nothing
End Function
%>