公司简介   更多>>
<% Function listNewProducts() Dim strProducts Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select Top 1 title,Content from Aboutus where Aboutusorder=2 order by id desc",conn,1,1 strProducts = strProducts & "
" Do While Not rs.BOF And Not rs.EOF if leixing="big" then strLocal = "big" strProducts = strProducts & "" Else strProducts = strProducts & "" End If rs.MoveNext Loop strProducts = strProducts & "
" & rs("Content") & "" & rs("Content") & "
" listNewProducts = strProducts End Function %>
<% = listNewProducts() %>
  新闻资讯   更多>>
  产品展示   更多>>
<% set rs_Product=server.createobject("adodb.recordset") sqltext="select top " & Product_count & " * from Product where Passed="&TrueType&" And FirstPage="&TrueType&" order by UpdateTime desc" rs_Product.open sqltext,conn,1,1 %> <% If rs_Product.eof and rs_Product.bof then response.write "" else row_count=1 Do While Not rs_Product.EOF%> <% if row_count mod 3 =0 then%> <%end if%> <% rs_Product.MoveNext row_count=row_count+1 Loop end if rs_Product.close %>

还没任何产品

" target="_blank"> width="153" height="153" border=0 onload="javascript:DrawImage(this);" style="BORDER-top: #B7D3EB 1px solid;BORDER-left: #B7D3EB 1px solid;BORDER-right: #B7D3EB 1px solid;BORDER-bottom: #B7D3EB 1px solid;" >
" target="_blank"><%=rs_Product("Title")%>
  友情链接    
<% call ShowFriendLinks(2,100,10,2) '文字链接 'call ShowFriendLinks(1,10,10,2) '图片链接 %>