|
|
 |
|
채영이 / 2001-07-09 / 오후 7:58:11 / 203.255.3.190
조회수 : 250
|
| [질문] 내용보기에서 동적리스트를 만들었는데...[죄송,좀 길어요] |
> <!--#include file=../include/dbopen.asp-->
> <%
>
> Const adOpenForwardOnly = 0
> Const adOpenKeyset = 1
> Const adOpenDynamic = 2
> Const adOpenStatic = 3
>
> Dim board_no, board_count, minyoung, secret
> Dim naya, heeya, strSQL
>
> board_no = request("board_no")
> current_no = request("board_no")
> minyoung = request("minyoung")
> secret = request("secret")
> naya = request("naya")
> heeya = trim(request("heeya"))
> board_count = request("board_count")
> 'board_userip = request("board_userip")
> 'board_useros = request("board_useros")
> board_pass = ""
>
>
> strSQL = "SELECT * FROM newsboard " & _
> "WHERE board_no = " & board_no
>
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.Open strSQL,DbCon,adOpenKeyset
> ====>이 부분에서 에러임다.
> if rs.EOF or rs.BOF then
> rs.Close
> Set rs = nothing
> DbCon.Close
> Set DbCon = nothing
>
> %>
>
> <SCRIPT LANGUAGE="JavaScript">
> <!--
>
> history.go(-1);
>
> //-->
> </SCRIPT>
>
> <%
> else
>
> Dim board_num, board_step, board_id, board_writer
> Dim board_email, board_homepage, board_title
> Dim board_memo, board_day, board_time, current_no
> Dim current_num, current_step, current_id', board_userip, board_useros
>
> board_num = rs("board_num")
> board_step = rs("board_step")
> board_id = trim(rs("board_id"))
> board_writer = trim(rs("board_writer"))
> board_email = trim(rs("board_email"))
> board_homepage = trim(rs("board_homepage"))
> ' board_title = Replace(trim(rs("board_title")), "''", "'")
> board_title =trim(rs("board_title"))
> ' board_memo = Replace(trim(rs("board_memo")), "''", "'")
> board_memo = trim(rs("board_memo"))
>
> board_day = trim(rs("board_day"))
> board_time = trim(rs("board_time"))
> userip=trim(rs("board_userip"))
> 'response.write "사용자 IP :"& userip &"<br>"
> useros=trim(rs("board_useros"))
> 'response.write "사용자 os :"& useros &"<br>"
> board_day = left(board_day,4) & "-" & Mid(board_day,5,2) & _
> "-" & right(board_day,2)
>
> strHour = left(board_time,2)
>
> if Cint(strHour) = 0 then
> strHour="오전" & " " & "12"
> elseif Cint(strHour) = 12 then
> strHour="오후" & " " & "12"
> elseif Cint(strHour) > 12 then
> strHour="오후" & " " & Cstr(Cint(strHour) - 12)
> else
> strHour="오전" & " " & strHour
> end if
>
> board_time = strHour & ":" & Mid(board_time,3,2) & _
> ":" & right(board_time,2)
>
> if trim(rs("board_html"))<>"1" then
> 'html tag제한
> board_memo = Replace(board_memo, " ", chr(32))
> board_memo = Replace(board_memo, chr(32)+chr(32), " ")
> board_memo = Replace(board_memo, chr(13), "<BR>")
>
> board_memo = Replace(board_memo, "<", "<")
> board_memo = Replace(board_memo, ">", ">")
> board_memo = Replace(board_memo, "<BR>", "<BR>")
> board_memo = Replace(board_memo, "&", "&")
> else
> board_memo = replace(RS("board_memo"),chr(13)&chr(10),"<BR>")
> end if
>
> rs.Close
>
> ' 선택글 가져오기 끝
> ' 현재 글번호
> current_id = board_id
> current_no = board_no
> current_num = board_num
> current_step = board_step
>
> ' 이전글, 다음글 구하기
> Dim nextno, prevno, temp, nextcount, prevcount, tempcount
> nextno = 0
> prevno = 0
> temp = 0
> tempcount = 0
> nextcount = 0
> prevcount = 0
> '=================================================
> page=Request("page")
>
> if request("page")="" then
> page=1
> end if
> '=================================================
> if secret = "" then ' 기냥 리스트만 볼 때
> strSQL = "SELECT board_no, board_count " & _
> "FROM newsboard"
> else ' 검색일 때
> strSQL = "SELECT board_no, board_count " & _
> "FROM newsboard WHERE " & minyoung & _
> " LIKE '%" & secret & "%'"
> end if
>
> if naya = "" then '기본값
> naya = "board_num"
> heeya = "desc"
> end if
>
> strSQL = strSQL & " ORDER BY " & naya
> strSQL = strSQL & " "
> strSQL = strSQL & heeya
>
> if naya <> "board_writer" then
> strSQL = strSQL & ", board_step"
> end if
>
> rs.Open strSQL,DbCon,adOpenKeyset
> rs.MoveFirst
>
> Do While Not rs.EOF
>
> if int(rs("board_no")) = int(current_no) then
> nextno = temp
> nextcount = tempcount
> rs.MoveNext
> if Not rs.EOF then
> prevno = rs("board_no")
> prevcount = rs("board_count")
> else
> rs.MovePrevious
> end if
> else
> temp = rs("board_no")
> tempcount = rs("board_count")
> end if
>
> rs.MoveNext
> Loop
>
> rs.close
> set rs=nothing
> ' 이전글 구하기 끝
> board_count = board_count + 1
>
> ' 읽은 횟수를 증가합니다.
> strSQL = "UPDATE newsboard " & _
> "SET board_count = " & board_count & _
> " WHERE board_no = "& board_no
>
> DbCon.Execute(strSQL)
> end if
> %>
>
> <html>
> <head>
> <title>하이 산업(주) TFT-LCD : 작성된 글 보기</title>
> <link rel="stylesheet" href="../include/style.css">
> </head>
> <body>
> <div align="center">
> <input type="hidden" name="board_pass">
> <table width="590" cellpadding="0" cellspacing="0" border="1" bordercolor="#dfeedd" bgcolor="white">
> <font size="2"><img src="images/top_news_bar.gif " border="0">
> No. <%= board_num %> <%= board_day %> </font>
> <!--
> ****************************************시간 주석 처리***********************************************
> <%= board_time %>
> -->
>
> <!--출 처 :
> <%
> '작성자를 출처로 전환하며, 주석 처리
> 'if board_email <> "" then
> ' Response.Write "<a href='mailto:" & board_email & "'>" & _
> ' board_writer & "</a>"
> 'else
> Response.Write board_writer
> 'end if
> %>
> -->
>
> <!--이 부분두 뉴스로 올리며, 주석처리
> 홈페이지 :
> <%
> if board_homepage <> "" then
>
> Response.Write "<a href=http://" & board_homepage & " target=_blank>" & board_homepage & "</a>"
> else
> Response.Write " "
> end if
> %>
> -->
> <tr>
> <td colspan="4" bgcolor="#dfeedd" align="center" class="fontb" style="border-top-width:1; border-bottom-width:1; border-top-style:solid; border-bottom-style:solid;">
> <img src="images/text.gif" border="0" width="13" height="13"> <%= board_title %>
> </td>
> <td bgcolor="#dfeedd" align="right"><a href="news_edit_dis.asp?board_no=<%=current_no%>&
> minyoung=<%=minyoung%>&secret=<%=secret%>&
> naya=<%=naya%>&heeya=<%=heeya%>"><img src="images/mod.gif" border="0" alt="수정하기"></a>
> <a href="news_del.asp?board_no=<%=current_no%>&
> board_num=<%=current_num%>&
> board_step=<%=current_step%>"><img src="images/del.gif" border="0" alt="삭제하기"></a> </td>
> </tr>
> <tr>
> <td bgcolor="white" colspan="5" align="left" style="border-top-width:1; border-bottom-width:1; border-top-style:solid; border-bottom-style:solid;">
>
> <!-- 상세 내용 출력을 위한 테이블 지정 -->
> <table border="0" width="570" cellpadding="0" cellspacing="0">
> <tr>
> <td width="10"> </td>
> <td class="fontb">
> <!--문자 간격을 주기 위하여 테이블을 추가하였고,td를 주었다.-->
> <!--내용 입력-->
> <br>
> <%=board_memo%>
> <br>
> 출처 [ <% Response.Write board_writer %> ]
> </td>
> <td width="10">
> <!--테이블 옆 공간 확보를 위하여 사용-->
> </td>
>
> <td>
> </td>
> </tr>
> </table>
> </td>
> </tr>
> </table>
> <table border="0" width="590" cellpadding="0" cellspacing="0">
> <tr><td align="center"><font size="-1" color="#2D4A85">
> <!-- 사용자 ip와 사용 os Checking -->
> <%
> 'response.write "사용자 IP : "& userip &" "
> 'response.write "사용자 OS : "& useros &"<br>"
> %></font></td>
> </table>
> <br>
> <table width="590" border="0">
> <tr>
> <td align="center" class="fontb">
> <% if prevno <> 0 then %>
> <a href="news_read_dis.asp?board_no=<%=prevno%>&
> board_count=<%=prevcount%>&minyoung=<%=minyoung%>&
> secret=<%=secret%>&naya=<%=naya%>&
> heeya=<%=heeya%>&page=<%=page%>"> <img src="images/e1prev.gif" border="0" alt="이전글"> </a>
> <% end if %>
> <a href="news_write_dis.asp?IsNew=Ref&board_no=<%=current_no%>&mode=reply&page=<%=page%>">
> <img src=images/e1reply.gif border=0 alt=답변하기></a>
> <% if trim(User_id) = trim(current_id) then %>
> <a href="news_edit_dis.asp?board_no=<%=current_no%>&
> minyoung=<%=minyoung%>&secret=<%=secret%>&
> naya=<%=naya%>&heeya=<%=heeya%>&page=<%=page%>"> <img src="images/e1modify.gif" border="0" alt="수정하기"></a>
> <% if NeverDeleted then %>
> <a href="news_del.asp?board_no=<%=current_no%>&
> board_num=<%=current_num%>&
> board_step=<%=current_step%>&page=<%=page%>"> <img src="images/e1delete.gif" border="0" alt="삭제하기"></a>
> <%
> end if
> end if
> %>
> <a href="news_write_dis.asp?IsNew=New&mode=write&page=<%=page%>"><img src="images/e1write.gif" border="0" alt="쓰기"></a>
> <a href="news.asp?page=<%=page%>"><img src="images/e1list.gif" border="0" alt="리스트목록"></a>
> <%
> if nextno <> 0 then
> %>
> <a href="news_read_dis.asp?board_no=<%=nextno%>&
> board_count=<%=nextcount%>&minyoung=<%=minyoung%>&
> secret=<%=secret%>&naya=<%=naya%>&
> heeya=<%=heeya%>&page=<%=page%>"> <img src="images/e1next.gif" border="0" alt="다음글"> </a>
> <%
> end if
> %>
> </td>
> </tr>
> </table>
> <!-- *************** 이곳에서부터 관련글 리스트 목록을 지정한 갯수만큼 출력한다 ********************* -->
> <!--+++++++++++++++++++<< 새로운 레코드셋 시작 >>+++++++++++++++++++++-->
> <%
> strSQL = "SELECT * FROM newsboard "
>
> if naya = "" then '기본값
> naya = "board_num"
> heeya = "desc"
> end if
>
> strSQL = strSQL & " ORDER BY " & naya
> strSQL = strSQL & " "
> strSQL = strSQL & heeya
>
> if naya <> "board_writer" then
> strSQL = strSQL & ", board_step"
> end if
>
> '여기까지 Query작성 끝 지정된 Query로 검색
>
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.pagesize=5 ' *****************************************상세보기 리스트 출력 부분 라인 수 지정
> rs.Open strSQL,Dbcon,1
> 'rs.Open strSQL,Dbcon,1,1
>
> '레코드가 하나도 없다면
> if rs.EOF or rs.BOF then
> DataExist = False
> else '레코드가 있다면
> DataExist = True
> end if
>
> %>
> <table width="590" border="0" bordercolor="black" cellpadding="0" cellspacing="1">
>
> <tr height="12">
> <td width="120" align="left" class="fontb">관련 글 리스트</td>
>
> </tr>
>
> </table>
> <table border="0" bordercolor="#dfeedd" cellpadding="0" cellspacing="0" width="590">
> <tr><td align="center">
> <%
>
> if DataExist = True then
>
>
> totalrecord=rs.RecordCount
> totalpage=rs.PageCount
> rs.AbsolutePage = page
> ' response.write page
> '=================================================
>
> %>
>
> </td>
> </tr>
> <tr height="15"><td>
> <table width="590" border="1" bordercolor="white" cellpadding="0" cellspacing="0">
> <tr height=15>
> <td width="40" bgcolor="#dfeedd" align="center" class="fontb">번호</td>
> <td width="420" bgcolor="#dfeedd" align="center" class="fontb">제목</td>
> <td width="70" bgcolor="#dfeedd" align="center" class="fontb">출처</td>
> <td width="50" bgcolor="#dfeedd" align="center" class="fontb">조회</td>
> <td width="75" bgcolor="#dfeedd" align="center" class="fontb">작성일</td>
> </tr>
> <tr height="15" bgcolor="#EEEEEE"> <% if cint(rs("board_step"))>0 then%>
> <tr height="15" bgcolor='#DFEEDD'><!--자식글일경우-->
> <td bgcolor='white' align='center' class='fontb'><%if int(current_no) = int(board_no) then%><img src='images/cross.gif' border='0' alt="현재글"><%else%> <%end if%></td>
> <%else%>
> <tr height=15 bgcolor=#EEEEEE><!--부모글일경우-->
> <td bgcolor='white' align='center' class='fontb'><%if int(current_no) = int(board_no) then%><img src='images/cross.gif' border='0' alt="현재글"><%else%><%=board_num%><%end if%></td>
> <%end if%>
> <td width="390" align="left" bgcolor="white" class="fontb">
> <!-- *********************************** 1일 단위로 올라온 글 이미지 표시 *********************************** -->
> <%
> 'if left(board_day,10) = left(boar_time,10) then ' 1일 단위로 올라온에 New 표시할 때
> if datediff("d",board_day,now)=<1 then ' <!--1일 단위가 아니라 24시간 단위로 시간 변경-->
> response.write "<img src='images/new.gif' border='0' alt='최근 24시간 이내 올라온글'></span>"
> else
> response.write " "
> end if
>
> %>
> <!--제목이 아래 정의 보다 길다면 "..." 처리-->
> <%
> if naya <> "board_writer" then
> if board_step > 0 then '만약 이것이 답변쓰기라면....
>
> wid= cint(board_step)*10
>
> if Len(board_title) >= 30 then '제목이 30문자길이보다 길다면
> board_title = left(board_title, 29) & "..."
> end if
> %> <img src="images/rebg.gif" width="<%=wid%>" height="5"><a href="news_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>" title='<%=board_num%>번 글에 대한 <%=board_writer%>님의 답변 글'> <img src="images/red1.gif" border=0 alt=<%=board_num%>번 글의 답변> <%=board_title%></a>
> <%
> else '만약 이것이 그냥 글쓰기라면....
>
> if Len(board_title) >= 25 then '제목이 30문자길이보다 길다면
> board_title = left(board_title, 24) & "..."
> end if
> %>
> <a href="news_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>" title='<%=board_writer%> 님의 글'><%=board_title%></a>
> <%
> end if
> else
> if board_step <> 0 then
> '제목이 지정된 문자길이보다 길다면 - 답변시에 처리...
> if Len(board_title) >= 30then
> board_title = left(board_title, 29) & "..."
> end if
> %>
> [<%=board_num%>] <img src="images/red1.gif" border=0 alt=답변>
> <a href="news_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>"><%=board_title%></a>
> <%
> else
> '제목이 지정된 문자길이보다 길다면
> if Len(board_title) >= 25 then
> board_title = left(board_title, 24) & "..."
> end if
> %>
> <a href="news_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>"><%=board_title%></a>
> <%
> end if
> end if
> %></span>
> </td>
> <!--출처, 이메일 처리 시작-->
> <td align="center" bgcolor="white" class=fontb>
> <%
> 'if board_email <> "" then
> ' Response.Write "<a href='mailto:" & board_email & "'>" & _
> ' board_writer & "</a>"
> 'else
> Response.Write board_writer
> 'end if
> %>
> </td>
> <!-- 조회수-->
> <td align="center" bgcolor="white" class="fontb"><%=board_count%> </td>
> <!-- 날짜 -->
> <td align="center" bgcolor="white" class="fontb"><%=board_day%> </td>
> </tr>
> <%
> ' N = N + 1
> rs.movenext
> i=i+1
> loop
>
> rs.Close
> DbCon.Close
> set rs = nothing
> %>
> </table>
> <tr>
> <tr>
> <td align="center" class="fontb">
> <table border="0" width="590" cellpadding=0 cellspacing=0>
> <tr>
> <td align="center" bgcolor=#dfeedd width="610" class="fontb">
> <!-- ********************************* 구 로직 ********************************************************
> <%
> ' 이전 페이지로 이동
> if cPage > 1 Then
> %>
> <a href="news.asp?page=<%=cPage-1%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>">[처음]</a>
> <% end if %>
> <B>
> <%
> ' 동페이지 만들기
>
> Dim PageBlock, temp1, temp2, temp3, prev, post, pagelist
>
> PageBlock = 3
>
> temp1 = int(cPage/PageBlock)
>
> if (cPage mod PageBlock) = 0 then
> temp1 = temp1 - 1
> end if
>
> temp2 = temp1 * PageBlock
>
> temp3 = int(lastpg/PageBlock)
>
> if (lastpg mod PageBlock) = 0 then
> temp3 = temp3 - 1
> end if
>
> prev = temp2
>
> if prev > 0 then
> %>
> <A href=news.asp?page=<%=prev%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>>[◀]</A>
> <%
> end if
>
> pagelist = temp2
>
> for i = 1 to PageBlock
>
> pagelist = temp2 + i
>
> if lastpg < pagelist then
> exit for
> end if
>
> if int(pagelist) <> int(cPage) then
> %>
> <A href=news.asp?page=<%=pagelist%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>>[<%=pagelist%>]</A>
> <%
> else
> %>
> <%=pagelist%>
> <%
> end if
> next
>
> post = temp2 + PageBlock + 1
>
> if temp1 < temp3 then
> %>
> <A href=news.asp?page=<%=post%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>>▶</A>
> <%
> end if
> %>
> </B>
> <%
> ' 다음페이지로 이동
> if lastpg - cPage > 0 Then
> %>
> <A href=news.asp?page=<%=cPage+1%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>>[끝]</A>
> <%
> end if
> %>-->
> <!--===================================-->
> <% '새롭게 처리한 로직 - 간편하게 무게를 줄임
> blockPage=int((page-1)/10)*10+1
> if blockPage = 1 then%> <%else%> <a href="news_read_dis.asp?page=<%=blockPage-10%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>">이전</a>[<%end if%> [ <%i=1
> Do until i>10 or blockPage > totalpage
> if blockPage = int(page) then
> %><font color="black" size="2" face="굴림" ><b><%=blockPage%></b></font> <%else%>
> <a href="news_read_dis.asp?page=<%=blockPage%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>"><%=blockPage%></a>
> <%end if
> blockPage = blockPage + 1
> i = i +1
> loop
> if blockPage > totalpage then%>]<%else
> %>]<a href="news_read_dis.asp?page=<%=blockPage%>&minyoung=<%=minyoung%>&secret=<%=secret%>&naya=<%=naya%>&heeya=<%=heeya%>">다음</a> <%end if%>
> <!--===================================-->
> </td>
> </tr>
> <tr><td class="fontb">Total - <font color="red"><%= totalRecord %></font> Record (<font size="2" color="red"> <%= page %></font> / <font size="2"><%= totalpage %>)</td></tr>
> </table>
> <% else %>
> <!--검색 글 내용이 없을 경우 보여지는 부분 시작-->
> </td>
> </tr>
> <tr>
> <td align="center">
> <%
> rs.Close
> DbCon.Close
> set rs = nothing
> set DbCon = nothing
> end if
> %>
> </td>
> </tr>
> <tr>
> <td bgcolor=#D9E7FF>
>
> </td>
> </tr>
> </table>
> </div>
> </body>
> </html>
> 다음과 같은 상세보기에서 하단에 다시 리스트 목록을 출력하려합니다.리스트에는 문제가 없지만
> [이전10]123[다음10]을 구현하는데,다음과 같은 에러가 나오는군요.
> 오류 형식:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
> ODBC driver does not support the requested properties.
> /moon/news/news_read_dis.asp, line 35
-----------------------------------------------------------
SQL 문장의 오류입니다...
strSQL을 화면에 출력해서 SQL 문장에 이상이 없나 확인해 보세요.
|
|
|
|