꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> <!--#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 -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *