<%
ChannelID = 1008
%>
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
UserLogined = CheckUserLogined()
Dim PE_Content
Set PE_Content = New Article
PE_Content.Init
If CheckPurview_Channel(ChannelPurview, ChannelArrGroupID, UserLogined, GroupID) = False Then
FoundErr = True
ErrMsg = ErrMsg & XmlText("BaseText", "ChannelPurviewErr", "对不起，您没有浏览此频道内容的权限！")
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Response.End
End If
%>
<%
'**************************************************************
' 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 = "ShowArticle.asp"
Conn.Execute ("update PE_Article set Hits=Hits+1 where ArticleID=" & ArticleID)
sql = "select * from PE_Article where Deleted=" & PE_False & " and Status=3 and ArticleID=" & ArticleID & " and ChannelID=" & ChannelID & ""
Set rsArticle = Conn.Execute(sql)
If rsArticle.BOF And rsArticle.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "你要找的" & ChannelShortName & "不存在，或者已经被管理员删除！"
Else
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
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 = GetIDByDefault(rsArticle("SkinID"), DefaultItemSkin)
TemplateID = GetIDByDefault(rsArticle("TemplateID"), DefaultItemTemplate)
ArticleUrl = GetArticleUrl(ParentDir, ClassDir, rsArticle("UpdateTime"), ArticleID, ClassPurview, rsArticle("InfoPurview"), rsArticle("InfoPoint"))
strHtml = GetTemplate(ChannelID, 3, TemplateID)
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
%>