|
|
|
|
 |
|
채영이 / 2000-06-26 / 오후 4:13:02 / 203.255.3.190
조회수 : 128
|
| [질문] 이거 아시는 분 답변좀...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
> %>
>
>
>
> <% 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%> |
>
> <%
> rs.Movenext
> i = i + 1
> Loop
> else
> %>
>
> 저장된 글이
> 없습니다. |
>
> <% end if %>
> <%
> rs.Close
> db.Close
> Set rs = Nothing
> Set db = Nothing
> %>
>
>
> 
>
>
>
>
> | | |
> height="28" border="0">
> height="23" border="0">