<% pc = Request.QueryString("pc")'每頁顯示個數 sb = Request.QueryString("sb")'排序方式 IF pc = "" Then pc = 500 IF sb = "" Then sb = 1 if Request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(Request.querystring("page")) end if set rs = server.CreateObject("adodb.recordset") sql = "select NewsID,Title,Content,NewsPic,NewsDate from HTX_News where ClassID=3" Select Case sb Case 1 sql = sql & " order by NewsDate Desc" End Select rs.pagesize = pc rs.cachesize = pc rs.open sql,conn,1,1 ipagecount = rs.pagecount irecordcount = rs.recordcount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then else rs.absolutepage = ipagecurrent irecordsshown = 0 %> <%do while irecordsshown

"><%=rs("Title")%> [<%=DatetoStr(rs("NewsDate"))%>] <%=strvalue(Replacehtml(rs("Content")),60)%>

<% rs.movenext irecordsshown = irecordsshown +1 Loop %> <%IF ipagecount>=2 Then%>

<% call showPageNum(ipagecurrent,ipagecount,"?sb="&sb&"&pc="&pc&"&page=") %>

<%End IF%> <% end if rs.close set rs=nothing %>