<% If request("photo_id") = "1399" Then response.redirect "http://sports.chosun.com/photo/main_photo+1210.htm" ElseIf request("photo_id") = "1397" Then response.redirect "http://sports.chosun.com/photo/main_photo+2009.htm" ElseIf request("photo_id") = "1416" Then response.redirect "http://sports.chosun.com/photo/main_photo+2012.htm" ElseIf request("photo_id") = "1400" Then response.redirect "http://sports.chosun.com/photo/main_photo+2011.htm" ElseIf request("photo_id") = "1370" Then response.redirect "http://sports.chosun.com/photo/main_photo+2013.htm" Else %>

포토화보

    <% photo_id_init = request("photo_id") photo_id_init = photo_id_init + 1 - 1 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons7.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT * FROM PHOTOBOOK where SVC_CODE='03' order by PHOTO_ID desc limit 15" set rs77=Dbcon.Execute(sql) i = 1 Do until rs77.EOF sql = "SELECT TITLE_YN, PhotoTitle, PhotoCaption, PHOTO_ID, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where (TITLE_YN = 'Y' AND photo_id = " & rs77("photo_id") & ") order by PHOTO_ID desc limit 15" set rs=Dbcon.Execute(sql) servicedate = rs("svc_date") phototitle = rs("PhotoTitle") phototitle = replace(phototitle, "[포토] ", "") If len(phototitle) > 22 Then phototitle = Left(phototitle, 21) & "..." End If %>
  • ', 'photo_viewer' , 'top=100px, left=100px, height=830px, width=960px');" class="thum1" >" width="305" height="273">
    ', 'photo_viewer' , 'top=100px, left=100px, height=830px, width=960px');" class="cfff14"><%=phototitle%>
    • <% rs77.Movenext i = i + 1 Loop rs77.Close set rs77 = nothing %>

많이 본 화보

동영상뉴스
    <% If Request("GoTopage")="" Then curpage = 1 Else curpage = cint(Request("GoTopage")) End If CurPage2 = CurPage ipp = 25 If request("category") = "" Then sql10 = "SELECT count(PHOTO_ID) AS cnt FROM PHOTOBOOK where (Title is not null AND svc_code = '03')" ElseIf request("category") = "sports" Then sql10 = "SELECT count(PHOTO_ID) AS cnt FROM PHOTOBOOK where (Title is not null AND svc_code = '01')" ElseIf request("category") = "enter" Then sql10 = "SELECT count(PHOTO_ID) AS cnt FROM PHOTOBOOK where (Title is not null AND svc_code = '02')" Else sql10 = "SELECT count(PHOTO_ID) AS cnt FROM PHOTOBOOK where (Title is not null AND svc_code = '03')" End If set rs10=Dbcon.Execute(sql10) postcount = rs10("cnt") postcount = CInt(postcount) rs10.Close set rs10 = nothing totpage = fix(postcount / ipp) '전체 페이지의 수를 구한다 If request("category") = "" Then sql5 = "SELECT TITLE_YN, PhotoTitle, PhotoCaption, PHOTO_ID, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where (TITLE_YN = 'Y' AND PHOTO_ID in (select PHOTO_ID from PHOTOBOOK where svc_code = '03')) order by PHOTO_ID desc" ElseIf request("category") = "sports" Then sql5 = "SELECT TITLE_YN, PhotoTitle, PhotoCaption, PHOTO_ID, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where (TITLE_YN = 'Y' AND PHOTO_ID in (select PHOTO_ID from PHOTOBOOK where svc_code = '01')) order by PHOTO_ID desc" ElseIf request("category") = "enter" Then sql5 = "SELECT TITLE_YN, PhotoTitle, PhotoCaption, PHOTO_ID, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where (TITLE_YN = 'Y' AND PHOTO_ID in (select PHOTO_ID from PHOTOBOOK where svc_code = '02')) order by PHOTO_ID desc" Else sql5 = "SELECT TITLE_YN, PhotoTitle, PhotoCaption, PHOTO_ID, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where (TITLE_YN = 'Y' AND PHOTO_ID in (select PHOTO_ID from PHOTOBOOK where svc_code = '03')) order by PHOTO_ID desc" End If set rs5=Dbcon.Execute(sql5) If (totpage * ipp) <> postcount Then totpage = totpage + 1 End If For a = 1 To (curpage - 1) * ipp rs5.MoveNext Next i = 1 k = 1 Do until rs5.EOF OR i > ipp servicedate5 = rs5("svc_date") ImageFileName5 = rs5("ImageFileName") PhotoTitle = rs5("PhotoTitle") PhotoTitle = replace(PhotoTitle, "[포토] " , "") If len(PhotoTitle) > 13 Then PhotoTitle = Left(PhotoTitle, 12) & "..." End If %>
  • ', 'photo_viewer' , 'top=100px, left=100px, height=830px, width=960px');" >" style="border:1px solid #dddddd" width="118px" height="118px">
    ', 'photo_viewer' , 'top=100px, left=100px, height=830px, width=960px');" class="c333"><%=PhotoTitle%>
    • <% If k = 5 Then k = 0 If i = 25 Then %>
<% Else %>
    <% End If End If %> <% rs5.Movenext k = k + 1 i = i + 1 Loop rs5.Close Dbcon.Close Set rs5 = Nothing Set Dbcon = Nothing %>
<% 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)) %> &block=<%=(NowBlock-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 %> &block=<%=(NowBlock+1)%>">다음 <% End If End If %>

<% End If %>