正在加载图片...
示例1:用DSN连接 ACCESS数据库 Set conn= Server CreateObject("ADODB Connection") conn Open" dsn=accesstest Set rs=conn Execute("select* from score") <HTML> <BODY bgcolor-#6699dd"> imdb数据库“成绩单”数据表七栏的表头:<ul> <% For i=0 to rs fields. count- Response. Write <LI>& rs(I). Name &" " rs(i) Next </ul> </BODY> </HTML> 东学取业学院示例 1：用DSN连接ACCESS数据库 <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "dsn=accesstest" Set rs = conn.Execute( "select * from score" ) %> <HTML> <BODY bgcolor="#6699dd"> db1.mdb 数据库“成绩单”数据表七栏的表头：<ul> <% For I = 0 to rs.fields.count-1 Response.Write "<LI>" & rs(I).Name & " " & rs(i) Next %> </ul> </BODY> </HTML>