<%
dim rs,sql,num
set rs=server.CreateObject("adodb.recordset")
sql="select * from company_jianjie order by xuhao ASC, id DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ""
else
response.write ""
do while not rs.eof
num=num+1
%>
">·<%=rs("title")%>
<%rs.movenext
loop
end if%>
·企业荣誉
<%
dim rs22,sql22,num22
set rs22=server.CreateObject("adodb.recordset")
sql22="select * from product_sub_1 order by xuhao ASC, id DESC"
rs22.open sql22,conn,1,1
if rs22.bof and rs22.eof then
response.write ""
else
response.write ""
do while not rs22.eof
num22=num22+1
%>
">·<%=rs22("subject_1")%>
<%rs22.movenext
loop
end if%>
·工场简介<%
dim rs12,sql12,num12
set rs12=server.CreateObject("adodb.recordset")
sql12="select * from download_sub order by xuhao ASC, id DESC"
rs12.open sql12,conn,1,1
if rs12.bof and rs12.eof then
response.write ""
else
response.write ""
do while not rs12.eof
num12=num12+1
%>
">·<%=rs12("subject")%>
<%rs12.movenext
loop
end if%>
<%
dim rs3,sql3,num3
set rs3=server.CreateObject("adodb.recordset")
sql3="select top 10 * from service order by xuhao ASC, id DESC"
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
response.write ""
else
response.write ""
do while not rs3.eof
num3=num3+1
%>
">·<%=rs3("title")%>
<%rs3.movenext
loop
end if%>
<%
dim rs2,sql2,num2
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from news_sub order by xuhao ASC, id DESC"
rs2.open sql2,conn,1,1
if rs2.bof and rs2.eof then
response.write ""
else
response.write ""
do while not rs2.eof
num2=num2+1
%>
">·<%=rs2("subject")%>
<%rs2.movenext
loop
end if%>
<%
dim rs5,sql5,num5
set rs5=server.CreateObject("adodb.recordset")
sql5="select * from bankuai order by xuhao ASC, id DESC"
rs5.open sql5,conn,1,1
if rs5.bof and rs5.eof then
response.write ""
else
response.write ""
do while not rs5.eof
num5=num5+1
%>
">·<%=rs5("title")%>
<%rs5.movenext
loop
end if%>