<% '************************************************************** ' 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 %>
  • 力度空前!个税起征点提高至每月5000元!还有这些消息与你的钱包有关 2019-04-06
  • 各大拍卖行不拼数量拼品质 2019-04-06
  • 一条塔里木河 串起南疆各色景致与无限风光 2019-03-30
  • 高清:中国男篮抵达洛杉矶 长途飞行队员略显疲惫 2019-03-30
  • 西安明德门遗址保护工程启动 将1∶1异地重现五门道城门明德门保护-要闻 2019-03-24
  • 乌鲁木齐市中级人民法院庭审在线直播 2019-03-24
  • 恋上冲绳 四天玩不够! ——凤凰网房产 2019-03-22
  • 网约上门服务调查:服务水平良莠不齐 安全顾虑如影随形 2019-03-22
  • 埃及政府开斋节突然大幅上涨油气价格 2019-03-19
  • 夏天吃个酣畅淋漓的火锅注意啥 2019-03-19
  • 新版外商投资负面清单已修订完成 即将发布 2019-03-17
  • 星光熠熠的戛纳 红毯之外这座小城还有哪些看头 2019-03-17
  • 让安心手环更“智慧” 2019-02-11
  • 专访东易日盛董事长陈辉:今年互联网家装公司将重新洗牌 2019-02-11
  • C罗一战创造5大不可思议纪录!这一刻请高呼他为球王 2019-01-21