<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("sars.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath SQLcmd = "select top 6 * from news order by A_Time desc" set rs = conn.Execute(SQLcmd) redim newsname(5) redim newslink(5) redim newsdate(5) rs.MoveFirst for i=0 to 5 newsname(i)=rs("A_subject") newslink(i)=rs("A_Link") newsdate(i)=rs("A_Time") rs.MoveNext next %> <% Set scconn = Server.CreateObject("ADODB.Connection") scDBPath = Server.MapPath("sars.mdb") scconn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & scDBPath scSQLcmd = "select top 6 * from scnews order by A_Time desc" set scrs = scconn.Execute(scSQLcmd) redim scnewsname(5) redim scnewslink(5) scrs.MoveFirst for i=0 to 5 scnewsname(i)=scrs("A_subject") scnewslink(i)=scrs("A_Link") scrs.MoveNext next %>
青輔會防疫志願軍
 
北市愛心醫療團隊
02-27205862
台北市送餐志工
02-27206813
利用電腦協助抗煞藥物研發
網頁更新時間：92/7/8
本網頁由台北醫學大學
SARS醫學教育網網頁小組製作
　
　
恭喜！臺灣於7/5正式由疫
區除名！正式宣告進入後
sars時代...
但仍需記得：
1.秋冬SARS仍有可能再現
2.加強後SARS公衛措施
3.有發燒症狀仍應小心提防 
4.改善住家健康環境，以達
   預防之作用
 
 
臺北醫學大學首頁