당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net) 입국하기 | 영주권 신청
  • 몸부림 골라골라
  • 소근소근
  • 도란도란
  • 낙서마당
  • 착각한아이
  • 숫자맞추기
  • 소원빌기
  • 흔적남기기
  • 꿈속여행
  • 친구집 놀러가기
  • 모두드림님의 홈
  • 在祐님의 홈
  • 현우님의 홈
  • 별아해님의 홈
  • 햇살님의 홈
  • 이나니님의 홈
  • 유리알님의 홈
  • 냠냠이님의 홈
  • 꼭지님의 홈
  • 대성님의 홈
    • 이성안 / 2000-06-25 / 오후 1:47:39 / 203.234.154.2
    조회수 : 141
    [질문] 이거 아시는 분 답변좀...taeyo강좌를 봐도 모르겠어서...흑흑
    아래 소스에서 리스트 밑에 <1><2><3>..이렇게 페이지 이동하는걸 삽입
    하고 싶은데 어떻게 해야 되죠?아시는분 소스보시구 답변좀 부탁드립니
    다. 정말 급해서요...ㅠㅠ

    ---- 에러라인의 코드 ----







    <%
    select case request.querystring("page")
    case ""
    session("current page")=1
    case "next"
    session("currentpage")=session("currentpage")+1
    case "previ"
    session("currentpage")=session("currentpage")-1
    end select
    %>


    bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF"
    bgcolor="#FFFFFF">








    <%

    page = Request("page")
    if ((page = "-1")) then
    page = 1
    end if
    if ((page = "")) then
    page = 1
    end if

    set db = server.createobject("adodb.connection")
    db.open ("")
    sql = "select count(bbs_num) from guest_bbs "

    set rs = db.Execute (sql)
    pagesize = 15
    rs.open SQL,db,1
    rs.absolutepage=session("currentpage")
    rs.close

    strYear = Year(now)
    strMonth = Month(now)
    strDay = Day(now)

    if cint(strMonth) < 10 then
    strMonth = "0" & strMonth
    end if
    if cint(strDay) < 10 then
    strDay = "0" & strDay
    end if

    cur_date = strYear & "/" & strMonth & "/" & strDay

    sql = "select TOP " & pagesize * page & " bbs_num, bbs_index, bbs_ref,
    bbs_step, bbs_level, bbs_subj, bbs_name, bbs_email, bbs_cnt, bbs_date,
    bbs_time from Guest_bbs ORDER BY bbs_ref DESC, bbs_step, bbs_level"

    rs.open sql, db, 1, 1

    if rs.eof or rs.bof then
    nodata = True
    else
    nodata = False
    end if


    if nodata = False then

    rs.Move pagesize * (page-1)

    i = 1
    Do until rs.EOF or i > pagesize

    refRef = rs("bbs_ref")
    refStep = rs("bbs_step")
    refLevel = rs("bbs_level")
    bbs_num = rs("bbs_num")
    bbs_iname = rs("bbs_index")
    bbs_email = rs("bbs_email")
    bbs_name = rs("bbs_name")
    bbs_date = rs("bbs_date")
    bbs_time = rs("bbs_time")
    bbs_cnt = rs("bbs_cnt")
    bbs_subj = Replace(rs("bbs_subj"), "''", "'")

    if bbs_iname = "guest" then
    iname = ".."
    elseif bbs_iname = "mfree" then
    iname = ""
    elseif bbs_iname = "happy" then
    iname = "..1"
    elseif bbs_iname = "glgrim" then
    iname = "..2"
    elseif bbs_iname = "takw" then
    iname = "..3"
    elseif bbs_iname = "news" then
    iname = "..4"
    elseif bbs_iname = "yoon" then
    iname = "..5"
    elseif bbs_iname = "" then
    iname = " "
    end if

    if bbs_name = ".." and bbs_email = "..@..com" then
    bgcolor1 = "red"
    elseif bbs_name = "" and bbs_email = "" then
    bgcolor1 = "red"
    elseif bbs_name ="" and bbs_email = "" then
    bgcolor1 = "red"
    else
    bgcolor1 = "#0064D0"
    end if

    refMark = ""
    if refLevel > 0 then
    For i=1 To refLevel
    refMark = refMark + " "
    Next
    refMark = refMark
    else
    refMark = ""
    end if

    bbs_title = bbs_subj

    if Len(bbs_title) >= 22 then
    bbs_title = left(bbs_title, 15) & "..."
    end if
    %>

    <%
    i=1
    DO until rs.EOF Or i>rs.pagesize
    %>









    <%
    rs.Movenext
    i = i + 1
    Loop
    else
    %>



    <% end if %>
    <%
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    %>
    번호 구분 제 목 작성자 작성일 조회수

    <% if refLevel <> 0 then %>
     
    <% else %>
    <%=bbs_num%>
    <% end if %>

    <%=iname%>

    <% if refLevel <> 0 then %>
    <%=refMark%> width="11" height="12"> >&curRef=<%=refRef%>&curStep=<%=refStep%>&curLevel=<%=refLevel%
    >" onmouseover="window.status='<%=bbs_title%>'; return true"><%=
    bbs_title %>
    <% else %>

    &curRef=<%=refRef%>&curStep=<%
    =refStep%>&curLevel=<%=refLevel%>" onmouseover="window.status='<%
    =bbs_title%>'; return true"><%= bbs_title %>
    <% end if %>

    <% if bbs_email = "" then %>
    <%=bbs_name%>
    <% else %>
    <%
    =bbs_name%>
    <% end if %>
    		<%=bbs_date%> <%=bbs_cnt%>
    저장된 글이
    없습니다.
















    <% if Cint(page) <> 1 then %>
    onmouseover="window.status='페이지 이동';return true"> src="../opinion/img/b-back.gif" width="52" height="25" border="0">
    <% end if %>
    onmouseover="window.status='글쓰기';return true"> src="../opinion/img/b-write.gif" width="52" height="25" border="0">
    <% if Cint(page) <> Cint(pagecount) then %>
    onmouseover="window.status='페이지 이동';return true"> src="../opinion/img/b-forward.gif" width="52" height="25" border="0">
    <% end if %>
    <% if Cint(page) <> 1 then %>뒷장<% end if %> 글쓰기 <% if Cint(page) <> Cint(pagecount) then %>앞장<%
    end if %>



    align="center">






    height="28" border="0">
    height="23" border="0">





    ---- 질문 내용 ----
    꼭좀 부탁드립니다. ㅜㅜ
    Byte * 200 Byte 이내로 입력하세요 이름 : 패스워드 :