<% set conn = GetConnection() sql = "select * from NewHK_NewStock order by ENDDATE 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 %> 元富企業網

<% 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%>
編號 股票名稱 招股日期 上市日期 截止認購
<%=CodeReduce(rs("CODE"))%>   <%=rs("NAME")%> <%=rs("STARTDATE")%> <%=rs("TRADEDATE")%> <%=rs("ENDDATE")%>
沒有任何資料!!
<%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 function CodeReduce(x) leng = len(x) x = mid("00000"&x,leng+1,5) if left(x,1) = "0" then CodeReduce = mid(x,2,4) else CodeReduce = x end if end function %>