<% 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 TITLE_YN, PhotoTitle, PhotoCaption, newskey,ImageFileName, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where photo_id =" & request("photo_id") & " order by TITLE_YN asc" set rs=Dbcon.Execute(sql) sql5 = "SELECT hit_cnt AS cnt FROM PHOTOBOOK where PHOTO_ID =" & request("photo_id") set rs5=Dbcon.Execute(sql5) hit_cnt = rs5("cnt") hit_cnt = hit_cnt + 1 sql6 = "Update PHOTOBOOK set hit_cnt = " & hit_cnt & " where PHOTO_ID = " & request("photo_id") set rs6=Dbcon.Execute(sql6) %>


 
    <% dim k i = i - 1 for k = 1 to i %> <% next %>
<% go = request("go") go = go + 1 - 1 If go = 0 Then prev_go = 0 next_go = 1 Else prev_go = go - 1 next_go = go + 1 End If %>

">

    <% sql3 = "SELECT PHOTO_ID, svc_date, ImageTFileName FROM PHOTOBOOK_IMG where TITLE_YN = 'Y' order by PHOTO_ID desc" set rs3=Dbcon.Execute(sql3) For a = 1 To (go * 8) rs3.MoveNext Next i = 1 Do until i > 8 OR rs3.EOF servicedate2 = rs3("svc_date") %>
  • " class="thum2">";>
  • <% rs3.Movenext i = i + 1 Loop %>

">

위 원본 이미지에 대한 저작권은 스포츠조선 게시자에게 있으며, 이를 무단으로 사용하는 경우 민,형사상의 법적인 책임을 부담할 수 있습니다.

<% Dbcon.Close set Dbcon = nothing %>