|
|
 |
|
문희철 / 2001-03-06 / 오후 6:05:23 / 61.75.32.158
조회수 : 122
|
| [질문] 님의 말씀데루 했는데두 오류임다.60 |
> > > 현재 아래와 같은 로직으로 구성을 하였는데,검색 모드에서 다음과 같은 에러가 발생하였습니다.
> > > 오류 형식:
> > > 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 으로 하셔야 할거예여...
> > 왜냐? 나도 몰라여..많은 경험상...
> -----------------------------------------------------------
>
>
-----------------------------------------------------------
rs.Open strSQL,Dbcon,adOpenKeyset 를
rs.Open strSQL,Dbcon,1,1 ==>이렇게 바꾸어 주었거든요.그런데 이런 에러가 발생되더군요
*****************************************
오류 형식:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 드라이버가 요청한 속성을 지원하지 않습니다.
/Web/notice/notice.asp, line 43
이것 참 꼭 하나씩 속을 썩이는군요....
|
|
|
|