<%
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL server};Description=sqldb;SERVER=192.168.0.1;UID=sa;PWD=123456;DATABASE=sqldb"
%>
讀SqlServer庫中的表名:
<%
Set rs=Conn.OpenSchema(20)
While not rs.EOF
Response.Write("所在數(shù)據(jù)庫名:" & rs(0) & "<br>")
Response.Write("所有者:" & rs(1) & "<br>")
Response.Write("表 名:" & rs(2) & "<br>")
Response.Write("表的類型:" & rs(3) & "<br>")
rs.MoveNext
Wend
%>