|
|
 |
|
문희철 / 2001-07-09 / 오후 6:04:44 / 211.181.38.178
조회수 : 135
|
| [질문] 내용보기에서 동적리스트를 만들었는데...[죄송,좀 길어요] |
<!--#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 |
|
|
|