<% '************************************************************** ' 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-03-19
  • 重庆市公安局交通管理局 2019-03-18
  • 致父亲——习近平与父亲的家国情 2019-03-18
  • 文代会作代会来啦:听听文艺名家的心里话 2019-03-18
  • 关注养老金领取资格认证难:异地居住自证很别扭 2019-03-17
  • G7峰会期间那张著名的刷屏照片......反转了? 2019-03-14
  • 互联网+文化,浓了年味新了民俗 2019-03-02
  • 回复@老老保老张工:计划不要批准?那不还是你自己做主?有必要走形式么? 2019-03-02
  • 第一章 中国共产党的创立和投身大革命的洪流 2019-02-04
  • 图片报道:江西省峡江县举行公共租赁住房钥匙发放仪式 2019-02-04
  • 强强联手!中国移动与百度将在市场、技术、业务等方面战略合作 2019-01-22
  • 老汉地铁上索座不成掌掴大妈 被乘客齐声谴责 2018-12-14
  • 【新时代 新作为 新篇章】年年岁岁扒龙舟 广州今年河水最清澈 2018-12-14