<% '************************************************************** ' 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 %>