꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

ash446 / 2000-11-25 / 오전 10:14:08 / 211.217.209.241
조회수 : 150

[질문] 이것좀 봐주세요...ㅠ.ㅠ

채영님 저두 채영님의 방명록 처럼 만들라고
채영님의 소스를 받아서 최대한 간단하게
해서 만들었는데요...
채영님은 게시판에서 서치후 페이징 할때 페이징을
일반적으로 다음 10개 이전 10개로 안하구 select 루 1/총페이지, 2/총페이지 이런식으로 다음페이지로 넘주잖아요...일반 list에서는 괜찮은데요..
search후 search 페이지를 보여주는건데요...
저는 search_result.asp를 따로 만들었는데요..
에러가 떨어져서요... 이것좀 봐주실수 있나요?

줄 15
문자 3
doucment.list.searchString.value'은 null이거나 개체가 아닙니다.
이런식으로 나오거든요...

한번 봐주실수 있나요...ㅠ.ㅠ 부탁드립니다.

search_result.asp
<%
search = request("search")
SearchString = request("SearchString")
Set db = Server.CreateObject("ADODB.Connection")
db.open("DSN=bbs;UID=sa;PWD=dnflwlq")

SQL = "select * from guest3 where " & search & " like '%" & SearchString
& "%' "
SQL = SQL & " order by a_idx desc "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open SQL,db,1

a_idx=rs("a_idx")

searchname = search
searchname = replace(searchname,"a_title","글제목")
searchname = replace(searchname,"a_name","이름")
searchname = replace(searchname,"a_content","글내용")

ScrollAction=Request("ScrollAction")

Stop_Flag=0

a_page = 5
rs.PageSize = a_page

V_Total=rs.Recordcount

if ScrollAction="" then
Page_Count=1
V_Index=V_Total
else
Page_Count=ScrollAction
V_Index=V_Total-(Page_Count*a_page)+a_page
end if

if Not rs.EOF then
rs.AbsolutePage=Page_Count
end if

V_Page=Int(V_Total/a_page)+1

if (V_Total mod a_page)=0 then
V_Page=V_Page-1
end if

%>

사과띠 검색결과

<% if rs.BOF or rs.EOF then %>

color="#FF80000">NO result!!

<%=search%>에서
<%=SearchString%>로 검색을
수행하였지만

발견
된
검색결과가 없습니다.

<list로 돌아가기>

<% else %>

color="#008080">
Search List

<%=searchname%
>에서
<%=SearchString%>로 검색한 결과<%=V_total%>개의 데이터를
찾았습니다.

<% if V_Total>5 then%>

<% end if %>

<%
RowCount=rs.PageSize

do while not rs.EOF and Rowcount > 0 %>

src="../guest3/img2/left_up.gif">	width="520" height="5">	src="../guest3/img2/right_up.gif">
background="../guest3/img2/table_left.gif">	"> src="../guest3/img2/delete.gif" border="0"> <%=V_Index%>.<%=left(rs ("a_date"),10)%> <%=rs("a_time")%> <%if not rs("a_email")="" then%> "> src="../guest3/img2/mail.gif" border="0"> <% end if if not rs("a_url")="http://" and not rs("a_url")="" then%> " target="new"> src="../guest3/img2/home-1.gif" border="0"> <%end if%> <%=rs("a_name")%>님께 서 <%=rs("a_ip")%>에서 남기신 소중한 글입 니다. <% a_contents = rs("a_contents") a_contents = replace(a_contents,chr(13)&chr(10)," ")%> <%=a_contents%>
src="../guest3/img2/left_down-1.gif">	width="520" height="5">	src="../guest3/img2/right_down-1.gif">

<%
RowCount=RowCount-1
V_Index=V_Index-1
rs.MoveNext
loop

if rs.EOF then
Stop_Flag=1
end if

end if
%>

<% if Page_Count > 1 then %>

border="0" alt="다음목록">
<% end if

if Stop_Flag=0 then %>

border="0" alt="이전목록">
<% end if %>

border="0" alt="글쓰기">

alt="리스트">

사
과띠에게 메일보내기 for more
information.

<%
rs.close
db.close
Set rs = Nothing
Set db = Nothing
%>