LED News of product, technical, market report, knowledge in our company and in the LED field

News of product, technical, market report, knowledge in our company and in the LED field

<% flag="Wait for process" set rs_news=server.createobject("adodb.recordset") sqltext="select * from Conews Order BY id desc" rs_news.open sqltext,conn,1,1 dim PerPage PerPage=20 'ûʱ If rs_news.eof and rs_news.bof then call showpages response.write "

No any news at moment

" response.end End if 'ȡPage,жMemberǷ͵ݣ粻ǽNo:һPageʾ text="0123456789" rs_news.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > rs_news.PageCount Then CurrentPage = rs_news.PageCount Else CurrentPage= 1 End If If not rs_news.eof Then rs_news.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages call list If rs_news.recordcount > PerPage then call showpages end if 'ʾӵӳ Sub list() %>

Company News <% Response.write "-> All-" Response.write "Total" & "" & Cstr(rs_news.RecordCount) & "" & "news          " Response.write "No:" & Cstr(CurrentPage) & "/" & Cstr(rs_news.pagecount) & " " If currentpage > 1 Then response.write "1st Page " Response.write "Previous " Else Response.write "Previous " End if If currentpage < rs_news.PageCount Then Response.write "Next" Response.write "last Page   " Else Response.write "" Response.write "Next  " End if 'response.write "" 'response.write "ת " 'response.write "  " %>

<% if not rs_news.eof then do while not rs_news.eof %>

"><%=rs_news("title")%>  <%=rs_news("time")%>  <%if rs_news("time")=date() then%> New <%end if%>

<% i=i+1 if i >= Perpage then exit do rs_news.movenext loop end if %>

Company News <% Response.write "-> All-" Response.write "Total" & Cstr(rs_news.RecordCount) & " news          " Response.write "No:" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs_news.pagecount) & " " If currentpage > 1 Then response.write "1st Page " Response.write "Previous" Else Response.write "Previous " End if If currentpage < rs_news.PageCount Then Response.write "Next " Response.write "last Page   " Else Response.write "" Response.write "Next   " End if 'response.write "" 'response.write "ת " 'response.write "  " %>

<% End sub rs_news.close %>