<%pagecode = "1-1"%>

홈 > 망가투표 > 한표의 힘 <% if request("page")="" then page=1 else page=request("page") end if sql = " select * from vote order by idx desc " set rs = server.createobject("adodb.recordset") rs.pagesize = 10 rs.open sql,db,1 if rs.BOF or rs.EOF then %> <% else totalpage = rs.PageCount rs.AbsolutePage = page Do until rs.EOF or i>=rs.pagesize num=(rs.RecordCount-i-(Page-1)*rs.PageSize) '회원레벨-------------------- sql = "select point,grade from member where id='"& rs("name") &"'" set rsb1 = connstr.Execute(SQL) if rsb1.eof or rsb1.bof then point = "0" level_grade = "" else point = rsb1("point") level_grade = rsb1("grade") end if rsb1.close set rsb1 = nothing if point <= 250 then mycon = "1" elseif point <= 500 then mycon = "2" elseif point <= 1000 then mycon = "3" elseif point <= 2000 then mycon = "4" elseif point <= 4000 then mycon = "5" elseif point <= 8000 then mycon = "6" elseif point <= 16000 then mycon = "7" elseif point <= 32000 then mycon = "8" elseif point > 32000 then mycon = "9" end if if level_grade = "" or level_grade = "6" or level_grade = "7" then mycon = "mycon"&mycon elseif level_grade = "1" then mycon = "mycon9" else mycon = "Amycon"&mycon end if %> <% rs.MoveNext i=i+1 loop end if %> 등록된 내용이 없습니다. <%=num%>    <%=rs("name")%>  " onFocus='this.blur()'><%=rs("title")%><%if rs("chk") <> "0" then%>    <%end if%> <% if page <> 1 then %> <% end if %>  <% i=1 tenpage=int((page-1)/10)*10+1 do Until i>10 or int(tenpage)>int(totalpage) if int(tenpage)=int(page) then %> <%=tenpage%> <%else%> <%=tenpage%> <% end if i=i+1 tenpage=tenpage+1 loop %>  <% if cint(page) <> cint(totalpage) then %> <% end if %>