꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 > ----------------------------------------------------------- > > SQL 문장의 오류입니다... > > strSQL을 화면에 출력해서 SQL 문장에 이상이 없나 확인해 보세요. > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *