<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim RecNews Dim RecNews_numRows Set RecNews = Server.CreateObject("ADODB.Recordset") RecNews.ActiveConnection = MM_connNews_STRING RecNews.Source = "SELECT * FROM newsData ORDER BY news_time DESC" RecNews.CursorType = 0 RecNews.CursorLocation = 2 RecNews.LockType = 1 RecNews.Open() RecNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 RecNews_numRows = RecNews_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim RecNews_total Dim RecNews_first Dim RecNews_last ' set the record count RecNews_total = RecNews.RecordCount ' set the number of rows displayed on this page If (RecNews_numRows < 0) Then RecNews_numRows = RecNews_total Elseif (RecNews_numRows = 0) Then RecNews_numRows = 1 End If ' set the first and last displayed record RecNews_first = 1 RecNews_last = RecNews_first + RecNews_numRows - 1 ' if we have the correct record count, check the other stats If (RecNews_total <> -1) Then If (RecNews_first > RecNews_total) Then RecNews_first = RecNews_total End If If (RecNews_last > RecNews_total) Then RecNews_last = RecNews_total End If If (RecNews_numRows > RecNews_total) Then RecNews_numRows = RecNews_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RecNews_total = -1) Then ' count the total records by iterating through the recordset RecNews_total=0 While (Not RecNews.EOF) RecNews_total = RecNews_total + 1 RecNews.MoveNext Wend ' reset the cursor to the beginning If (RecNews.CursorType > 0) Then RecNews.MoveFirst Else RecNews.Requery End If ' set the number of rows displayed on this page If (RecNews_numRows < 0 Or RecNews_numRows > RecNews_total) Then RecNews_numRows = RecNews_total End If ' set the first and last displayed record RecNews_first = 1 RecNews_last = RecNews_first + RecNews_numRows - 1 If (RecNews_first > RecNews_total) Then RecNews_first = RecNews_total End If If (RecNews_last > RecNews_total) Then RecNews_last = RecNews_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = RecNews MM_rsCount = RecNews_total MM_size = RecNews_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record RecNews_first = MM_offset + 1 RecNews_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (RecNews_first > MM_rsCount) Then RecNews_first = MM_rsCount End If If (RecNews_last > MM_rsCount) Then RecNews_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> 新聞公告系統

新聞公告圖

97.12.29 圖書館於98年1月1日~1月3日休館三天(請點選附件)。
97.12.24 97學年度第一次閱讀達人得獎名單(第一次)(請點選)。97學年度南榮技術學院圖書館週有獎徵答活動得獎者名單。(請點選)
97.12.19

國立臺灣藝術教育館「2009年全國學生圖畫書創作獎」徵選活動，請師長鼓勵學生踴躍參與徵選。活動網址：ttp://www.arte.gov.tw/pro2_comp.asp?KeyID=41 收件時間為98年3月1日起收件至4月15日截止（以郵戳為憑，逾期恕不受理）。作品標籤、簡章、報名表、學生名冊等相關報名資料請至上述網站下載。

97.12.12

