<% pagecode = "1-3" %>

홈 > 망가투표 > 망가공감 <% idx = request("idx") sql = "select top 1 a.idx,a.content,a.manga_idx,b.smallimage from manga_share a, comic b where a.manga_idx=b.idx" if idx <> "" then sql = sql & " and a.idx="& idx else sql = sql & " and a.adult="& adult_view end if sql = sql & " order by a.idx desc" set rs = server.createobject("adodb.recordset") rs.open sql,db idx = rs("idx") content = rs("content") manga_idx = rs("manga_idx") manga_img = rs("smallimage") rs.close set rs = nothing %> <%=content%> <%if id = "" then%>아이디<%else%><%=id%><%end if%> ★★★★★ ★★★★ ★★★ ★★ ★ <%if id = "" then%><%else%><%end if%> <% if request("page")="" then page=1 else page=request("page") end if Sql = "select idx,board_idx,registday,content,id,star from board_content " sql = sql & " where board_idx ='"& idx &"' and code=7 order by idx desc" set rs = server.createobject("adodb.recordset") rs.pagesize = 10 rs.open sql,db,1 if not rs.BOF or not rs.EOF then totalpage = rs.PageCount rs.AbsolutePage = page i=0 Do until rs.EOF or i>=rs.pagesize select case rs("star") case "1" star_str = "★" case "2" star_str = "★★" case "3" star_str = "★★★" case "4" star_str = "★★★★" case "5" star_str = "★★★★★" end select content = replace(rs("content"),chr(13)&chr(10)," ") '회원레벨-------------------- sql = "select point,grade from member where id='"& rs("id") &"'" 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("id")%> <%=rs("registday")%> <%if id = rs("id") then%>&board_idx=<%=idx%>&adult_view=<%=adult_view%>" onFocus='this.blur()'><%end if%>   <%=star_str%> <%=rs("content")%> <% rs.MoveNext i=i+1 loop %> <% 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 %> <%end if%>