|
|
|
|
 |
|
궁금이 / 2001-05-10 / 오전 1:26:46 / 61.75.5.53
조회수 : 134
|
| [질문] 이상하군요.말씀데루 했는데...x) |
>
> > Set DbRec1=Server.CreateObject("ADODB.RecordSet")
> > DbRec1.Open "SELECT num,subject,ref,wdate,writer FROM board1 WHERE
> step=0 ORDER BY wdate DESC", DbCon, 1
>
>
> > for j=1 to postcount
> > number=DbRec1("num") <<<================================
> >
> > 'Subject (제목 출력) 시작
> >
> > subject=DbRec1("subject")
>
> > response.write "<br>"
>
> > response.write "<a href=content.asp?
> tb="&tb&"&code="&code&"&num="&num&"&ref="&ref&"&pa
> ge="&page&"&startpage="&startpage&"&key="&key&"&na
> ya_s="&naya_s&"&naya_heeya="&naya_heeya&"&naya_kor
> ean="&naya_korean&" onMouseOver=""window.status=
> ('게시물 읽기 "&subject&"'); return true;""><span style='font-size:9pt;color:"&tbtext&"'>"
> > if len(subject) > 25 then
> > subject=left(subject,26)&"..."
> > response.write "<br>"
> > response.write "</a>"
> > end if
> -----------------------------------------------------------
>
>
> number=DbRec1("num")
>
> 를
>
> num=DbRec1("num")
>
> 으로 바꾸세요...
>
> 나머지 ref,wdate등도 레코드값을 변수에 할당해주시구요...
-----------------------------------------------------------
<%
tb=Request("tb") '이 버전은 tb가 테이블 명이다
code=Request("code") '이 버전은 코드는 다중게시판 코드
'공지사항등 관련글 출력하기 위한 로직 시작....^^
Set DbRec1=Server.CreateObject("ADODB.RecordSet")
'DbRec1.Open "SELECT num,subject,ref,wdate FROM board1 WHERE step=0 ORDER BY wdate DESC", DbCon
DbRec1.Open "SELECT num,subject,ref,wdate,writer FROM board1 WHERE step=0 ORDER BY wdate DESC", DbCon, 1
if Request.QueryString("page")="" then '넘겨받는 변수는 페이지 값만
page=1
startpage=1
else
page=cint(Request("page"))
startpage=int(page/setsize)
if startpage=(page/setsize) then
startpage=page-setsize + 1
else
startpage=int(page/setsize)*setsize + 1
end if
end if
'/**********추가
postcount=DbRec1.Recordcount
if postcount > 10 then
postcount=10 '페이지 라인수
end if
for j=1 to postcount
'number=DbRec1("num")
num=DbRec1("num")
'Subject (제목 출력) 시작
subject=DbRec1("subject")
response.write "<br>"
response.write "<a href=content.asp?tb="&tb&"&code="&code&"&num="&num&"&ref="&ref&"&page="&page&"&startpage="&startpage&"&key="&key&"&naya_s="&naya_s&"&naya_heeya="&naya_heeya&"&naya_korean="&naya_korean&" onMouseOver=""window.status=('게시물 읽기 "&subject&"'); return true;""><span style='font-size:9pt;color:"&tbtext&"'>"
if len(subject) > 25 then
subject=left(subject,26)&"..."
response.write "<br>"
response.write "</a>"
end if
'게시물 관련글
ref=DbRec1("ref")
response.write "<a href=content.asp?tb="&tb&"&code="&code&"&num="&num&"&ref="&ref&"&page="&page&"&startpage="&startpage&"&key="&key&"&naya_s="&naya_s&"&naya_heeya="&naya_heeya&"&naya_korean="&naya_korean&" onMouseOver=""window.status=('게시물 읽기 "&subject&"'); return true;""><span style='font-size:9pt;color:"&tbtext&"'>"
Response.Write " "&subject&" "
response.write "</a>"
if datediff("d",DbRec1("wdate"),now)=<5 then '
response.write "--"
end if
'기존 날짜 방식두 에러
'if left(now,10) = left(wdate,10) then ' 1일 단위로 올라온에 New 표시할 때
'if datediff("d",wdate,now)=<1 then ' <!--1일 단위가 아니라 24시간 단위로 시간 변경-->
' response.write "<span style='font-size:9pt;color:red'><img src='images/cross.gif' border='0' alt='최근 24시간 이내 올라온글'></span>"
'else
' response.write " "
'end if
response.write " "
DbRec1.MoveNext
next
DbRec1.Close
%>
<!--List 제목 출력-->
</td></tr>
</table>
</body>
</html>
위와 같이 말씀데로 해주었거든요.변수 또한 말씀하신것처럼 처음부터 ref,wdate는 위에서 선언해주엇구요.제가 변수 선언을 잘못한것인가요.
다음과 같은 에러가 나왔습니다.
오류 형식:
ADODB.Field (0x800A0BCD)
BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다. 요청한 작업에 현재 레코드가 필요합니다.
/Web/board/content.asp, line 27
content.asp 라인
title=rsman(0)====>여기 에러
bgm=trim(rsman(1))
bgc=trim(rsman(2))
textc=trim(rsman(3))
tboutc=trim(rsman(4))
tbbgc=trim(rsman(5))
tbcb=trim(rsman(6))
tbcl=trim(rsman(7))
tbouttext=trim(rsman(8))
tbtext=trim(rsman(9))
htmlok=trim(rsman(10))
ipok=trim(rsman(11))
viewok=trim(rsman(12))
recok=trim(rsman(13))
ch_pass=trim(rsman(14))
rsman.close
set rsman=nothing
물론 이곳은 사용중인 것으로 아무런 에러두 발생되지 않는곳이구요...애궁!
|
|
|
|