<%
SeaType=Trim(Request("SeaType"))
keyword=trim(request("keyword"))
MaxPerPage=10
strFileName="Search.asp?keyword="& keyword &"&SeaType="& SeaType &""
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
Dim sqlpro
set rs=server.createobject("adodb.recordset")
Sql="select * from [product] where Language='en'"
if SeaType="Name" or SeaType="" then
Sql=Sql & " and Searchkeyword like '%" & keyword & "%'"
elseif SeaType="Oem" then
Sql=Sql & " and xinghao_factory like '%" & keyword & "%'"
end if
Sql=Sql &" order by Paix desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "No information!"
else
totalput=rs.recordcount
%>
<%
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
call Content()
else
if (currentPage-1)*MaxPerPage0 and i >= MaxPerPage then
exit do
end if
if i mod 5=0 and i<>0 then
response.write " | "
end if
%>
|
|
<% i=I+1
rs.movenext
loop
end sub
%>
| |
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,true,true)
end if
%> |
<%
end if
rs.close
set rs=nothing
%>
|