<% dim conn set conn=server.CreateObject("adodb.connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("/access/beian.mdb") const recpage=100 dim i,currentpage,sql,allrec,totalpage,csql if not isempty(request.QueryString("page")) then currentpage=Cint(request.QueryString("page")) else currentpage=1 end if %> 建设工业产品登记备案目录---山东省工程建设造价服务信息网
您好,欢迎访问山东省工程建设造价服务信息网!  会员登录 | 会员注册 | 钢材供应商注册 山东工程招标信息 山东工程项目信息 3G手机网 加入收藏 | 联系电话:0531-66718179
<% 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 %> <% rs.movenext i=i+1 loop end if rs.close set rs=nothing %>
序号
企业名称
产品名称及规格
注册商标
证书编号
有效期限
<%=i%>
<%=rs("企业名称")%> <%=rs("产品名称及规格")%> <%=rs("注册商标")%> <%=rs("证书编号")%> <%=rs("有效期限")%>
<% dim n,p n=currentpage+1 p=currentpage-1 if p>0then response.write("["&"上一页]   ") else response.write("上一页   ") end if if currentpage>=totalpage then response.write("下一页" ) else response.Write("["&"下一页]") end if response.write(" 共"&allrec&"条 ") response.Write(" "¤tpage&"/"&totalpage&"页 ") %>   跳至
主办单位:山东省工程建设标准定额站、各市定额站(造价办)
技术支持:济南天澜科技有限公司

<% conn.close set conn=nothing %>