% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=cto; UID=GalleryUser; PWD=milton1017; Database=db1" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 sql = "SELECT a.NEWS_ID, a.SUBJECT, a.POST_DATE, a.END_DATE, a.NEW, a.STATION AS STATION_ID, a.SORT, b.STATION FROM NEWS a, STATION b " sql =sql & " WHERE a.STATION=b.STATION_ID AND a.SORT='1' AND (a.POST_DATE < date() OR a.POST_DATE IS NULL) AND (a.END_DATE > date() OR a.END_DATE IS NULL) ORDER BY CInt(a.NEWS_ID) DESC" rs.Open sql, conn, 3, 2 %>
| |
|
||||||||||||||||||
![]() |
![]() |
|
|||||||||||||||||
| |
|
|
|
|
|
||||||||||||||
| |
|
||||||||||||||||||
| |
本網站秉持無障礙網頁設計原則建置,網站的主要樣版內容分為三個大區塊:
|
|
|||||||||||||||||
:::
|
|
||||||||||||||||||
| |
|||||||||||||||||||
| |
|||||||||||||||||||
| |
|||||||||||||||||||
| |
|||||||||||||||||||
| |
|
|
|
|
|
|
|
||||||||||||