<% If Request("GoTopage")="" Then curpage = 1 Else curpage = cint(Request("GoTopage")) End If CurPage2 = CurPage If request("title") = "now" Then ipp = 14 Else ipp = 30 End If titles = Trim(request("title")) titles = replace(titles, ";", "") set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons2.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT COUNT(num) AS cnt FROM "& titles set rs=Dbcon.Execute(sql) postcount = rs("cnt") '총 글의 개수를 구한다 Set DbRec=Server.CreateObject("ADODB.RecordSet") DbRec.CursorType = 1 DbRec.Open "SELECT num,filename FROM "& titles &" ORDER BY num DESC",DbCon totpage = fix(postcount / ipp) '전체 페이지의 수를 구한다 If (totpage * ipp) <> postcount Then totpage = totpage + 1 End If For a = 1 To (curpage - 1) * ipp DbRec.MoveNext Next con = "/enter/cartoon/cartoon.asp" If titles = "tazza2" Then k = "타짜" ElseIf titles = "good" Then k = "굿모닝 샐러리맨" ElseIf titles = "zombi" Then k = "좀비콤비" ElseIf titles = "henggarae" Then k = "헹가래" ElseIf titles = "fist" Then k = "큰 주먹" ElseIf titles = "love" Then k = "사랑해" ElseIf titles = "dead" Then k = "데드라인" ElseIf titles = "shooting" Then k = "슈팅코리아" ElseIf titles = "zibagu" Then k = "닥터 지바구" ElseIf titles = "park" Then k = "울동네 박씨" ElseIf titles = "g300" Then k = "300girls" ElseIf titles = "sports" Then k = "스포츠스뽀츠" ElseIf titles = "w400" Then k = "400번째 女子" ElseIf titles = "rich" Then k = "부자사전" ElseIf titles = "sangtoon" Then k = "쌩툰" ElseIf titles = "remnant" Then k = "렘넌트" ElseIf titles = "takryu" Then k = "탁류" ElseIf titles = "boryu" Then k = "등급보류" ElseIf titles = "gongjaban" Then k = "공자반의 맹랑일기" ElseIf titles = "face" Then k = "정창환의 남녀 얼굴여행" ElseIf titles = "erobian" Then k = "김재화의 에로비안 나이트" ElseIf titles = "bacchus" Then k = "박카스배 천원전" con = "/enter/series/bacchus/series.asp" ElseIf titles = "now" Then k = "나우" ElseIf titles = "japanese" Then k = "김지룡의 놀자 일본어" ElseIf titles = "english" Then k = "신정원의 파워 잉글리쉬" ElseIf titles = "movitr" Then k = "무비트랩" ElseIf titles = "yeonin" Then k = "연인" ElseIf titles = "three" Then k = "쓰리쿠션" ElseIf titles = "coffee" Then k = "커피플리즈" Else k = "핸즈" End If %>
현재페이지 : <%=curpage%>/<%=totpage%>
<% i = 1 If titles = "henggarae" Then Do until DbRec.EOF Or i>14 y = Left(Dbrec("filename"), 4) m = Mid(Dbrec("filename"), 5, 2) d = Mid(Dbrec("filename"), 7, 2) Adate = y&"-"&m&"-"&d numszo = Dbrec("num") numszo = cint(numszo) numszo = numszo + 1 If numszo = 2 Then Else %> <% If i = 1 Then %> <% Else %> <% End If %> <% End If DbRec.Movenext i = i + 1 Loop Else Do until DbRec.EOF Or i>ipp y = Left(Dbrec("filename"), 4) m = Mid(Dbrec("filename"), 5, 2) d = Mid(Dbrec("filename"), 7, 2) Adate = y&"-"&m&"-"&d numszo = Dbrec("num") numszo = cint(numszo) numszo = numszo + 1 If numszo = 2 Then Else %> <% If i = 1 Then %> <% Else %> <% End If %> <% End If DbRec.Movenext i = i + 1 Loop End If %>
[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자<%=Adate%>
[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자<%=Adate%>
<% If titles = "now" Then Else MyChoice = 10 Total_Block = int(TotPage / MyChoice) If int(TotPage) Mod MyChoice = 0 Then Total_Block = Total_Block - 1 End If If Request("block") <> "" Then NowBlock = Request("block") Else NowBlock = 0 End If %>
<% If TotPage > 0 Then If Cint(NowBlock) > 0 Then CurPage = (int(NowBlock * MyChoice) - (MyChoice - 1)) %> <% End If %> <% If Cint(Total_Block) <> Cint(NowBlock) Then For Gopage = 1 To MyChoice If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% Else %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% End If Next Else %> <% If (TotPage Mod MyChoice = 0) Then ttt = MyChoice Else ttt = TotPage Mod MyChoice End If For Gopage = 1 To ttt If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% Else %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% End If Next End If '다음 블럭의 첫페이지 수를 계산한다. CurPage = (int(NowBlock * MyChoice) + Gopage) %> <% If (Cint(Total_Block) > 0) and (Cint(NowBlock) < Cint(Total_Block)) Then %> <% End If End If End If %>
<% Dbcon.Close Set Dbcon = Nothing %>