圖書館週有獎徵答活動，的請參考智慧財產局的『智慧財產權小題庫』。路徑提示：進入『圖書館首頁』到『網路資源』點選『相關資源』進入後可看到『智慧財產權小題庫(智慧財產局)』的相關連結。
97.12.12 有關行政院環境保護署為喚起全民對全球環境變遷的重視及愛護地球村的 觀念，該署特於全球網路多媒體平臺製播「EPA環保頻道」(http://www. hichannel.hinet.net/event/EPAchannel/)，請 踴躍上網觀 賞。環保頻道播出期間為97年12月4日至98年2月28日，本館首頁『網路資源』中的『相關資源』裡亦有連結。
7.11.18

逢甲大學訂於97年12月12日(星期五)舉辦「數位資源共建共享研討會：網路世 代新思維」，請有興趣的老師自行前往報名參。報名網址：http://140.134.40.164/cdrs/
97.11.11

圖書資訊處將於97年11月19日舉辦「圖書館電子資料庫查詢與應用」教育研習活動。目的在介紹電子資料庫及資料庫之應用，可使師長及學生們有更多一些電子資料可供查詢應用，歡迎大家踴躍參加。
7.11.04 因台電新營區營業處鹽水服務所訂於97年11月8日(星期六)停電檢修，影響範圍包括本校，本館將閉館一天，圖書到期日為當天者，可於11月10(星期一)歸還，免罰逾期款。
97.10.20 《臺灣閩南語常用詞辭典》試用版為第一部由政府編纂之臺灣閩南語辭典，收錄常用詞及相關資料約1萬7千餘筆；97年10月17日配合教育部公告之「臺灣閩南語羅馬字拼音方案」及「臺灣閩南語推薦用字」，業已上線開放各界人士試用。網址：http://twblg.dict.edu.tw/tw/index.htm
97.10.13 「2008法國讀書樂在台灣」系列活動-「我最愛的法國．法國文學閱讀心得發表甄選活動」，收件日期即日起至97年10月25日止。網址http://www.chi-chi.gov.tw/blog/post/39/903
97.10.09 97.10.10(星期五) 國慶日，隔日10.11(星期六)為連續假期，圖書館閉館兩天。
97.10.03 為統計教育部補助技專校院共用性電子資料庫購置計畫執行成效，進行使用者滿意度調查。請本校師生上網填寫滿意度調查，問卷調查網址為：http://140.127.150.2:8081/npa_ques/
97.10.02 南區區域教學資源中心之文獻資料傳遞合作優惠之協議為（1）)紙本式影印費用每頁新臺幣2元，郵資另計，不另收服務費。(2)以Ariel 方式傳送者，每頁新臺幣3元。(3)館際圖書互借，以實際郵資來計算，不另收服務費。請全校師生多多利用館際合作，http://lib.njtc.edu.tw/c/c3.htm
97.09.23

國史館臺灣文獻館、館與國立歷史博物館合作之一荷蘭時期大員（台灣）長官致巴達維亞城總督書信整理翻譯計畫」，相關招標資訊公布於本館、國立臺灣歷史博物館網站及行政院公共工程委員會採購公告系統，國史館臺灣文獻館網址：http://www.th.gov.tw/，國立臺灣歷史博物網址：http://www.nmp.gov.tw/home.aspx，行政院公共工程委員會採購公告系統網址：http://www.geps.gov.tw/

97.09.22 為提升圖書資訊學之研究，中華民國圖書館學會與中華民國資訊學教育學會辦理獎助論文發表，申請期間至97年10月15日截止，活動網址：http://listheses2008.googlepages.com
97.09.12 配合教育部技專院校共用性電子資料庫購置計畫之實施，以推廣共用性電子資料庫之利用，增加使用率。共用性電子資料庫有獎徵文活動，截稿日期延後一個月，日期時間為97年10月15日，活動網址：http://www.lib.kuas.edu.tw/project/tve/index.asp
97.09.08

雲嘉南區域大學校院圖書館聯盟圖書互借辦法。互借辦法

97.09.08 雲嘉南20所大學院校圖書館聯盟已於97年5月20日成立。http://www2.ncku.edu.tw/ann/spotlight/index.php?sn=91
97.09.05 中華民國圖書館學會獎勵辦法乙種，惠請於本(97)年9 月22 日前推薦特殊貢獻獎等獎項之適合人選。http://www.lac.org.tw/index_2.htm
97.08.21 《師資培育與教師專業發展期刊》即日起徵稿！出刊時間：每年發行兩期，分別於6月、12月出版，全年徵稿。投稿方式：請掛號郵寄並附電子檔：「50007彰化市進德路1號，國立彰化師範大學教育學院《師資培育與教師專業發展期刊》編審小組」收， 或e-mail至 jtepd@cc.ncue.edu.tw收。投稿相關辦法請參閱國立彰化師範大學網站http://163.23.225.52/jtepd/
97.07.23
一、為方便讀者於暑假期間借還書，學生自五月三十日起、教職員自五月二十三日起，圖書到期日統一訂於九十七年九月十七日(週三)。
二、暑假期間(自六月三十日至九月十六日)圖書館開放時間為週一至週五，上午八點至下午五點，請讀者於開館時間辦理借還書手續。
三、請讀者於圖書到期日前歸還圖書，以免逾期受罰。
97.06.25 技專院校共用性電子資料庫有獎徵文活動 
 http://www.lib.kuas.edu.tw/project/tve/index.asp
97.06.12

與Emerald出版社與EBSCO Information Services 台灣分公司共同辦理「挑戰資料庫」有獎徵答活動，獎品豐富，歡迎各位師生共襄盛舉。

關卡：http://ww2.emeraldinsight.com/taiwan/quiz.html

