꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *