|
| 在線下載 |
<%
set rec=server.CreateObject("adodb.recordset")
sql="select * from down order by pro_adddate desc"
rec.open sql,conn,1,1
if not rec.eof then
rec.pagesize=6
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=0
do while not i/6=1
if rec.eof then
exit do
end if
%>
| ◎ <%= rec("pro_name") %> 下載次數：<%=rec("pro_downum")%> |
"> |
| 簡易說明：<%=rec("pro_suo")%> 更新日期：<%=rec("pro_adddate")%> |
| |
<%
i=i+1
rec.movenext
loop
end if
%>
| <%call PageControl(iCount,pagecount,page,table_style,font_style)
%> |
|
|