<%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 //庫(kù)連接 ObjRst.Open "select * from diy_productlst where corpid="&CorpNo,ObjCon %> &

h在线看,日本一线天无码A片一区二区三区,乱伦熟女视频,无码视频国产,久久久国产一区二区三区人妻动漫
　　 整機(jī)銷(xiāo)售
<%Do While Not ObjRst.Eof%>
<%ObjRst.MoveNext Loop %>

銷(xiāo)售網(wǎng)絡(luò)

　

 　
　您現(xiàn)在的位置：首頁(yè) >> 整機(jī)銷(xiāo)售
<%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 %>