<%Response.Buffer=true%> <% Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,SubRst Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open DataBase //庫連接 Dim LngId LngId=Trim(Request("findid")) If Not IsNumeric(LngId) Or IsEmpty(LngId) Or IsNUll(LngId) Then LngId=0 Dim StrTitle,StrModel,StrDetail,StrImg,StrCatetitle ObjRst.Open "select p.title ptitle,l.title ltitle,model,mainimg,p.detail pdetail,img10 from diy_productlst l,diy_products p where p.category=l.id and p.corpid="&CorpNo&" and p.id="&LngId,ObjCon If Not ObjRst.Eof Then StrTitle=ObjRst("ptitle") StrModel=ObjRst("model") StrDetail=ObjRst("pdetail") StrImg=ObjRst("mainimg") StrCatetitle=ObjRst("ltitle") StrParaImg=ObjRst("img10") Else ObjRst.Close Set ObjRst=Nothing ObjCon.Close Set ObjCon=Nothing Response.Redirect "default.asp" End If ObjRst.Close %> &

h在线看,日本一线天无码A片一区二区三区,乱伦熟女视频,无码视频国产,久久久国产一区二区三区人妻动漫
　　 整機銷售
<% If ObjRst.State=1 Then ObjRst.Close ObjRst.Open "select * from diy_productlst where corpid="&CorpNo,ObjCon Do While Not ObjRst.Eof%>
<%ObjRst.MoveNext Loop %>

銷售網絡

　

 　
　您現(xiàn)在的位置：首頁 >> 整機銷售

裝載機系列

<%=StrTitle&StrModel%>
<%=Replace(StrDetail,vbcrlf,"
")%>

主要技術參數
<%If StrParaImg<>"" Then Response.Write ""%>
<%If Objrst.State=1 THen ObjRst.Close Set ObjRst=Nothing ObjCon.Close Set ObjCon=Nothing %>