| แนะนำเพื่อนใหม่ |
<%
'on error resume next
'dim pcount as integer
gDirect=request.form("direct")
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("oholove.mdb")
Sql="SELECT * from oholoveuser ORDER BY oholove_id DESC"
'rs.Open "SELECT * from useroholove ",conn,3,3
rs.Open sql,conn,1,3
'rs.movefirst
TotalRows = rs.recordCount
Rs.Pagesize = 20
pagesize = rs.pagesize
gPage = request.form("pageno")
TotalPages = RS.PageCount
PageNo =1
'response.write("TotalPage : " & Totalpages)
'response.write("PageNO : " & gpage)
'response.write("Gidrect : " & gdirect)
Select Case gdirect
case ""
pageno = 1
case " Prev "
if gPage = 1 then
pageNo = 1
else
PageNo =gpage -1
gpage = gpage - 1
end if
'response.write("Prev case Page :" & Pageno &gpage)
case " Next "
'response.write("PageNO G : " & gPage &" : " & Totalpages & pageno)
if gPage <>Totalpages then
Pageno=gPage+1
'Pageno=gPage
'response.write("bbbPageNO G : " & gpage &" : " & Totalpages & pageno)
else
PageNo=TotalPages
gPage = pageno
'response.write("aaPageNO G : " & gpage &" : " & Totalpages & pageno)
'while not rs.eof and rs("qnumber") < 21
end if
end select
select case pageno
case 1
rs.movefirst
case 2
while not rs.eof and pcount < 21
rs.movenext
pcount = pcount +1
wend
end select
'response.write("PageNO : " & pageNO)
RsAbsolutepage = pageNo
RowCount =1
'response.write("dasdsadsadsa : " & Pagesize)
do while not rs.eof and rowcount <= Pagesize
'response.write((((pageno-1)*rs.pagesize)+rowcount))
response.write("#" &rs("oholove_id") & " " & "" & rs("Nickname" ) & "
" )
RowCount = RowCount +1
rs.movenext
loop
rs.close
conn.close
%>
|
