%
lm=request("lm")
keyword=bsql(html(trim(request("keyword"))))
if lm<>"" then
if not checknum(lm) then
call msg("Parameter error","")
else
lm=clng(lm)
set rs=server.CreateObject("adodb.recordset")
sql="select id_lm,fid,title_lm_en from devices_lm where id_lm="&lm&""
rs.open sql,conn,1,1
if not rs.eof then
lm=rs("id_lm")
title_lm=rs("title_lm_en")
dao=" > "&title_lm
sq=" and lm="&lm&""
pra="&lm="&lm&""
end if
rs.close
set rs=nothing
end if
else
' set rs=server.CreateObject("adodb.recordset")
' sql="select id_lm,fid,title_lm_en from devices_lm where fid=0 order by px desc,id_lm desc"
' rs.open sql,conn,1,1
' if not rs.eof then
' lm=rs("id_lm")
' title_lm=rs("title_lm_en")
' dao=" > "&title_lm
' sq=" and lm="&lm&""
' pra="&lm="&lm&""
' end if
' rs.close
' set rs=nothing
dao=""
sq=""
pra=""
end if
%>
<%
set rsa=server.CreateObject("adodb.recordset")
sql="select id_lm,title_lm_en from devices_lm where fid=0 order by px desc,id_lm desc"
rsa.open sql,conn,1,1
while not rsa.eof
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,title_en,img_sl from devices_co where pass='yes' "&sq&" order by px desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
pagenum=12
rs.pagesize=pagenum
counter=rs.recordcount
pagezong=rs.pagecount
pageno=trim(request.querystring("page"))
if pageno="" or not isnumeric(pageno) then
pageno=1
end if
if pageno<1 then
pageno=1
end if
if pageno-pagezong>0 then
pageno=pagezong
end if
pageno=clng(pageno)
rs.absolutepage=pageno
a=1
while not rs.eof and a<=pagenum
%>
<%
a=a+1
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,title_en,color_font,wtime from devices_co where pass='yes' "&sq&" order by px desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
pagenum=15
rs.pagesize=pagenum
counter=rs.recordcount
pagezong=rs.pagecount
pageno=trim(request.querystring("page"))
if pageno="" or not isnumeric(pageno) then
pageno=1
end if
if pageno<1 then
pageno=1
end if
if pageno-pagezong>0 then
pageno=pagezong
end if
pageno=clng(pageno)
rs.absolutepage=pageno
a=1
while not rs.eof and a<=pagenum
%>