<%set rs=server.CreateObject("adodb.recordset") rs.Open "select top 10 * from bd_product where nclassid=3 order by cid ",conn,1,1 dim paixu if rs.EOF and rs.BOF then response.Write "
    还没有分类" paixu=0 else do while not rs.EOF %>
  • "><%=rs("cp_name")%>
  • <%rs.MoveNext loop paixu=rs.RecordCount end if rs.close set rs=nothing%>
香港公司
地址:香港新界葵涌国瑞道116--122城市工业中心14字楼B室
电话:(852)2421-4477,2420-9998
传真:(852)2480-5344
邮箱:service@BunLan.com
中国内地公司
地址:广东省东莞市常平镇沿河东一路5号
电话/传真:(86)769 83332798
邮箱:service@BunLan.com
<% nid=int(request("id")) set rs=server.createobject("adodb.recordset") rs.open "select * from kyabout where nid =118" ,conn,1,1 cp_pac=rs("content") rs.close set rs=nothing %>

<%=cp_pac%>