ex1

项目开发对初学者来说非常重要

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open("FILEDSN=D:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn") 
Set RS=Conn.Execute("SELECT * FROM MyTable")
Response.Write("Name")
WHILE NOT RS.EOF
    Response.Write("<BR>"&RS("Name"))
    RS.MoveNext
WEND
RS.Close
Conn.Close
%>