<% set conn=server.CreateObject ("adodb.connection") conn.CursorLocation =3 conn.Open application("ConnectionSTR") c_no=cstr(request("c_no")) c_name=cstr(request("c_name")) if c_no="" then c_no="98" if not c_no="search" then if not isInt(c_no) then c_no="98" end if page=request("page") if not isnumeric(page) then page=1 if page<=0 then page=1 pagesize=14 %> <%=request("c_name")%>
 
<% sqlstr="SELECT goods.* FROM goods inner join G2C on goods.goods_no=G2C.goods_no where ISEFF='Y' AND c_no=" & c_no & " order by [sort]" select case c_no case "99" response.Write "" case "97" response.Write "" case "98" response.Write "" case "search" response.Write "" pro_search=replace(trim(request("pro_search")),"'","''") if pro_search="" then alertgolast("搜尋條件不可為空白") sqlstr="SELECT goods.* FROM goods where (goods_name = '"& pro_search &"' or goods_no = '"& pro_search &"' or [concise] = '"& pro_search &"') and ISEFF='Y' order by [sort]" case else response.Write "" end select set rs=conn.Execute (sqlstr) if not rs.EOF then rs.PageSize =pagesize if cdbl(page) >cdbl(rs.PageCount) then page=rs.PageCount rs.AbsolutePage =page end if %> <%for loop_i=1 to pagesize if rs.eof then exit for loop_i=loop_i-1 %> <%next%>
商品搜尋
"& c_name &"
 
<%for loop_J=1 to 2 'response.Write loop_i & "
" if rs.eof then if loop_J=2 then response.Write "" exit for end if %> <% rs.movenext loop_i=loop_i+1 next %>
  ">-B1.jpg" width="205" border="1">
編號 <%=rs("goods_no")%>
片名 <%=rs("goods_name")%>
售價 <%=rs("Price")%> 特價 <%=rs("PriceA")%> ',1)">
 
<%for loop_i=1 to rs.pagecount if cint(page)=loop_i then response.Write "["& loop_i &"] " else response.Write ""& loop_i &" " end if next RS.CLOSE %>

Copyrightc© Two Sex Girls CD
建議瀏覽解析度 800X600

<% conn.Close set conn=nothing session("LinkStr")="/main.asp?pro_search="& pro_search &"&page="& page &"&c_name="& request("c_name") &"&c_no=" & request("c_no") %>