<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......
<% Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)" Rs.Open Sql, conn, 1,1 Do Until Rs.Eof
......