<% Dim title,num,Direct,yy,dd,mm,fso,f,strconnect title = Trim(request("title")) num = request("num") Direct = request("Direct") yy = Request("select7") mm = Request("select8") dd = Request("select9") If title = "tazza2" Then response.redirect "http://sports.chosun.com/enter/cartoon/tazza2/cartoon_tazza1.asp?title=tazza2" ElseIf title = "gongjaban" Then response.redirect "http://sports.chosun.com/enter/cartoon/gongjaban/cartoon_gongjaban1.asp?title=gongjaban" ElseIf title = "zombi" Then response.redirect "http://sports.chosun.com/enter/cartoon/zombi/cartoon_zombi1.asp?title=zombi" ElseIf title = "daemul" Then response.redirect "http://sports.chosun.com/enter/cartoon/daemul/cartoon_daemul1.asp?title=daemul" Else Dim ObjDBConn, ObjRs, strSQL Dim maxNum, curNum, filename set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons7.dat") strconnect = f.Readline set ObjDBConn=Server.CreateObject("ADODB.Connection") ObjDBConn.Open strconnect Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.ActiveCOnnection = ObjDBConn If Request("num") = "" Then strSQL = "SELECT num, filename FROM " & Request("title") & " ORDER BY num DESC with ur" Else strSQL = "SELECT num, filename FROM " & Request("title") & " ORDER BY num DESC with ur" End If ObjRs.Open strSQL, ObjDBConn, 1, 2 maxNum = objRs("num") If Request("num") = "" Then '아무런 검색조건 없이 처음 이 페이지에 들어오는 경우 curNum = objRs("num") filename = objRs("filename") Else '이전이나 이후 버튼을 누른 경우 ObjRs.Find "num = " & CDbl(Request("num")) If Request("Direct") = "Next" Then ObjRs.MovePrevious If Not ObjRs.EOF Then curNum = objRs("num") filename = objRs("filename") Else filename = "00000000.htm" End If Else ObjRs.MoveNext If Not ObjRs.EOF Then curNum = objRs("num") filename = objRs("filename") Else filename = "00000000.htm" End If End If End If yy = Left(filename, 4) mm = Mid(filename, 5, 2) dd = Mid(filename, 7, 2) %>
<% yy=left(filename,4) mm=mid(filename,5,2) dd=mid(filename,7,2) Dim t, kkk If title = "tazza" Then t = "타짜" ElseIf title = "good" Then t = "굿모닝 샐러리맨" ElseIf title = "zombi" Then t = "좀비콤비" ElseIf title = "henggarae" Then t = "헹가래의 세상만사" ElseIf title = "fist" Then t = "큰 주먹" ElseIf title = "love" Then t = "사랑해" ElseIf title = "dead" Then t = "데드라인" ElseIf title = "shooting" Then t = "슈팅코리아" ElseIf title = "zibagu" Then t = "닥터 지바구" ElseIf title = "sonagi" Then t = "소나기" ElseIf title = "newboy" Then t = "신소년" ElseIf title = "foreigner" Then t = "이방인" ElseIf title = "park" Then t = "울동네 박씨" ElseIf title = "paheng" Then t = "파행" ElseIf title = "w400" Then t = "400번째 여자" ElseIf title = "three" Then t = "쓰리쿠션" ElseIf title = "takryu" Then t = "탁류" ElseIf title = "boryu" Then t = "등급보류" ElseIf title = "coffee" Then t = "커피플리즈" ElseIf title = "remnant" Then t = "렘넌트" ElseIf title = "movietr" Then t = "무비트랩" ElseIf title = "sports" Then t = "스포츠스뽀츠" ElseIf title = "g300" Then t = "300girls" ElseIf title = "sangtoon" Then t = "쌩툰" ElseIf title = "yeonin" Then t = "연인" ElseIf title = "hyungsu" Then t = "형수는 팀장님" ElseIf title = "now" Then t = "나우" ElseIf title = "sunflower" Then t = "해바라기" Else t = "핸즈" End If %> [<%=t%>] <%=yy%>년<%=mm%>월<%=dd%>일
<% If CInt(curNum) > 2 Then %> <% Else %> <% End If %>
&Direct=Prev">"> <% If (CDbl(curNum) < CDbl(maxNum)) And (filename <> "00000000.gif") Then %> <% Else %>
<% End If %>
<% Dim plink plink = "http://foto.sportschosun.com/enter/cartoon/cartoon.asp?title=" & request("title") %>
 
<%=kkk%>
 
/image_cartoons/<%=filename%>" alt="<%=yy%>년<%=mm%>월<%=dd%>일">
 
<% If CInt(curNum) > 2 Then %> <% Else %> <% End If %>
&Direct=Prev"> <% If (CDbl(curNum) < CDbl(maxNum)) And (filename <> "00000000.gif") Then %> <% Else %>
<% End If %>

<% objRs.Close Set objRs = Nothing objDbConn.Close Set ObjDBConn =Nothing End If %>