<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
ArticleID = PE_CLng(Trim(Request("ArticleID")))
If ArticleID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "请指定ArticleID！"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Response.End
End If
Dim sql
PageTitle = "正文"
ItemID = ArticleID
strFileName = "Print.asp"
sql = "select * from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and ArticleID=" & ArticleID & " and ChannelID=" & ChannelID & ""
Set rsArticle = Conn.Execute(sql)
If rsArticle.BOF And rsArticle.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "你要找的" & ChannelShortName & "不存在，或者已经被管理员删除！"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
rsArticle.Close
Set rsArticle = Nothing
Response.End
End If
ClassID = rsArticle("ClassID")
If ClassID > 0 Then
Call GetClass
End If
If rsArticle("ReceiveType") = 1 Then
If UserLogined = False Then
FoundErr = True
ErrMsg = ErrMsg & "您无权浏览此专属" & ChannelShortName & "！"
Else
If FoundInArr(rsArticle("ReceiveUser"), UserName, ",") = False Then
FoundErr = True
ErrMsg = ErrMsg & "您无权浏览此专属" & ChannelShortName & "！"
End If
End If
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
rsArticle.Close
Set rsArticle = Nothing
Response.End
End If
If rsArticle("LinkUrl") <> "" And rsArticle("LinkUrl") <> "http://" Then
Response.Write ""
Else
If Trim(rsArticle("TitleIntact")) <> "" Then
ArticleTitle = Replace(Replace(Replace(Replace(rsArticle("TitleIntact") & "", " ", " "), """, Chr(34)), ">", ">"), "<", "<")
Else
ArticleTitle = Replace(Replace(Replace(Replace(rsArticle("Title") & "", " ", " "), """, Chr(34)), ">", ">"), "<", "<")
End If
SkinID = rsArticle("SkinID")
If SkinID = 0 Then SkinID = DefaultItemSkin
If IsNull(SkinID) Then SkinID = 0
ArticleUrl = GetArticleUrl(ParentDir, ClassDir, rsArticle("UpdateTime"), ArticleID, ClassPurview, rsArticle("InfoPurview"), rsArticle("InfoPoint"))
strHtml = GetTemplate(ChannelID, 17, 0)
Call PE_Content.GetHtml_Article
strHtml = PE_Content.ReplaceContentLabel(strHtml)
Response.Write strHtml
End If
rsArticle.Close
Set rsArticle = Nothing
Set PE_Content = Nothing
Call CloseConn
%>