<%
'on error resume next
lx=request("lx")
page=request("page")
if page="" then page=1
zwmc=request("zwmc")
ywmc=request("ywmc")
cpbh=request("cpbh")
Set rs = Server.CreateObject("ADODB.Recordset")
thisvalue="select * from a"
if zwmc<>"" then
thisvalue=thisvalue&" where zwmc like '%"&zwmc&"%'"
else
thisvalue=thisvalue&" where zwmc like '%'"
end if
if ywmc<>"" then
thisvalue=thisvalue&" and ywmc like '%"&ywmc&"%'"
end if
if cpbh<>"" then
thisvalue=thisvalue&" and cpbh like '%"&cpbh&"%'"
end if
thisvalue=thisvalue&" order by id desc"
rs.open thisvalue, application("conn"), adopenKeyset,adlockOptimistic
%>
上海长岛生物技术有限公司
