<% 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 %>