<%
dim currentpage,rowcount,i,sort,sqltext,forward,backward,pgcount
dim page,pagesize,search,pagecount
dim pic,content,count1
Response.Expires=0
pgcount=trim(Request.Form("pgcount"))
pagesize=3
currentpage=trim(request("page"))
if currentpage="" then
currentpage="1"
end if
if IsNumeric(pgcount) then
currentpage=pgcount
end if
sqltext="select count(*) FROM jingcai"
set rs1 = con.execute(sqltext)
sqltext="SELECT * FROM jingcai order by id desc"
set rs=server.createobject("adodb.recordset")
rs.PageSize=pagesize
rs.open sqltext,con,3,3,1
rowcount=0
if not rs.EOF then
count1 = (cint(currentpage)*pagesize-pagesize+1)
if rs1(0) > count1 then
'rs.AbsolutePage = cint(currentpage)
pto = (cint(currentpage)*pagesize-pagesize)
for i=1 to pto
rs.MoveNext()
next
else
rs.AbsolutePage = 1
currentpage = "1"
end if
end if
%>
maggiesbar
Flash
Back
Swing
Bar Christmas 2003
www.maggiesbar.com
{a}
<%
set rs=nothing
set con=nothing
function isnext()
pic=""
content=""
if rs.eof then
exit function
end if
if rs("pic_img")<>"" then
pic=""
if rs("pic_bigimg")<>"" then
pic = "" & pic & ""
end if
end if
content=rs("pic_description")
rs.movenext
end function
%>
