<% keysname="输入产品关键字"
keyword=trim(request("keyword"))
keyword=replace(keyword,"+"," ")
if keyword<>"输入产品关键字" and keyword<>"" then
keysname=keyword
key=split(keyword," ")
kongge=replace(keyword," ","+")
else keys=""
keysname="输入产品关键字"
kongge=""
end if%>
<% keyword=trim(request("keyword"))
keys=""
if keyword<>"输入产品关键字" and keyword<>"" then
For i = LBound(key) To UBound(key)
keys=" (pro_name like "&"'%"&key(i)&"%'"&" or pro_type like "&"'%"&key(i)&"%'"&" or pro_keyword like "&"'%"&key(i)&"%'"&")" &" and "&keys
Next
end if
Set rstObj=Server.CreateObject("ADODB.Recordset")
strSQL="select pro_id,pro_type,pro_name,pro_tupian from products_data where "&keys&" pro_username like '"&username&"' and pro_show=1 order by pro_tj desc,pro_cixu asc , pro_id asc"
rstObj.Open strSQL,cnnDB,1,1
if not rstObj.eof then
rstObj.PageSize = 20
maxpage=rstObj.PageCount
result_num=rstObj.RecordCount
if result_num<=0 then
else
maxpage=rstObj.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rstObj.AbsolutePage=Page
end if
end if
for i=1 to rstObj.pagesize
if rstObj.EOF then
Exit for
end if
%>
暂时没有信息
<% rstObj.movenext
if i mod 4 =0 then
response.write "
中国化工仪器网设计制作，未经允许翻录必究.Copyright(C)
CHEM17.net, All rights reserved. GoogleSiteMap ICP备：苏ICP备06029970号管理登陆
以上信息由企业自行提供，信息内容的真实性、准确性和合法性由相关企业负责
本网站对此不承担任何保证责任。
