<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
News category more>>
<% set rsa= Server.CreateObject("adodb.recordset") sql="select top 6 * from n_class " rsa.open sql,conn,1,1 while not rsa.eof newsclass=rsa("cname_en") %> <% rsa.movenext() wend set rsa=nothing %>
"><%= newsclass %>
Product category more>>
<% set rsc= Server.CreateObject("adodb.recordset") sql="select top 8 * from pro_class " rsc.open sql,conn,1,1 while not rsc.eof %> <% rsc.movenext() wend %>
"><%= rsc("pname_en") %>
Friendship link
<% set rsl= Server.CreateObject("adodb.recordset") sql="select top 8 * from links order by id desc" rsl.open sql,conn,1,1 while not rsl.eof %> <% rsl.movenext() wend set rsl=nothing %>
" target="_blank"><%= cutstr(rsl("lname"),13) %>
<% set rs= Server.CreateObject("adodb.recordset") sql="select top 6 * from product where tj1=0 order by id desc" rs.open sql,conn,1,1 %> <% i=0 do while not rs.eof %> <% if i <> 0 then if i mod 3=0 then Response.Write("") end if end if %> <% i=i+1 rs.movenext loop set rs=nothing %>
">" width="141" height="104" border="0" />
"><%= cutstr(rs("pname_en"),22) %>
<% set rs1= Server.CreateObject("adodb.recordset") sql="select * from xxdq_en where id=18" rs1.open sql,conn,1,1 %> <%= rs1("diqu") %> <% set rs1=nothing %> <% set rs1= Server.CreateObject("adodb.recordset") sql="select * from n_class where id=1" rs1.open sql,conn,1,1 %> <%= rs1("cname_en") %> <% set rs1=nothing %> <% set rs1= Server.CreateObject("adodb.recordset") sql="select * from n_class where id=5" rs1.open sql,conn,1,1 %> <%= rs1("cname_en") %> <% set rs1=nothing %> <% set rs1= Server.CreateObject("adodb.recordset") sql="select * from n_class where id=6" rs1.open sql,conn,1,1 %> <%= rs1("cname_en") %> <% set rs1=nothing %>
<% set rs2= Server.CreateObject("adodb.recordset") sql="select * from about where id=1" rs2.open sql,conn,1,1 %> <%= rs2("jj_en") %> <% set rs2=nothing %>
Announcement more>>
<% set rs= Server.CreateObject("adodb.recordset") sql="select top 5 * from gonggao order by id desc" rs.open sql,conn,1,1 while not rs.eof %> <% rs.movenext() wend set rs=nothing %>
"><%= cutstr(rs("nname_en"),26) %>
Inquiry
news product
<% set rs1=nothing %>
<% set rs1= Server.CreateObject("adodb.recordset") sql="select * from n_class where id=7" rs1.open sql,conn,1,1 %> <%= rs1("cname_en") %> ">more>>
<% set rsq= Server.CreateObject("adodb.recordset") sql="select top 10 * from nnews where nclass=7" rsq.open sql,conn,1,1 while not rsq.eof %> <% rsq.movenext() wend set rsq=nothing %>
" target="_blank"><%= cutstr(rsq("nname_en"),14) %>