|
|
 |
|
이주경 / 2001-03-06 / 오후 5:16:38 / 150.150.64.213
조회수 : 166
|
| [질문] 죄송하지만 한가지 더 질문요...검색모드인데 |
> 현재 아래와 같은 로직으로 구성을 하였는데,검색 모드에서 다음과 같은 에러가 발생하였습니다.
> 오류 형식:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
> ODBC 드라이버가 요청한 속성을 지원하지 않습니다.
> /Web/notice/notice.asp, line 42
> ************************************************************************************
> <!--#include file=include/dbopen.asp-->
> <%
> Const adOpenForwardOnly = 0
> Const adOpenKeyset = 1
> Const adOpenDynamic = 2
> Const adOpenStatic = 3
>
> ' 검색과 정렬을 위해 Query작성
>
> Dim page, sortfield, sortword, keyfield
> Dim keyword, strSQL, DataExist
>
> page = Request("page")
> sortfield = Request("sortfield")
> sortword = Request("sortword")
> keyfield = Request("keyfield")
> keyword = Replace(trim(Request("keyword")),"'","''")
>
> if keyword = "" then ' 기냥 리스트만 볼 때
> strSQL = "SELECT * FROM bulletboard"
> else ' 검색일 때
> strSQL = "SELECT * FROM bulletboard" & _
> "WHERE " & keyfield & " LIKE '%" & keyword & "%'"
> end if
>
> if sortfield = "" then '기본값
> sortfield = "board_num"
> sortword = "desc"
> end if
>
> strSQL = strSQL & " ORDER BY " & sortfield
> strSQL = strSQL & " "
> strSQL = strSQL & sortword
>
> if sortfield <> "board_writer" then
> strSQL = strSQL & ", board_step"
> end if
>
> '여기까지 Query작성 끝 지정된 Query로 검색
>
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.Open strSQL,Dbcon,adOpenKeyset===>이부분 에러임다.
>
> '레코드가 하나도 없다면
> if rs.EOF or rs.BOF then
> DataExist = False
> else '레코드가 있다면
> DataExist = True
> end if
>
> %>
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
> <html>
> <head>
> <title>Notice 게시판</title>
> <link rel="stylesheet" href="include/style.css">
>
> </head>
>
> <body>
> <table border="0" width="100%">
>
>
> <tr>
> <td align="center">
> <%
>
> if DataExist = True then
>
> Dim totalRecord, cPage, lastpg, RowCount
>
> rs.PageSize = 10
>
> '레코드의 갯수
> totalRecord = rs.RecordCount
>
> if page = "" or page < 1 Then
> page = 1
> end if
>
> cPage = page
>
> rs.AbsolutePage = cPage
>
> lastpg = int(((totalRecord - 1) / rs.PageSize) + 1)
>
> if page > lastpg then
> page = lastpg
> end if
>
> RowCount = rs.PageSize
>
> ' 정렬과 검색을 위한 입력창
>
> %>
> <table width=700 border="0" cellpadding="0" cellspacing="1">
> <form name="form1" method="post" action="notice.asp">
> <tr>
> <td width="180" align="right" class=fonta>
> <select name="sortfield" size="1" class=select>
> <%
> if sortfield = "board_writer" then
> %>
> <option value="board_num">작성일</option>
> <option selected value="board_writer">작성자</option>
> <%
> else
> %>
> <option selected value="board_num">작성일</option>
> <option value="board_writer">작성자</option>
> <%
> end if
> %>
> </select>
>
> <select name="sortword" size="1" class=select>
> <%
> if sortword = "desc" then
> %>
> <option value="asc">오름차순</option>
> <option selected value="desc">내림차순</option>
> <%
> else
> %>
> <option selected value="asc">오름차순</option>
> <option value="desc">내림차순</option>
> <%
> end if
> %>
> </select>
> </td>
> <td width="300" align="right" class=fonta>
> <select name="keyfield" size="1" class=select>
> <%
> if keyfield = "board_writer" then
> %>
> <option value="board_title">제목</option>
> <option value="board_memo">내용</option>
> <option selected value="board_writer">작성자</option>
> <%
> else
> if keyfield = "board_memo" then
> %>
> <option value="board_title">제목</option>
> <option selected value="board_memo">내용</option>
> <option value="board_writer">작성자</option>
> <%
> else
> %>
> <option selected value="board_title">제목</option>
> <option value="board_memo">내용</option>
> <option value="board_writer">작성자</option>
> <%
> end if
> end if
> %>
> </select>
>
> <input type="text" name="keyword" maxlength="20"
> size="20" class=input value=<%= keyword %>>
> <!--
> <input type="image" value="search" name="search" src="images/search3.gif" align="middle" onclick=send(this.form)>
> -->
> <input type="submit" value="검색">
> </td>
> <td width="120" align="right" class=fonta><font size="2">
> 페이지 : <%= cPage %>/<%= lastpg %></font>
> </td>
> </tr>
> </form>
> </table>
> </td>
> </tr>
> <tr>
> <td align="center" class=fonta>
> <table width=700 cellpadding="2" cellspacing="1" BGCOLOR="#9AACDA">
> <td width="70" bgcolor="#D8E5FF" align="center" class=fonta>번호</td>
> <td width="390" bgcolor="#D8E5FF" align="center" class=fonta>제목</td>
> <td width="70" bgcolor="#D8E5FF" align="center" class=fonta>작성자</td>
> <td width="50" bgcolor="#D8E5FF" align="center" class=fonta>조회</td>
> <td width="75" bgcolor="#D8E5FF" align="center" class=fonta>작성일</td>
>
>
> <%
> Dim board_no, board_num, board_step, board_id
> Dim board_writer, board_email, board_homepage
> Dim board_title, board_memo, board_count
> Dim board_day, current_num, board_time
>
>
> Do While Not RS.EOF and RowCount > 0
>
> board_no = rs("board_no")
> 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 = trim(rs("board_title"))
> board_memo = trim(rs("board_memo"))
> board_count = rs("board_count")
> board_day = trim(rs("board_day"))
> board_time = trim(rs("board_time"))
>
> board_day = left(board_day,4) & "-" & Mid(board_day,5,2) & "-" & _
> right(board_day,2)
>
> Response.Write "<tr height=22>"
> Response.Write "<td bgcolor='#EDF7FF' align='center' class='fonta'>"
>
> if sortfield <> "board_writer" then
> if current_num <> board_num then
> Response.Write board_num
> else
> Response.Write " "
> end if
> else
> if board_step = 0 then
> Response.Write "board_num"
> else
> Response.Write " "
> end if
> end if
> %>
> </td>
> <td width="390" align="left" bgcolor=#EDF7FF
> onMouseOut="this.style.backgroundColor='EDF7FF'"
> onMouseOver="this.style.backgroundColor='D8E5FF'" class=fonta>
> <%
> if sortfield <> "board_writer" then
> if board_step <> 0 then
> '제목이 28문자길이보다 길다면
>
> if Len(board_title) >= 27 then
> board_title = left(board_title, 26) & "..."
> end if
> %>
> <a href="notice_read_dis.asp?board_no=<%=board_no%>&
> board_count=<%=board_count%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>">[<%=board_num%>:답변] <%=board_title%></a>
> <%
> else
> '제목이 30문자길이보다 길다면
> if Len(board_title) >= 30 then
> board_title = left(board_title, 29) & "..."
> end if
> %>
> <a href="notice_read_dis.asp?board_no=<%=board_no%>&
> board_count=<%=board_count%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>"><%=board_title%></a>
> <%
> end if
> else
> if board_step <> 0 then
> '제목이 28문자길이보다 길다면
> if Len(board_title) >= 27 then
> board_title = left(board_title, 26) & "..."
> end if
> %>
> [<%=board_num%>:답변]
> <a href="notice_read_dis.asp?board_no=<%=board_no%>&
> board_count=<%=board_count%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>"><%=board_title%></a>
> <%
> else
> '제목이 30문자길이보다 길다면
> if Len(board_title) >= 30 then
> board_title = left(board_title, 29) & "..."
> end if
> %>
> <a href="notice_read_dis.asp?board_no=<%=board_no%>&
> board_count=<%=board_count%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>"><%=board_title%></a>
> <%
> end if
> end if
> %>
> </span>
> </td>
> <td align="center" bgcolor="#EDF7FF"
> onMouseOut="this.style.backgroundColor='EDF7FF'"
> onMouseOver="this.style.backgroundColor='D8E5FF'" class=fonta>
> <%
> 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="#EDF7FF" class=fonta><%=board_count%>
> </td>
> <td align="center" bgcolor="#EDF7FF" class=fonta><%=board_day%>
> </td>
> </tr>
>
> <%
>
> current_num = board_num
> RowCount = RowCount - 1
> rs.MoveNext
> Loop
>
> rs.Close
> DbCon.Close
> set rs = nothing
> %>
> </table>
> </td>
> <tr>
> <tr>
> <td align="center" class=fonta>
> <table border="0" width="600">
> <tr>
> <td align="center" width="600" class=fonta><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=notice.asp?page=<%=prev%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>>◀</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=notice.asp?page=<%=pagelist%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>><%=pagelist%></A>
> <%
> else
> %>
> <%=pagelist%>
> <%
> end if
> next
>
> post = temp2 + PageBlock + 1
>
> if temp1 < temp3 then
> %>
> <A href=notice.asp?page=<%=post%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>>▶</A>
> <%
> end if
> %>
> </B>
> </td>
> </tr>
> <tr>
> <td align="center" class=fonta>
> <%
> ' 이전 페이지로 이동
> if cPage > 1 Then
> %>
> <a href=notice.asp?page=<%=cPage-1%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>>이전</a>
> <% end if %>
>
> <a href=notice.asp><img src=images/e1list.gif border=0 alt=리스크항목으로가기></A>
> <a href="notice_write_dis.asp?IsNew=New"><img src=images/e1write.gif border=0 alt=글입력하기></a>
>
> <%
> ' 다음페이지로 이동
> if lastpg - cPage > 0 Then
> %>
> <A href=notice.asp?page=<%=cPage+1%>&keyfield=<%=keyfield%>&
> keyword=<%=keyword%>&sortfield=<%=sortfield%>&
> sortword=<%=sortword%>>다음</A>
> <%
> end if
> %>
> </td>
> </tr>
> </table>
> <% else %>
>
> <table width=600 border="0" cellpadding="5">
> <tr>
> <td bgcolor="#D8E5FF" align="center" class=fonta>
> nayaBoard - notice用 죄송합니다.<br>현재 검색, 등록된 문서가 없습니다.
> 글을 입력하세요
> </td>
> </tr>
> </table>
> </td>
> </tr>
> <tr>
> <td align="center">
> <table border="0" width="600">
> <tr>
> <td align="center" class=fonta>
> <a href="notice.asp"><img src=images/e1list.gif border=0 alt=List목록으로></a>
> <a href="notice_write_dis.asp?IsNew=New"><img src=images/e1write.gif border=0 alt=글쓰기></a>
> </td>
> </tr>
> </table>
>
> <%
> rs.Close
> DbCon.Close
> set rs = nothing
> set DbCon = nothing
> end if
> %>
> </td>
> </tr>
> <tr>
> <td><!--#include file=include/copyright.asp--></td>
> </tr>
> </table>
> </body>
> </html>
-----------------------------------------------------------
다른 문제점은 없는거 같구여..
에러나는 부분
rs.Open strSQL,Dbcon,adOpenKeyset 을
rs.Open strSQL,Dbcon,1,1 빠꿔보시죠..
DB가 Oracle 이면
rs.Open strSQL,Dbcon,3 으로 하셔야 할거예여...
왜냐? 나도 몰라여..많은 경험상... |
|
|
|