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

SupplyID = PE_CLng(Trim(Request("SupplyId")))
strHtml = GetTemplate(ChannelID, 3, TemplateID)
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
    Response.End
End If
PageTitle = ChannelShortName & "信息"
ItemID = SupplyID
strFileName = ChannelUrl & "/ShowSupply.asp"
Conn.Execute ("update PE_Channel set HitsCount=HitsCount+1 where ChannelID=" & ChannelID)
Conn.Execute ("update PE_Supply set Hits=Hits+1 where SupplyId=" & SupplyID)

Dim strSql, strTemp, strUser, strTable
strSql = "Select A.SupplyId,A.SupplyTitle,A.SupplyName,A.SupplyType,A.TradeType, A.ClassId,"
strSql = strSql & " A.UpDateTime,A.SupplyIntro,A.PriceIntro,A.SupplyPeriod,A.UserName,"
strSql = strSql & " B.Country,B.Province,B.City,B.Address,B.TrueName,B.Sex,B.[Position],B.Operation,"
strSql = strSql & " C.Email,B.ZipCode,C.LoginTimes,C.LastLoginTime,C.UserType,B.Company,B.Department,"
strSql = strSql & " B.CompanyAddress,B.Homepage,B.OfficePhone,B.Fax,B.Mobile,B.QQ,B.Msn "
strSql = strSql & " From PE_Supply A ,PE_Contacter B, PE_User C Where  A.UserName=C.UserName and "
strSql = strSql & " C.ContacterID = B.ContacterID and A.SupplyId =" & SupplyID & " And Status=1 And A.Deleted=" & PE_False & ""
Set rsSupply = Server.CreateObject("Adodb.Recordset")
rsSupply.Open strSql, Conn, 1, 1
If rsSupply.EOF Then
    FoundErr = True
    ErrMsg = ErrMsg & "<li>你要找的" & ChannelShortName & "不存在，或者已经被管理员删除！</li>"
    Call WriteErrMsg(ErrMsg, ComeUrl)
    rsSupply.Close
    Set rsSupply = Nothing
    Response.End
Else
    ClassID = rsSupply("ClassID")
    If ClassID > 0 Then
        Call GetClass
    End If
End If

Call PE_Content.GetHtml_Supply
Response.Write strHtml
rsSupply.Close
Set rsSupply = Nothing
Set PE_Content = Nothing
Call CloseConn
%>
