清華大學工業工程與管理學系

<%@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 %> 清華大學工業工程與管理學系

學士班碩士班博士班碩博共用相關辦法表單下載助學金與出國補助

學士班修業規則

大學部課程架構：中文英文

大學部必修科目表：89 90 91 92 93 94 95 96

專業選修課程認證表

工業工程專題競賽辦法
 工工系抵免學分申請表

學士班應屆畢業生逕行修讀博士學位辦法

碩士班修業規則

本系碩士班修業要求

本系碩士在職專班修業辦法

本系碩士在職專班研究生指導教授認證單

研究所各學程必選修課程圖

碩士班研究生指導教授及學程認證單

碩士班學年度論文計畫書審查表

碩士班研究生申請直攻博士班辦法

博士班修業規則

本系博士班修業要求

本系博士班修業程序

博士班資格考基礎知識審定表

博士班研究生指導教授及學程認證單

博士論文計畫書口試公告

博士班研究計畫口試審查意見表

博士班研究計畫口試評分表

博士班學生第一外國語畢業標準審定審定表

本系申請博士論文口試檢查表

博士論文指導委員會組成辦法

博士論文指導委員會申請書

博士學位口試試場程序

博士班學生授課申請辦法

博士生授課申請作業流程

碩博共用相關辦法

研究生退學執行原則

研究生共同指導教授申請書

研究生更換指導教授申請書

本系碩士班研究生學分抵免辦法

抵免課程申請表

國立清華大學博士學位考試注意事項

碩士班畢業程序說明

研究生畢業程序及繳交畢業論文須知

畢業離校手續工工系系所確認單

節錄本校註冊組網頁各項表單資料下載及查詢

節錄本校註冊組網頁各項表單資料下載及查詢

節錄本校教務處網頁學則及各辦法之標題

表單下載

門禁申請單

權限增加申請單

大學部專業選修認證單

本系碩士在職專班研究生指導教授認證單

碩士班研究生指導教授及學程認證單

碩士班學年度論文計畫書審查表

博士班資格考基礎知識審定表

博士班研究生指導教授及學程認證單

博士論文計畫書口試公告

博士班研究計畫口試審查意見表

博士班研究計畫口試評分表博士班學生第一外國語畢業標準審定審定表

本系申請博士論文口試檢查表

博士論文指導委員會申請書

博士學位口試試場程序

研究生共同指導教授申請書

研究生更換指導教授申請書

抵免課程申請表

工工系碩士班口試畢業離校之規定

畢業離校手續工工系系所確認單

獎助學金與出國補助

工業工程與工程管理學系研究生獎助學金作業細則

行政院國家科學委員會補助博士生赴國外研究作業要點

行政院國家科學委員會補助國內研究生出席國際學術會議作業要點

清華大學補助博士班研究生出席國際會議申請流程

國立清華大學補助博士班研究生出席國際會議處理要點

國立清華大學補助博士班研究生出席國際會議申請表

教育部補助博士班研究生出席國際會議報告

國立清華大學補助員生出國參加國際學術會議辦法

國立清華大學補助員生出國參加國際學術會議申請表

國立清華大學「學生國際訪問獎」設置辦法

國立清華大學「學生國際訪問獎」申請表

國立清華大學工學院研究生論文發表競賽實施辦法

國立清華大學「校長獎學金」工學院選拔作業細則

國立清華大學工學院「校長獎學金」選拔申請表

財團法人李國鼎科技發展基金會

國立清華大學「菁英留學計畫-專案擴增留學計畫」甄選作業要點

國立清華大學獎勵學生參與外語考試辦法

星雲獎學金辦法(大學部)

|首頁|課程規劃|表格下載|書報討論|師資簡介 |招生網頁|聯絡我們|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 %>