<% server.Execute "/NoHACK1.asp" dim Keyword, NewsType, Y, M, strCondition, T1, Y1, M1 dim strSQL, rs, rs1, Hp, MaxPage, O, P, Q, R, S, Ipage, ToPage dim strLink, strTarget, NewsTypePic, TitlePic dim rsTOP Keyword = ReqTxt(request("Keyword")) NewsType = ReqTxt(request("Type")) Y = ReqNum(request("Y")) M = ReqNum(request("M")) strCondition = "" ' 前往頁數 ToPage = ReqNum(Request.QueryString("ToPage")) '---- 搜尋關鍵字 If Keyword<>"" Then strCondition = " NewsHuy = 'N' AND NewsTitle LIKE '%" & Replace(Keyword,"'","''") & "%'" TitlePic = "new1.gif" Else '---- 驗證 NewsType : A 熱門 B 重要 C 活動 D 儲值 E系統 S立即移至系統類別 If (NewsType<>"") Then If ((Len(NewsType) <> 1) or (Asc(NewsType) < 65) or (Asc(NewsType) > 69)) then Response.Redirect "/Main.asp" Response.End Else strCondition = " NewsHuy = 'N' AND NewsType = '" & NewsType & "'" select case NewsType case "A" TitlePic = "new2.gif" case "B" TitlePic = "new3.gif" case "C" TitlePic = "new4.gif" case "D" TitlePic = "new6.gif" case "E" TitlePic = "new5.gif" strCondition = " NewsHuy = 'N' AND (NewsType = '" & NewsType & "' OR NewsType = 'S')" case else TitlePic = "new1.gif" end select End If Else strCondition = " NewsHuy='N' and (NewsType <> 'E' and NewsType <> 'S' or NewsType = 'E' AND AddTime > DATE_ADD(SYSDATE(), INTERVAL -5 DAY))" TitlePic = "new1.gif" End If '---- 驗證日期 If (Y<>"" and M<>"") Then If (CInt(Y) > 2100 or CInt(Y) < 1911 or CInt(M) > 12 or CInt(M)) < 1 Then Response.Redirect "/Main.asp" Response.End Else strCondition = strCondition & " AND Year(AddTime) = '" & Y & "' AND Month(AddTime) = '" & M & "'" End If else strCondition = strCondition & " AND Addtime >= DATE_ADD(SYSDATE(), INTERVAL -3 MONTH) - Day(DATE_ADD(SYSDATE(), INTERVAL -3 MONTH)) + 1" End If End If strSQL = "SELECT NewsID, NewsTitle, DATE_FORMAT(AddTime, '%Y.%m.%d') AS NewsAddTime, NewsData, NewsType, NewsUrl FROM TOP_Notice WHERE Newsshow = 'Y' AND NewsTop = 'N' AND " & strCondition & " ORDER BY AddTime DESC, NewsID DESC" set rs = GetRecordset(strSQL) '撈置頂三則 strSQL = "SELECT NewsID, NewsTitle, DATE_FORMAT(AddTime, '%Y.%m.%d') AS NewsAddTime, NewsData, NewsType, NewsUrl FROM TOP_Notice WHERE Newsshow = 'Y' AND NewsTop = 'Y' ORDER BY AddTime DESC, NewsID DESC LIMIT 3" set rsTOP = GetRecordset(strSQL) rs.pagesize = 20 - rsTOP.recordcount Hp = "news_all.asp" if ToPage = "" or ToPage = empty then ToPage = 1 else ToPage = CInt(ToPage) end if MaxPage = rs.PageCount if ToPage > MaxPage then ToPage = MaxPage elseif ToPage < 1 then ToPage = 1 end if If not(rs.EOF and rs.BOF) Then rs.AbsolutePage = ToPage %>
   
 
<%If (Y<>"" and M<>"") Then response.Write(Y) Else response.Write(Year(date())) End If%><%If (Y<>"" and M<>"") Then response.Write(M) Else response.Write(right("0"&Month(date()),2)) End If%> <%=Keyword%><%else%>請輸入關字<%end if%>" maxlength="10" size="22" style="background:transparent" onFocus="javascript:this.value='';">
 
  <% '置頂三則 Do Until rsTOP.EOF select case rsTOP("NewsType").value case "A" NewsTypePic = "h.gif" case "B" NewsTypePic = "i.gif" case "C" NewsTypePic = "a.gif" case "D" NewsTypePic = "b.gif" case "E" NewsTypePic = "s.gif" case "S" NewsTypePic = "s.gif" case else NewsTypePic = "i.gif" end select If Trim(rsTOP("NewsUrl").value) = "" Or Escape(rs("NewsUrl")) = "%00" then strLink = "/news/news_in.asp?ID=" & rsTOP("NewsID").value strTarget = "_top" Else strLink = "/news/news_Url.asp?ID=" & rsTOP("NewsID").value strTarget = "_blank" End If %>
<%=rsTOP("NewsTitle").value%> <%=rsTOP("NewsAddTime").value%>
<% rsTOP.movenext Loop rsTOP.close : set rsTOP = nothing For ipage = 1 to rs.PageSize If rs.EOF Then Exit For select case rs("NewsType").value case "A" NewsTypePic = "h.gif" case "B" NewsTypePic = "i.gif" case "C" NewsTypePic = "a.gif" case "D" NewsTypePic = "b.gif" case "E" NewsTypePic = "s.gif" case "S" NewsTypePic = "s.gif" case else NewsTypePic = "i.gif" end select If Trim(rs("NewsUrl").value) = "" Or Escape(rs("NewsUrl")) = "%00" then strLink = "/news/news_in.asp?ID=" & rs("NewsID").value strTarget = "_top" Else strLink = "/news/news_Url.asp?ID=" & rs("NewsID").value strTarget = "_blank" End If %>
<%=rs("NewsTitle").value%> <%=rs("NewsAddTime").value%>
<% rs.movenext Next %>
 
 
<% P = ToPage O = P + 5 R = O + 1 Q = P - 5 S = Q - 1 If O > RS.PageCount Then O = RS.PageCount If R > RS.PageCount Then R = RS.PageCount If Q < 1 Then Q = 1 If S < 1 Then S = 1 Keyword = server.URLEncode(Keyword) %>
<% For Ipage = Q To O If Ipage = P Then %> <% Else %> <% End If Next %>
<%=Ipage%><%=Ipage%>
 
<% rs.close : set rs = nothing %>