<% '************************************************************** ' 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 & "
  • 请指定ProductID!
  • " 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 & "
  • 你要找的" & ChannelShortName & "不存在,或者已经被管理员删除!
  • " 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") & "", " ", " "), """, Chr(34)), ">", ">"), "<", "<") 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 %>