<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("scholarship.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath set rs = server.createobject("adodb.recordset") sql = "select * from scholarship order by id asc" rs.open sql, conn, 1, 1 %> <%if rs.EOF then%> <%else%> <% totalrecord=rs.recordcount for i=1 to totalrecord and not rs.bof%> <% rs.movenext if rs.eof then exit for Next End if %>

* BLACKS IN ASIA * Scholarship Section - Main Scholarship
-- Main Scholarships --	Range
系统中暂时没有记录！
<%=rs("title")%>	<%=rs("range")%>

<% rs.close set rs = nothing conn.close set conn = nothing %>