| |
|
 |
| |
|
|
|
|
|
   |
 |
<%
Const MaxPerPage=1
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from movie where classid=24 order by adddate desc",conn,1,1
if err.number<>0 then
response.write " 數據庫中暫時無數據 "
end if
if rs.eof And rs.bof then
Response.Write " 對不起，目前還沒有信息！ "
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"movie.asp"
else
if (currentPage-1)*MaxPerPage
<%do while not rs.eof%>
|
<%=rs("title")%> |
<%=ubbcode(rs("content"))%> |
|
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<% End Function %> |
 |
 |
|
| |
|
|
|
|
|
| |
|
|
| |
|
|
|
|
