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