<% SQLstr = "select * from list where lan='中文版' order by num desc" DbPath = SERVER.MapPath("../db/news.mdb") Set adocon = Server.CreateObject("ADODB.Connection") adocon.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath set sa1=adocon.Execute(SQLstr) If sa1.EOF Then response.write "
" response.write "
" response.write "
找不到資料！
" response.write "
尚未有任何訊息！
" response.write "
" response.write "
" response.write "" Else j=0 Do if j = 10 or sa1.eof then exit do j = j + 1 %>
近期開課訊息
多益課程表
旋元佑理解文法班
旋元佑字彙方法班
<% sa1.movenext Loop End If '--------------------------------------------- sa1.Close adocon.Close %>