<%Response.Buffer=true%> <% Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,SubRst Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set SubRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //库连接 ObjRst.Open "select * from diy_productlst where corpid="&CorpNo,ObjCon %> 整机销售--徐州恒铭机械设备有限公司
　　 整机销售
<%Do While Not ObjRst.Eof%>
<%ObjRst.MoveNext Loop %>

销售网络

　

 　
　您现在的位置：首页 >> 整机销售
<%If ObjRst.State=1 Then ObjRst.Close Dim LngCate LngCate=Trim(Request("class")) If Not IsNumeric(LngCate) Or IsEmpty(LngCate) Or IsNUll(LngCate) Then LngCate=505 ObjRst.Open "select title,catimg_s from diy_productlst where corpid="&CorpNo&" and id="&LngCate,ObjCon If Not ObjRst.Eof Then %>

<%=ObjRst("title")%>
<%SubRst.Open "select title,model,id from diy_products where corpid="&CorpNo&" and category="&LngCate&" order by orderno",ObjCon Do While Not SubRst.Eof %> <% SubRst.MoveNext Loop SubRst.Close%>
 " class=1> <%=SubRst("model")&SubRst("title")%>
<%End If%>
<%If Objrst.State=1 THen ObjRst.Close If SubRst.State=1 THen SubRst.Close Set ObjRst=Nothing Set SubRst=Nothing ObjCon.Close Set ObjCon=Nothing %>