時間：97.06.30止
97.06.07 中華民國圖書館學會本（97）年度委請各承辦單位辦理各研習班資訊，研習相關內容及報名資訊如附件，有興趣者得自行參加。 簡章
97.06.07 因6月7日(週六)舉行畢業典禮，6月9日(週一)全校補假，圖書館閉館一天，當天圖書到期者可延至6月10日歸還。
97.04.24 96.04.26(六)配合本校配電站停電整修，因影響資訊圖書館之供電；圖書館暫停開放一天。當日到期圖書可順延至96.04.28(一)歸還。
97.04.24 國立中興大學圖書資訊學研究所與圖書館舉辦「圖書資訊學發展趨勢」系列演講。相關訊息及場次表
97.04.24 國立臺灣藝術教育館函文辦理「補助翻譯並出版先進國家藝術教育相關書籍」作業簡則，於97年10月1日至8日受理申請，有興趣者得自行參加。相關訊息、作業簡則、申請計畫書、書籍明細表、經費概算表、成果報告書、推薦書單
97.04.22 97年DVD新進影片清單，歡迎師生前往二樓個人視聽室借用觀賞。
97.03.21 97年3月22日(六)總統選舉圖書館閉館一天, 當天到期書可於3/24(一)歸還。
97.02.13 新增資料庫--財團法人國家實驗研究院科技政策研與資訊中心(CONCERT)及國科會提供數種資料庫供全國大專院校使用，歡迎師生多加利用~~網址
97.01.09
●圖書館寒假開放時間公告
 
寒假期間(元月12日至2月24日)，圖書館開放時間為週一至週五早上8點至下午5點，
開放空間為自習中心、中西文書庫區、期刊閱報區，個人視聽室不開放，
春節期間2月6日(週三)至2月11日(週一)不開館
 
●為方便讀者借還書，即日起借書者圖書最快到期日為97年3月5日，請讀者於圖書到期日前歸還圖書以免逾期受罰。
96.12.25

圖書館週有獎徵答得獎名單公佈  得獎者

九十六學年度南榮技術學院圖書館週有獎徵答活動已於12月25日抽出20名得獎者，
本活動參加人數184名，全答對人數116名，重複填答2名(取消資格)。
96.12.18 九十六學年度第二次閱讀達人比賽得獎名單~~ 請得獎同學於96.11.25下午三點前攜帶學生證至圖書館一樓流通櫃台領取圖書禮卷，未領取者視同放棄，將重新抽出符合資格同學。

前10名

參加獎45名
96.12.09 96.12.15(六)配合本校配電站停電檢修，因影響資訊圖書館之供電；圖書館暫停開放一天。
96.12.09

圖書館將於即日起至97.1.11舉辦圖書館週的各項活動, 歡迎參加!!

圖書館系列活動

祈福感恩網

96圖書館週有獎徵答傳單

96學年度圖書館週有獎徵答問題卷
96.11.06 九十六學年度第二次閱讀達人比賽開跑囉..第一名圖書禮劵1500元。海報
96.11.02 九十六學年度第一次閱讀達人比賽各系前三名名單。得獎名單
96.10.18 「萬聖節 : 毒南瓜揭秘」圖書館有獎徵答 !抽iPod / 數位相機   海報
96.09.12 九十六學年度第一學期閱讀達人比賽96.09.17至96.10.26止~~ 海報
96.05.29

中華民國圖書館學會96 年度研習班一覽表~~ 歡迎有興趣者參加!! 簡章
96.04.27 九十五學年度第三次閱讀達人比賽開跑囉!!96.05.01~96.06.08止~~海報
96.04.27 九十五學年度第二次閱讀達人比賽各系前三名名單。得獎名單
96.03.08 國科會三套漢珍資料庫(PAO、EEBO、EAI)的教育訓練報名。三月份行程

96.03.06

九十五學年度第二學期閱讀達人比賽得獎同學請攜帶學生證至圖書館櫃台領取圖書禮卷。得獎名單
96.02.28 九十五學年度第二學期閱讀達人比賽開跑囉!!即日起至96.04.20止~~海報
96.02.28

配合彈性放假圖書館開館公告

96.03.03(六) 圖書流通 8:00~17:00    個人視聽室 13:30~17:00

96.03.04(日) 圖書流通 8:00~12:00

96.03.05(一) 閉館

96.02.28 九十五學年度第二學期每週三團體視聽室影片播放，歡迎師生蒞臨觀賞!!片名
96.02.26 歡迎使用電子資料庫，詳情如資料庫檢索(中文、西文)。
　 　
　 　

　

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