검색조건 규격 검색이 잘않됩니다 도와주세요 > 그누4 질문답변

그누4 질문답변

그누보드4 관련 질문은 QA 로 이전됩니다. QA 그누보드4 바로가기
기존 게시물은 열람만 가능합니다.

검색조건 규격 검색이 잘않됩니다 도와주세요 정보

검색조건 규격 검색이 잘않됩니다 도와주세요

본문

사이트는 swj.co.kr 입니다

검색에 규격으로 검색하면  찾아내지못합니다 
어떨때는 또 찾아내기도 합니다
아래 소스에 문제가 없을듯한데 어느 부분을 손을 데야 할지 .......도와주세요

..................상단생략.......................
<%
sel_sch = request("sel_sch")
sel_sch2 = request("sel_sch2")
sel_comp_code = request("comp_code")
'이전페이지 , 다음페이지....
'이 부분은 밑에 처리되었다...
'하이퍼링크로 이전페이지 다음페이지 한 부분에 가보면 있다...

session("CurrentPage") = 1

    '이 부분은 페이지로 직접 접근하는 부분이다.
    If Request.QueryString("GoTopage") <> "" then

session("CurrentPage") = Request.QueryString("GoTopage")
else

end If

If sel_sch2 = "" Then '검색어가 없다면
  If sel_sch = "no1" Then '상품명으로 검색한거라면
      If sel_comp_code = "" Then '회사코드가없으면
        SQL = "select * from product where pr_name like '%" & sel_sch2 & "%' and chulryuk='y' order by pr_code"
      else '회사코드도 포함이라면
        SQL = "select * from product where pr_name like '%" & sel_sch2 & "%' and chulryuk='y' and pr_comp like '%" & sel_comp_code & "%' order by pr_code"
      end if
  else '규격코드로 검색한거라면
      If sel_comp_code = "" Then '회사코드가없으면
        SQL = "select * from product where pr_vol like '%" & sel_sch2 & "%' and chulryuk='y' order by pr_code"
      else '회사코드도 포함이라면
        SQL = "select * from product where pr_vol like '%" & sel_sch2 & "%' and chulryuk='y' and pr_comp like '%" & sel_comp_code & "%' order by pr_code"
      end if
  end if
else '정상적인 검색이라면
  If sel_sch = "no1" Then '상품명으로 검색한거라면
      If sel_comp_code = "" Then '회사코드가없으면
        SQL = "select * from product where pr_vol like '%" & sel_sch2 & "%' and chulryuk='y' order by pr_code"
      else '회사코드도 포함이라면
        SQL = "select * from product where pr_vol like '%" & sel_sch2 & "%' and chulryuk='y' and pr_comp like '%" & sel_comp_code & "%' order by pr_code"
      end if
  else '규격코드로 검색한거라면
      If sel_comp_code = "" Then '회사코드가없으면
        SQL = "select * from product where pr_name like '%" & sel_sch2 & "%' and chulryuk='y' order by pr_code"
      else '회사코드도 포함이라면
        SQL = "select * from product where pr_name like '%" & sel_sch2 & "%' and chulryuk='y' and pr_comp like '%" & sel_comp_code & "%' order by pr_code"
      end if
  end if
end If

Set Grs = Server.CreateObject("ADODB.Recordset")
    Grs.pagesize = 30
Grs.Open SQL,objconn,1
TotCount_search = Grs.RecordCount

if Grs.BOF or Grs.EOF Then
%>
<script language='javascript'>
alert('검색에 부합하는 상품이 없습니다.')
history.back();
</script>
<%
response.end
else
sql_f = "select comp_code,comp_name from company where comp_code = '" & Grs("pr_comp") & "'"
set rs_com_f = objConn.Execute (sql_f)
End if
%>
<tr>
                                <td width="689" align="left" valign="middle" height="31">      <p style='margin-left:30px; margin-right:5px;'> <font color="#495766">&nbsp;&nbsp;<%=rs_com_f("comp_name")%> 회사에 대해 검색어 : <b><%=sel_sch2%></b>
            (총 <%=TotCount_search%> 개의 항목을 검색했습니다)</font>                     
                                </p></td>
                            </tr>                 

                            <tr>
                                <td width="689" align="center" valign="top">
<table border="0" width="560" align=center cellspacing='0' cellpadding='0'>
<tr>
<td align='center' valign='top'>
<img src='/swshop/images/sub_05.gif' border='0' align='absmiddle'>
</tD>
</tR>
</table>
      <!-- 탑 부분 인클루드 종료 -->
 <table border="0" width="650" align=center cellspacing='0' cellpadding='0'>

<!-- 제품리스트 시작 -->
 <tr>
                                <td width="689" align="center" valign="top">         
<%
if Grs.BOF or Grs.EOF then
%>
<br><br>
검색된 상품이 없습니다.<br>
<br><br>
<%
response.End
else
Grs.absolutepage = session("CurrentPage")

session("pagecount")=Grs.pagecount
%>

.........하단생략...............
  • 복사

댓글 전체

© SIRSOFT
현재 페이지 제일 처음으로