Dim filename,wherestr,keywords
keywords = saferequest("keywords")
if sclass_id>0 then
filename="products.asp?sclass_id="&sclass_id
else
filename="products.asp?class_name="&class_name
end if
if(keywords<>"")then
filename=filename&"&keywords="&keywords
end if
if class_id>0 then wherestr= " and class_id in ("&str&")"
if keywords <>"" then wherestr= wherestr &" and (title_"&lan_txt&" like'%"&keywords&"%' or code_"&lan_txt&" like'%"&keywords&"%' or content_"&lan_txt&" like'%"&keywords&"%')"
Dim CurrentPage,ii,j,totalnumber
Const maxperpage=30
CurrentPage=checkint(Request("page"),1)
set rs=server.createobject("adodb.recordset")
sqlstr ="select * from product where zhuangtai=0 "&wherestr&" order by orders,id desc"
'Response.write(sqlstr)
rs.open sqlstr,conn,1,1
if not rs.eof then
rs.pagesize=maxperpage
totalnumber=rs.recordcount
If CurrentPage>rs.pagecount Then CurrentPage=rs.pagecount
rs.absolutepage=CurrentPage
Do while not rs.eof and ii
var menuids=["suckertree1"] //Enter id(s) of SuckerTree UL menus, separated by commas
if (window.addEventListener)
window.addEventListener("load", buildsubmenus, false)
else if (window.attachEvent)
window.attachEvent("onload", buildsubmenus)
Please input your E-mail for getting discount promotion information and new product release news.
Only same business potential buyers are welcome! No spam mail!
USD
.jpg)
