%
'根据产品名,图片类型选择图片ID
Function select_picID(nProductID,nimage_type)
set ress=conn.execute("select imageid from product_pics where product_id=" & nProductID & " and image_Type=" & nImage_type)
'返回字段内容
if not ress.eof then
select_picID=ress("ImageID")
else
select_picID="0"
end if
ress.close
set ress=nothing
End Function
dim szSQL
szSQL="select * from products where product_class_id=2 order by product_ord desc"
%>
<%
set oRst=Server.CreateObject("AdoDb.recordset")
oRst.Open szSQL,conn,1,1
dim szTempProductID,szProdName,szProdNodel,szProdFuc
while not oRst.Eof
szTempProductID=oRst("Product_ID")
szProdName=oRst("product_name_cn") '
szProdNodel=oRst("product_model") '
szProdFuc=oRst("product_description_cn") '
%>
<%
set oRst=Server.CreateObject("AdoDb.recordset")
oRst.Open szSQL,conn,1,1
dim szTempProductID,szProdName,szProdNodel,szProdFuc
while not oRst.Eof
szTempProductID=oRst("Product_ID")
szProdName=oRst("product_name_cn") '
szProdNodel=oRst("product_model") '
szProdFuc=oRst("product_description_cn") '
%>