恭賀!!本校董事長周汝川博士獲頒 武漢大學醫學部榮譽博士學位。恭賀!! 本校口腔醫學院講座教授林仁混教授當選第27屆中央研究院新任院士。恭賀!!本校李選教授榮任考試院考試委員。

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open session("ODBCDSN") %>

本校交通地理位置 中山人HOT新聞~本校創辦人暨董事長周汝川博士接受工商時報系列專訪【我的履歷表-周汝川】~歡迎踴躍點閱 中山醫學大學BBS一覽暨現況說明 網站搜尋 全文檢索 網路資源 一週天氣預報 國道即時路況 交通違規罰鍰 台鐵火車時刻 中正機場班機 國光汽車客運 全國戲院時刻 遠距圖書服務 全國郵遞區號 統一發票對獎 全國藝文活動 電腦病毒資訊 技專校院招生 全國就業 e 網 技訊網 臺灣藝術教育網 卡債問題專區 新聞頻道 東森新聞 奇摩新聞 聯合新聞 民視新聞 中央通訊 電子報訂閱服務 PC Home 智 邦 Taipei Link

<% function message(tempstr) outstring = "" while len(tempstr) > 0 pos=instr(tempstr, chr(13)&chr(10)) 'Enter if pos = 0 then outstring = outstring & tempstr & "
" tempstr = "" else outstring = outstring & left(tempstr, pos-1) & "
" tempstr=mid(tempstr, pos+2) end if wend message = outstring end function function d7date(dt) '轉成民國年 999/99/99 給資料型態為SmallDateTime 使用 if Len(dt)=0 or isnull(dt) then d7date="" else xy=right("00"+ cstr((year(dt)-1911)),3) '補零 xm=right("0"+ cstr(month(dt)),2) xd=right("0"+ cstr(day(dt)),2) d7date=xy & "/" & xm & "/" & xd end if end function %>