<%Root=1%> <%current="OnlineLearn" OLD_Type=request.querystring("Type") if not IsNumeric(OLD_Type) or OLD_Type="" then OLD_Type=0 set OLData=Server.CreateObject("ADODB.RECORDSET") const adopenkeyset=1 const adlockreadonly=1 set OLDType=conn.execute("select name from OnlineLearnType where ID="& OLD_Type) sql="select *" sql=sql&" from OnlineLearnData as OLD" sql=sql&" left join OnlineLearnType as OLT on OLT.id=OLD.OLD_Type" sql=sql&" where 1=1" if OLD_Type<>"" and OLD_Type<>0 then sql=sql&" and OLD_Type="& OLD_Type end if sql=sql&" and now() between OLD_StarDate and dateAdd('d',1,iif(IsNull(OLD_EndDate),now(),OLD_EndDate))" sql=sql&" order by OLD_StarDate Desc" OLData.open sql,conn,adopenkeyset,adlockreadonly%>

<%if OLD_Type<>"" and OLD_Type<>0 and not OLDType.eof then response.write OLDType("Name") else response.write "全部" end if%>

    <%if OLData.eof or OLData.bof then%>
  • 目前尚無任何資料!!!
  • <%else OLData.pageSize=20 u=OLData.pageCount PageNo=ReturnInt(request("sub")) if CInt(PageNo)<1 then PageNo=1 if CInt(PageNo)>u then PageNo=u OLData.absolutePage=PageNo do while not (OLData.eof or OLData.bof) and OLData.absolutePage=PageNo%>
  • "><%=OLData("OLD_Title")%>

    <%=left(OLData("OLD_Content"),100)%>

  • <%OLData.movenext loop%>

<%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%> ,前往第