<% '************************************************************** ' 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-21
  • 全国法院革命传统教育基地落户井冈山 2019-05-21
  • 乡贤们,台州发“英雄帖”了 2019-05-21
  • 点睛之笔在“品牌” 海青特色小镇乡村振兴城乡融合之路 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