일본 만화의 진수!!! 올컬러 만화를 망가짱에서 즐기세요!!!

<% grade = request.Cookies("mangauser")("grade") '회원 구분 if grade ="2" or grade="3" then flash_view = "main.swf" else flash_view = "main.swf" end if adult_view = "1" link_page = "mangazone" %> <% name=request.cookies("mangauser")("name") set check_rs=server.createobject("adodb.recordset") check_sql="select event_gbn from event_user where userid='"&request.cookies("mangauser")("id")&"' and usegbn='N'" check_rs.open check_sql,connstr if not check_rs.bof or not check_rs.eof then if check_rs("event_gbn")="1" then event_name="최우수 고객상" elseif check_rs("event_gbn")="2" then event_name="관심 고객상" elseif check_rs("event_gbn")="3" then event_name="감사 고객상" elseif check_rs("event_gbn")="4" or check_rs("event_gbn")="5" or check_rs("event_gbn")="6" or check_rs("event_gbn")="7" or check_rs("event_gbn")="8" or check_rs("event_gbn")="9" then event_name="결제추첨 고객" elseif check_rs("event_gbn")="10" then event_name="고객님 의견을 들려주세요 이벤트 당첨" end if %> <%end if%> 일본 만화의 진수!!! 올컬러 만화를 망가짱에서 즐기세요!!! <%if date() < "2004-07-31" then%> <%end if%>

');">무료 악성코드 검사하기

<% SQL = "exec notice_top_" Set rs = Server.CreateObject("ADODB.Recordset") rs.open SQL,db i=1 do until rs.EOF or i>rs.PageSize new_day=datediff("d",rs("registday"), now()) if new_day<=7 then new_img="

" else new_img="" end if %> <% rs.MoveNext i=i+1 loop rs.Close Set rs = Nothing %>

"><%=left(rs("subject"),11)%><%=new_img%>

<% SQL = "select comic.idx as idx,comic.name,comic.kind,right(comic_book_num.code_book_num,2) as num, mode2,comic_book_num.registday from comic_book_num inner join comic on comic_book_num.code = comic.code where comic_book_num.leve = '1' order by comic_book_num.registday desc" Set update_rs = Server.CreateObject("ADOdb.Recordset") update_rs.Open SQL,db for i = 1 to 4 if update_rs("mode2") = 0 then update_page= "adult" update_page1 = "adult" elseif update_rs("mode2")=1 and update_rs("kind")<>"J" then update_page= "mangazone" update_page1 = "mangazone" elseif update_rs("mode2")=1 and update_rs("kind")="J" then update_page= "mangazone" update_page1 = "webjean" end if new_day=datediff("d",update_rs("registday"), now()) if new_day<=7 then new_img="

" else new_img="" end if %> <% update_rs.MoveNext next %>

')" onFocus='this.blur()'><%if len(update_rs("name")) > 8 then%><%=left(update_rs("name"),5)%>..<%else%><%=left(update_rs("name"),5)%><%end if%> <%=update_rs("num")%><%if update_rs("mode2") = 0 then%>화<%else%>권<%end if%> <%if update_rs("mode2") = 0 then%>

<%end if%><%=new_img%>

<% SQL = "SELECT top 3 subject,idx FROM notice where code='3' ORDER BY idx DESC" set faq_rs=server.createobject("adodb.recordset") faq_rs.open sql,db i=1 do until faq_rs.eof %> <% faq_rs.movenext i=i+1 loop faq_rs.close set faq_rs=nothing %>

<%=i%>. <%=left(faq_rs("subject"),16)%>

<% sql="select top 5 name,idx from comic where leve = '1' and mode2=0 and mode4!=2 order by newid()" set rs=server.createobject("adodb.recordset") rs.open sql,db i=1 do until rs.eof %> <% rs.movenext i=i+1 loop rs.close set rs=nothing %>

">- [<%=rs("name")%>]

<% sql="select top 2 a.comic_idx,a.content,a.id,a.star,a.registday,b.name,b.mode2 from manga_content a, comic b " sql = sql & " where a.comic_idx=b.idx and left(a.comic_idx,6) <> 'event_' " sql = sql & " and left(a.comic_idx,1) <> 'f' order by a.registday desc" set rs=server.createobject("adodb.recordset") rs.open sql,db i=1 Do until rs.EOF if rs("mode2")="0" then page_lnk="/adult/adult_info.asp" else page_lnk="/mangazone/mangazone_info.asp" end if %> <% if i=1 then %> <%end if rs.movenext i=i+1 loop rs.close set rs=nothing %>

	<%=rs("name")%>
	- <%=left(rs("content"),18)%>

<% sql="select top 5 * from com_board where code = 1 order by re_id desc ,re_level,re_step,idx" set rs=server.createobject("adodb.recordset") rs.open sql,db i=1 do until rs.eof new_day=datediff("d",rs("writeday"), date()) if new_day<=7 then new_img="

" else new_img="" end if %> <% rs.movenext i=i+1 loop rs.close set rs=nothing %>

<%=left(rs("title"),16)%> <%=new_img%>

<% SQL = "select top 1 idx,title,filename from com_board where code = 3 and re_step=0 and not etc='성인' order by idx desc" Set rs = Server.CreateObject("Adodb.recordset") rs.Open SQL,db %>

" width="130" height="98" border=0>