<< 最 新 消 息 >> <%set mdb = server.createobject("adodb.connection") set mnews = server.createobject("adodb.recordset") mdb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Data.mdb") mnews.open "select * from News where StartDate <= #" & date & "# and StopDate >= #" & date & "# order by StartDate Desc, StopDate, NewsID", mdb, 3, 2%> " response.write "" response.write "" response.write "" response.write "" mnews.movenext loop mnews.close mdb.close set mnews = nothing set mdb = nothing%> <%i = 0 do until mnews.eof i = i + 1 response.write "  " response.write " " response.write " " & mid(mnews("StartDate"), 6) & "  " response.write " " response.write "" & mnews("Title") & "   " response.write " " response.write "" & trim(left(mnews("Content"), 20)) & ".........<內詳文>"&" " response.write "