<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_news_STRING Recordset1.Source = "SELECT * FROM newsData ORDER BY news_time DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_news_STRING Recordset1.Source = "SELECT * FROM newsData ORDER BY news_time DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 清華大學工業工程與管理學系

師資簡表

姓名
職稱
最高學歷
研究室
黃雪玲 教授兼系主任 美國普渡大學工業工程博士
707-1R
洪一峯 教授兼副主任 美國加州大學柏克萊分校工業工程博士
王小璠 教授 英國劍橋大學運輸規劃博士
王明揚 教授 瑞典律勒歐大學人因工程博士
王茂駿 教授兼秘書長 美國紐約州立大學工業工程博士
阮約翰 教授 美國杜蘭大學數學博士
林則孟 教授兼科管院EMBA執行長 美國理海大學工業工程博士
桑慧敏 教授 美國普渡大學工業工程博士
陳茂生 教授 加拿大滑鐵盧大學管理科學博士
陳飛龍 教授 美國奧本大學工業工程博士
許棟樑 教授 美國加州大學洛杉磯分校製造工程博士
張瑞芬 教授 美國普渡大學工業工程博士
葉維彰 教授 美國德州大學工業工程博士
溫于平 教授 美國紐約州立大學工業工程博士
簡禎富 教授 美國威斯康辛大學麥迪遜分校決策科學與作業研究博士
蘇朝墩 教授 美國密蘇里大學工業工程博士
朱詣尹 副教授 美國伊利諾大學工業工程博士
侯建良

副教授兼校友服務
中心主任

 國立清華大學工業工程博士
陳光辰 副教授 日本慶應義塾大學管理工學博士
707R 
游志雲 副教授 美國密西根大學工業工程博士
912R
瞿志行 副教授 美國加州大學柏克萊分校機械工程博士
蘇哲平 助理教授 美國喬治亞理工學院工業工程作業研究博士
715R 
廖信銳 講師 國立台灣師範大學工業教育碩士
周瑋民 約聘教授 美國加州大學柏克萊分校工業工程與作業研究博士
714 R
吳鑄陶 兼任副教授(退休副教授) 美國西北大學工業工程博士
趙金榮 兼任副教授 美國普渡大學工業工程博士  
梁興國 兼任講師 美國喬治華盛頓大學商學院企管碩士
  
王國明 榮譽退休教授 美國堪薩斯州立大學工業工程博士
劉志明 榮譽退休教授 美國威斯康辛大學麥迪遜分校製造系統博士

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


|首頁|課程規劃|表格下載|書報討論|師資簡介|招生網頁|聯絡我們|English|

國立清華大學工業工程與工程管理學系 新竹市光復路二段101號工程一館
101, Section 2, Kuang-Fu Road, Hsinchu 300, Taiwan, ROC TEL: 886-3-5717654 FAX: 886-3-5722204

◎請使用IE6.0以上瀏覽器、1024*768螢幕解析度觀看，以獲得最佳效果

<% Recordset1.Close() Set Recordset1 = Nothing %>