|
| 導購事宜 |
<%
sql="select * from News where class='001' order by datetime desc"
set rec=server.createobject("adodb.recordset")
rec.open sql,conn,1,1
'response.write sql
'response.End()
if not rec.eof then
rec.pagesize=13
iCount=rec.RecordCount '記錄總數
iPageSize=rec.PageSize
maxpage=rec.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rec.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if %>
<%i=1
do while not i/13=1
if rec.eof then
exit do
end if%>
| · " target="_blank"><%= rec("Title") %> |
<%i=i+1
rec.movenext
loop
end if %>
| <%call PageControl(iCount,pagecount,page,table_style,font_style)
%> |
|
|