db_path = "../database/cnbruce2005.mdb" Set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path) conn.Open connstr |
Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select top 5 * from [news] order by n_id desc" rs.Open sql,conn,1,1 |
do while not rs.eof response.write rs("n_title") rs.movenext loop '还有最后的关闭和释放操作 rs.close set rs=nothing |
Function topnews(tnum) Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select top "&tnum&" * from [news] order by n_id desc" rs.Open sql,conn,1,1 do while not rs.eof response.write rs("n_title") rs.movenext loop rs.close set rs=nothing End Function |