|
|
 |
|
문희철 / 2001-03-09 / 오전 10:24:15 / 61.75.22.218
조회수 : 154
|
| [질문] 이런 에러는 무엇인가요y |
어떤 경우냐면 일반적인 검색시에는 아무 문제가 없는데,가끔 검색을 할때 board_num값인 1,2,3,4로 출력되는것이 아니라,board_num으로 출력되는군요...
어디에서 잘못된것인지,알고 싶습니다.
첫번째 select menu에 있는 작성일로는 검색이 가능한데,즉 번호값이 정상적으로(1,2,3,4,5)와 같이 출력되는데,작성자로는 board_num으로 출력됩니다. 혹시 몰라서 제가 소스 전체를 올립니다.확인좀 부탁드립니다.
<!--#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 ' 검색일 때
'만약에 "표시가 bulletboard"로 붙어 있을 경우 에러가 발생
'반드시 bulletboard "로 표시.....
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
rs.Open strSQL,Dbcon,1,1
'레코드가 하나도 없다면
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=600 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=600 cellpadding="2" cellspacing="1" BGCOLOR="white">
<td width="70" bgcolor="#FF82C8" align="center" class=fonta>번호</td>
<td width="390" bgcolor="#FF82C8" align="center" class=fonta>제목</td>
<td width="70" bgcolor="#FF82C8" align="center" class=fonta>작성자</td>
<td width="50" bgcolor="#FF82C8" align="center" class=fonta>조회</td>
<td width="75" bgcolor="#FF82C8" 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='#FFE8F5' 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=#FFE8F5
onMouseOut="this.style.backgroundColor='#FFE8F5'"
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%>" title='<%=board_num%>번 글에 대한 <%=board_writer%>님의 답변 글'> <img src=images/red1.gif border=0 alt=<%=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%>" title='<%=board_writer%> 님의 글'><%=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%> <img src=images/red1.gif border=0 alt=답변>]
<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="#FFE8F5"
onMouseOut="this.style.backgroundColor='#FFE8F5'"
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="#FFE8F5" class=fonta><%=board_count%>
</td>
<td align="center" bgcolor="#FFE8F5" 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="#FF82C8" 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>
|
|
|
|