<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") 
If ListKey<>"" Then Session("FindId")=ListKey Else ListKey= Session("FindId")
XML.StrSql="select * from SQ_Product where ProductID=" & ListKey
Dim BackList '定义返回上级的哪一类别。
BackList=XML.MdbShow("ClassId")
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("ProductName") & "</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "编　号:" & XML.MdbShow("ProductNum")

XML.WriteRow "生产商:" & XML.MdbShow("ProducerName") 
XML.WriteRow "规格:" & XML.MdbShow("ProductStandard") 
ProductType=XML.MdbShow("ProductType")
Select Case ProductType
Case 1 : ProductType="正常"
Case 2 : ProductType="涨价"
Case 3 : ProductType="降价"
Case 4 : ProductType="礼品"
End Select
Dim Unit : Unit=XML.MdbShow("Unit")
XML.WriteRow XML.Img("../Shop/UploadPhotos/" & XML.MdbShow("ProductThumb"),"暂无预览图","Width='150'") 
XML.WriteRow "商品类型:" &  ProductType & "销售商品"
XML.WriteRow "品牌/商标:" & XML.MdbShow("TrademarkName") 
XML.WriteRow "库存数量:" & XML.MdbShow("Stocks") 
XML.WriteRow "推荐等级:" & XML.Img("Images\" & XML.MdbShow("Stars") & "star.gif")
XML.WriteRow "降价折扣:" & XML.MdbShow("Discount") & "折"
XML.WriteRow "限购数量:" & XML.MdbShow("LimitNum") & Unit
XML.WriteRow "商品价格：市场价：" & XML.MdbShow("Price_Market") & "/" & Unit & " 商城价：" & XML.MdbShow("Price") & "/" & Unit & " 会员价：" & XML.MdbShow("Price_Member") & "/" & Unit & " 优惠价：" & XML.MdbShow("Price_Original") & "/" & Unit 
XML.WriteRow "上架时间:" & XML.MdbShow("CreateTime") 
XML.WriteRow "更新时间:" & XML.MdbShow("UpdateTime") 
XML.WriteRow "品牌/商标:" & XML.MdbShow("TrademarkName") 
XML.WriteRow "优惠期限:" & XML.MdbShow("BeginDate") & "～" & XML.MdbShow("EndDate")
ShowContent=ShowContent & XML.MdbShow("ProductExplain")
ShowContent=Replace(ShowContent,"[NextPage]","") '去掉动易的手工分页。
XML.AutoPage XML.DelHtml(ShowContent),TextLong,True,2
XML.WriteRow "浏览:" & XML.MdbShow("Hits") & "次"
XML.WriteRow "评论数:" & XML.A("查看","ProductComment.asp?ModuleType=5&amp;InfoID=" & ListKey,XML.MdbShow("CommentCount"))
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'更新浏览次数
XML.StrSql="Update SQ_Product set Hits=Hits+1 Where ID=" & ListKey
XML.MdbDo
'以下关于上一条、下一条记录
XML.RsInfoPlace="None"
XML.ErrorPagePath=""
XML.FieldId="ProductID"
XML.FieldShow="Title"
XML.GoFileName="NewsShow.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from SQ_Product where ProductID<" & ListKey & " Order By ProductID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from SQ_Product where ProductID>" & ListKey & " Order By ProductID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
Else
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from SQ_Product where ProductID>" & ListKey & " Order By ProductID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from SQ_Product where ProductID<" & ListKey & " Order By ProductID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
End If
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","ProductList.asp?Page=" & Session("MyPage") & "&amp;ListId=" & BackList,"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
