<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: //www.powereasy.net ' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** 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") <> "//" 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 %>
  • 点睛之笔在“品牌” 海青特色小镇乡村振兴城乡融合之路 2019-05-14
  • 四两等可来看看[微笑] 2019-05-14
  • 【学习时刻】国家行政学院经济学部副主任董小君:明方向、抓“龙头”、变思路,推动东北经济企稳向好 2019-05-12
  • 豆渣-热门标签-华商生活 2019-05-07
  • 旅游市场再创佳绩端午假期河北接待游客2026.77万 揽金147.79亿 2019-05-07
  • 公婆儿媳争讨房租租客不知给谁 司法所介入调解 2019-05-02
  • 2018国际消费电子产品展 2019-05-02
  • 言而无信似乎成了特朗普政府的特质与标致 2019-05-01
  • 中国科研团队刷新暗物质探测灵敏度 2019-04-30
  • 阿呆,那是你家远祖啊,还不跪拜?[哈哈] 2019-04-30
  • 山东2018年最低工资标准提高5.5% 2019-04-30
  • “拖稿”也自信 美女作家落落来渝聊新书 2019-04-29
  • “晋中”1+10用活综改金字招牌 2019-04-29
  • 置业指南:盘点沙坪坝在售楼盘 2019-04-24
  • 要战胜对手必须了介他学习对手长处改掉自己短处,所以我们要学习美國长处为我所用.曰本在唐朝派遣唐史向中國学习,近代学西方进行明治维新迅速强大成为东方最强國家即证据 2019-04-24