꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> > 현재 아래와 같은 로직으로 구성을 하였는데,검색 모드에서 다음과 같은 에러가 발생하였습니다. > > 오류 형식: > > 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 으로 하셔야 할거예여... > 왜냐? 나도 몰라여..많은 경험상... -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *