<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> FULAN OPTICS MACHINE CO., LTD. - precision optics machine,electronic material machine,ophthalmic machine,optical equipment,ophthalmic instrument <% if fdkf<>"" then %> <% end if %>
<% if zblm<>"" then %> <% end if %> <% if yblm<>"" then %>
<% if banner<>"" then %>
<% end if %> <% if aboutus<>"" then %>
About Us
<% set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from xiaoyuer_e_other where id=1" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "
No Data
" else %> <%=rs("content")%> <% rs.close set rs=nothing end if %>
<% end if %> <% if hotproduct<>"" then %>
Hot Products
<% Set Rs=Server.CreateObject("ADODB.Recordset") Sql="Select * From xiaoyuer_products where newpro=1 order by sort desc,id desc" Rs.Open Sql,Conn,1,1 if rs.eof and rs.bof then response.write "" else %> <% cols=product_hang do while not rs.eof if b mod cols=0 then response.Write("") b=b+1 %> <% if b=product_news then exit do rs.movenext loop %> <% end if rs.close set rs=nothing %>
No Data
"><%=rs("cpbh")%>
<%=rs("e_cpmc")%>
<% end if %> <% if newproduct<>"" then %>
New Products
<% Set Rs=Server.CreateObject("ADODB.Recordset") Sql="Select * From xiaoyuer_products where hotpro=1 order by sort desc,id desc" Rs.Open Sql,Conn,1,1 if rs.eof and rs.bof then response.write "
No Data
" else %> <%do while not rs.eof%> <% rs.movenext loop %> <% end if rs.close set rs=nothing %>
<% end if %>
<% end if %>