|
|
|
<%
sql = " select * from T_type where valid = 'Y' order by seq"
'response.write sql
'response.end
set rs=server.createobject("adodb.recordset")
rs.open sql,oConn,3,1,1
num = 0
do while not rs.EOF
rs.movenext
num = num + 1
loop
totalPut=num
if num > 0 then
rs.movefirst
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if currentPage <> 1 then
if (currentPage-1)*MaxPage
<% if num mod 3 = 1 then %>
<% end if %>
|
<%if rs("file_name") <> "" then%>
<%end if%>
|
<% if num mod 3 = 0 then %>
<% end if %>
<% rs.movenext
num = num +1
loop
else
%>
| 沒有資料 |
<%end if%>
<%
showpages
%>
<%
sub showpages()
dim n
if (totalPut mod MaxPage)=0 then
n= totalPut \ MaxPage
else
n= totalPut \ MaxPage + 1
end if
if n=1 then exit sub
%>
|
<%if n > 1 then%>
<<
<%end if%>
<% dim k
for k=1 to n
if k=currentPage then
response.write "" & Cstr(k)+" "
else
Response.Write ""+Cstr(k)+" "
end if
next%>
<%if n > 1 then%>
>>
<%end if%>
|
<%end sub%>
| |
|
|
