<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%> 碳硫仪,碳硫分析仪,元素仪,元素分析仪,中国理化分析仪器网
  技术资料
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select * from Conews where type='技术专栏' and flag=1 order by id desc" rs_news.open sqltext4,conn,1,1 i=0 do while not rs_news.eof and not rs_news.bof%> <% rs_news.movenext i=i+1 if i=6 then exit do loop rs_news.close %>
.html"> <%=cutstr(rs_news("title"),20)%>
 
  公司新闻
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select * from Conews where type='新闻动态' and flag=1 order by id desc" rs_news.open sqltext4,conn,1,1 i=0 do while not rs_news.eof and not rs_news.bof%> <% rs_news.movenext i=i+1 if i=6 then exit do loop rs_news.close %>
.html"> <%=cutstr(rs_news("title"),20)%>
  行业资讯
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select * from Conews where type='业内资讯' and flag=1 order by id desc" rs_news.open sqltext4,conn,1,1 i=0 do while not rs_news.eof and not rs_news.bof%> <% rs_news.movenext i=i+1 if i=6 then exit do loop rs_news.close %>
.html"> <%=cutstr(rs_news("title"),20)%>
  政策法规
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select * from Conews where type='法规标准' and flag=1 order by id desc" rs_news.open sqltext4,conn,1,1 i=0 do while not rs_news.eof and not rs_news.bof%> <% rs_news.movenext i=i+1 if i=6 then exit do loop rs_news.close %>
.html"> <%=cutstr(rs_news("title"),20)%>
 
  求购信息
<% Set gqrs= Server.CreateObject("ADODB.Recordset") gqsql="select top 10 * from info where [jtype]='求购' and mainshow=true and flag=1 order by info_id desc" gqrs.open gqsql,conn,1,1 if gqrs.bof and gqrs.eof then Response.write "无" End if y=0 do while not gqrs.eof %> <% y=y+1 if y>=5 then exit do gqrs.movenext loop gqrs.close set gqrs=nothing %>
【求】 " class="noudline" target="_blank"><%=cutstr(gqrs("title"),16)%> 
  供应信息
<% Set gqrs= Server.CreateObject("ADODB.Recordset") gqsql="select top 10 * from info where [jtype]='供应' and mainshow=true and flag=1 order by info_id desc" gqrs.open gqsql,conn,1,1 if gqrs.bof and gqrs.eof then Response.write "无" End if y=0 do while not gqrs.eof %> <% y=y+1 if y>=5 then exit do gqrs.movenext loop gqrs.close set gqrs=nothing %>
【供】 " class="noudline" target="_blank"><%=cutstr(gqrs("title"),16)%> 
<% rs_Product.movenext next %> <% j=j+1 wend rs_Product.close set rs_Product=nothing %>
  产品列表
<% call ShowSmallClass_Tree() %>
<% set rs_Product=server.createobject("adodb.recordset") sqltext="select top 30 * from Product where Passed=True And Elite=True order by UpdateTime desc" rs_Product.open sqltext,conn,1,1 %> <% j=0 while not rs_Product.eof and not rs_Product.bof and j<30 %> <% for i= 1 to 2 if rs_Product.eof or rs_Product.bof then for j=0 to 2-i %> <% next exit for end if %>
 
<%if rs_Product("DefaultPicUrl")="" then%> .html target="_blank">碳硫仪,碳硫分析仪,元素仪,元素分析仪,中国理化分析仪器网 产品名称: <%=rs_Product("Title")%>
产品分类: <%=rs_Product("BigClassName")%>
产品信息: .html target="_blank">
<%else%> .html target="_blank">碳硫仪,碳硫分析仪,元素仪,元素分析仪,中国理化分析仪器网 width=80 >
产品名称: <%=rs_Product("Title")%>
产品分类: <%=rs_Product("BigClassName")%>
产品信息: .html target="_blank">
<%end if%>
   友情链接:
<% set rs_links=server.createobject("adodb.recordset") sqltext4="select top 50 * from links where flag=1 order by id desc" rs_links.open sqltext4,conn,1,1 %> <% do while not rs_links.eof%> " target="_blank"><%=rs_links("name")%> <%rs_links.movenext loop rs_links.close set rs_links=nothing %>