康寧醫護暨管理專科學校 Kang-Ning Junior College of Medical Care and Management

<% '===== 建立資料庫連結物件及連結資料庫 ===== Dim Params, conn Params = "Provider=SQLOLEDB.1" Params = Params & ";Data Source=" & "10.1.1.12" Params = Params & ";User ID=" & "admin" Params = Params & ";Password=" & "admin" Params = Params & ";Initial Catalog=" & "announce" Set conn = Server.CreateObject("ADODB.Connection") conn.Open Params yy = Year(Date()) mm = Month(Date()) dd = Day(Date()) If Len(mm) = 1 Then mm = "0" & mm End If If Len(dd) = 1 Then dd = "0" & dd End If U_Today = yy & "/" & mm & "/" & dd '===== 查詢對跑馬燈期限內的資料 ===== Set rs1 = Server.CreateObject("ADODB.Recordset") QRY_SQL1 = "select A_NUM, A_UNIT, A_GIST, A_START_DATE, A_END_DATE, A_DESC, A_KIND, A_GRADE, A_NOTE from A_CONTENTS Where A_GRADE = '1' and A_START_DATE <= '"& U_Today & "' and A_END_DATE >= '"& U_Today & "' and A_KIND = 'M' order by A_START_DATE DESC" rs1.Open QRY_SQL1, conn, 3, 2 '===== 查詢對外公告期限內的資料 ===== Set rs = Server.CreateObject("ADODB.Recordset") QRY_SQL = "select A_NUM, A_UNIT, A_GIST, A_START_DATE, A_END_DATE, A_DESC, A_KIND, A_GRADE, A_NOTE from A_CONTENTS Where A_GRADE = '1' and A_START_DATE <= '"& U_Today & "' and A_END_DATE >= '"& U_Today & "' and A_KIND = 'O' order by A_NUM DESC" rs.Open QRY_SQL, conn, 3, 2 %> 康寧醫護暨管理專科學校 Kang-Ning Junior College of Medical Care and Management