<!--#include file="CommonCode.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

ProductID = PE_CLng(Trim(Request("ProductID")))
If ProductID = 0 Then
    FoundErr = True
    ErrMsg = ErrMsg & "<li>请指定ProductID！</li>"
End If
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
    Response.End
End If

Dim sql
PageTitle = ChannelShortName & "信息"
ItemID = ProductID
strFileName = ChannelUrl_ASPFile & "/ShowProduct.asp"

Conn.Execute ("update PE_Product set Hits=Hits+1 where ProductID=" & ProductID)
    
sql = "select * from PE_Product where Deleted=" & PE_False & " and EnableSale=" & PE_True & " and ProductID=" & ProductID & ""
Set rsProduct = Conn.Execute(sql)
If rsProduct.BOF And rsProduct.EOF Then
    FoundErr = True
    ErrMsg = ErrMsg & "<li>你要找的" & ChannelShortName & "不存在，或者已经被管理员删除！</li>"
Else
    ClassID = rsProduct("ClassID")
    If ClassID > 0 Then
        Call GetClass
    End If
End If
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
    rsProduct.Close
    Set rsProduct = Nothing
    Response.End
End If

ProductName = Replace(Replace(Replace(Replace(rsProduct("ProductName") & "", "&nbsp;", " "), "&quot;", Chr(34)), "&gt;", ">"), "&lt;", "<")
SkinID = rsProduct("SkinID")
If SkinID = 0 Then SkinID = DefaultItemSkin
If IsNull(SkinID) Then SkinID = 0
TemplateID = rsProduct("TemplateID")
If TemplateID = 0 Then TemplateID = DefaultItemTemplate
If IsNull(TemplateID) Then TemplateID = 0
strHtml = GetTemplate(ChannelID, 3, TemplateID)
Call PE_Content.GetHtml_Product
Response.Write strHtml

rsProduct.Close
Set rsProduct = Nothing
Set PE_Content = Nothing
Call CloseConn
%>
