最新消息

 

學習課程

 

招生資訊

 

中華首頁

 

 

     最新消息

  <% Set Conn = Server.CreateObject("ADODB.connection") ConnStr= "Provider=SQLOLEDB;Data Source=192.192.232.999;Initial Catalog=MRTG;User ID=EE_Web; Password=(hahaha)" Conn.Open ConnStr Set cmdTemp = Server.CreateObject("ADODB.Command") Set rs = Server.CreateObject("ADODB.Recordset") ' SQL="SELECT * FROM EE_News Where bShow=1 ORDER by DT DESC" SQL="SELECT * FROM EE_News Where dT_Start<=getdate() AND dT_Stop>=getdate() AND (NOT News IS NULL) ORDER by DT DESC" '2011/12/21 BY C.Y.Sung cmdTemp.CommandText = SQL cmdTemp.CommandType = 1 'SQL statement Set cmdTemp.ActiveConnection = Conn rs.CacheSize = 10 rs.Open cmdTemp,,adopenstatic %> <% While not rs.eof response.write("") rs.movenext Wend ' 2013/11/13 add by C.Y.Sung Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal2 End If End Function %>
") stemp=replace("" & rs("News"),"[","") stemp=replace(stemp,"]","") stemp="" & stemp & "" response.write(stemp) if not IsNull(rs("URL")) then response.write("(相關連結)") end if postdate=IIf(DateDiff("d", rs("dT_Start"), date())> 28, DateAdd("d", -28, date()), rs("dT_Start")) ' 2013/11/13 add by C.Y.Sung response.write(" [" & postdate & "更新]") ' 2013/11/13 add by C.Y.Sung response.write("