<% set conn = GetConnection() newstype = request("newstype") sql = "select * from NewHK_News where TYPE like N'"& newstype&"' order by DATEANDTIME desc" set rs = server.createobject("adodb.recordset") rs.open sql,conn,3,3 '-----分頁設定 page = trim(request.form("page")) if not isnumeric(page) then page = 1 if page <= 0 then page = 1 if not rs.eof then page = cint(page) rs.pagesize = 10 '-----每頁筆數 if page > rs.pagecount then page = rs.pagecount rs.absolutepage = page end if %> 元富企業網 " else response.write "" end if%>
<% if newstype="allnews" then response.write "

<% if not rs.eof then for i = 1 to rs.pagesize %> <% rs.movenext if rs.eof then exit for next else %> <% end if if rs.pagecount > 0 then %> <%end if%>
  <%=rs("SUBJECT")%> .<%=rs("DATEANDTIME")%>
沒有任何資料!!
<%if page = 1 then%> 第一頁 | 上一頁 | <%else%> 第一頁 | 上一頁 | <%end if%> <%if page = rs.pagecount then%> 下一頁 | 最後一頁 | <%else%> 下一頁 | 最後一頁 | <%end if%>
資料筆數 : <%=rs.recordcount%>    第 <%=page%> / <%=rs.pagecount%> 頁    跳頁:

回首頁
<% rs.close set rs = nothing conn.close set conn = nothing %>