<%
dim CompanyName,Title,RegisteredTrademark,CertificateLabel
CompanyName=request.QueryString("CompanyName")
CompanyName=replace(CompanyName,"'","")
Title=request.QueryString("Title")
Title=replace(Title,"'","")
RegisteredTrademark=request.QueryString("RegisteredTrademark")
RegisteredTrademark=replace(RegisteredTrademark,"'","")
CertificateLabel=request.QueryString("CertificateLabel")
CertificateLabel=replace(CertificateLabel,"'","")
%>
序号 |
企业名称 |
产品名称及规格 |
注册商标 |
证书编号 |
有效期限 |
<%
i=1
dim sqlp
sqlp=""
csql="select count(*) AS co from Sheet1 where 1=1"
if(CompanyName<>"") then
sqlp=sqlp&" and 企业名称 like '%"&CompanyName&"%'"
end if
if(Title<>"") then
sqlp=sqlp&" and 产品名称及规格 like '%"&Title&"%'"
end if
if(RegisteredTrademark<>"") then
sqlp=sqlp&" and 注册商标 like '%"&RegisteredTrademark&"%'"
end if
if(CertificateLabel<>"") then
sqlp=sqlp&" and 证书编号 like '%"&CertificateLabel&"%'"
end if
csql=csql&sqlp
set rs=server.createobject("adodb.recordset")
rs.open csql,conn,3,1
allrec=rs(0)
totalpage=int((allrec+recpage-1)/recpage)
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select top "&recpage&" ID, 企业名称, 产品名称及规格,注册商标, 证书编号, 有效期限 from Sheet1 where id <=(select min(id) from (select top "&(recpage*(currentpage-1)+1)&" id from Sheet1 where 1=1"
sql=sql&sqlp
sql=sql&" order by id desc) as t)"
sql=sql&sqlp
sql=sql&" order by id desc "
rs.open sql,conn,3,1
if rs.eof or rs.bof then
response.Write("没有记录!")
response.End()
else
do while not rs.eof
%>
<%=i%> |
<%=rs("企业名称")%> |
<%=rs("产品名称及规格")%> |
<%=rs("注册商标")%> |
<%=rs("证书编号")%> |
<%=rs("有效期限")%> |
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
<%
conn.close
set conn=nothing
%>
您好,欢迎访问山东省工程建设造价服务信息网！ 
