<%Root=1%> <%current="news" MainType=request.querystring("mainT") select case MainType case 1: Title="最新消息" TitleAll="全部訊息" case 2: Title="陽案管理" TitleAll="全部陽案" case 3: Title="成果" TitleAll="全部成果" case 4: Title="癌症疾病照護" TitleAll="全部照護" case 5: Title="症狀照護" TitleAll="全部照護" case 6: Title="小故事" TitleAll="全部故事" case 7: Title="特殊榮譽" TitleAll="全部榮譽" case else Title="最新消息" TitleAll="全部訊息" end select if not IsNumeric(MainType) or MainType="" then MainType=0 Type2nd=request.querystring("Type") if not IsNumeric(Type2nd) or Type2nd="" then Type2nd=0 set NewsData=Server.CreateObject("ADODB.RECORDSET") const adopenkeyset=1 const adlockreadonly=1 sql="select *" sql=sql&" from NewsType2nd" sql=sql&" where ID="& Type2nd set NT2nd=conn.execute(sql) sql="select *" sql=sql&",format(ND_StarDate,'yyyy-mm-dd') as StarDate" sql=sql&",NT2nd.name as Type2nd" sql=sql&" from NewsData" sql=sql&" left join NewsType2nd as NT2nd on NT2nd.id=NewsData.ND_Type2nd" sql=sql&" where 1=1" if Type2nd<>"" and Type2nd<>0 then sql=sql&" and NT2nd.ID="& Type2nd end if sql=sql&" and NT2nd.NT_ID="& MainType sql=sql&" and now() between ND_StarDate and dateadd('d',1,iif(IsNull(ND_EndDate),now(),ND_EndDate))" sql=sql&" order by ND_code,ND_StarDate desc" NewsData.open sql,conn,adopenkeyset,adlockreadonly%>

<%if Type2nd<>"" and Type2nd<>0 and not NT2nd.eof then response.write NT2nd("name") else response.write TitleAll end if%>

<%end if%>
style="display:none;"<%end if%>> <%if pageno<6 then j=1 else j=pageno-5 end if if pageno1 then%> 第一頁 < <%end if%> <%for i=j to k if pageno=cint(i) then%> <%=i%> <%else%> <%=i%> <%end if next%> <%if pageno > 到最後 <%end if%> ,前往第