![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 站務人員 站長 ![]()
![]() ![]() ![]() |
<% Set conn = Server.CreateObject("ADODB.Connection") DBPath ="資料庫路徑" conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath A=array(empty,empty,empty,"TABLE") Set rs = conn.OpenSchema(20,A) do while not rs.eof response.write rs("TABLE_NAME")+"" rs.movenext loop %>
本篇文章發表於2002-04-08 00:00
|