<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: //www.powereasy.net ' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** ChannelID = 0 PageTitle = "网站公告列表" strNavPath = strNavPath & strNavLink & " " & PageTitle strFileName = "AnnounceList.asp" strHTML = GetTemplate(ChannelID, 22, 0) Call ReplaceCommonLabel strHTML = Replace(strHTML, "{$PageTitle}", SiteTitle & " >> " & PageTitle) strHTML = Replace(strHTML, "{$ShowPath}", strNavPath) strHTML = Replace(strHTML, "{$MenuJS}", GetMenuJS("", False)) strHTML = Replace(strHTML, "{$Skin_CSS}", GetSkin_CSS(0)) regEx.Pattern = "【AnnounceList\((.*?)\)】([\s\S]*?)【\/AnnounceList】" Set Matches = regEx.Execute(strHTML) For Each Match In Matches strHTML = PE_Replace(strHTML, Match.value, GetCustomFromLabel(Match.SubMatches(0), Match.SubMatches(1))) Next If InStr(strHtml, "{$ShowPage}") > 0 Then strHTML = Replace(strHTML, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("Site", "ShowAnnounce/PageChar", "个公告"), False)) If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHTML = Replace(strHTML, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("Site", "ShowAnnounce/PageChar", "个公告"), False)) Response.Write strHTML Call CloseConn Function GetCustomFromLabel(strTemp, strList) Dim arrTemp Dim OrderType, OpenType If strTemp = "" Then GetCustomFromLabel = "" Exit Function End If Dim sqlCustom, rsCustom, iCount, strCustomList, strThisClass, strLink iCount = 0 sqlCustom = "" strThisClass = "" strCustomList = "" sqlCustom = "select * from PE_Announce" arrTemp = Split(strTemp, ",") If PE_CLng(Trim(arrTemp(0))) <> 0 Then sqlCustom = sqlCustom & " where DateDiff(" & PE_DatePart_D & ",DateAndTime, " & PE_Now & ") <" & PE_CLng(arrTemp(0)) End If If Trim(arrTemp(1)) = 1 Then OpenType = " target=_blank" Else OpenType = " target=_self" End If If Trim(arrTemp(2)) = 1 Then sqlCustom = sqlCustom & " order by DateAndTime Desc" Else sqlCustom = sqlCustom & " order by DateAndTime asc" End If Set rsCustom = Server.CreateObject("ADODB.Recordset") rsCustom.Open sqlCustom, Conn, 1, 1 If rsCustom.BOF And rsCustom.EOF Then strCustomList = "网站暂时没有任何公告!" rsCustom.Close Set rsCustom = Nothing GetCustomFromLabel = strCustomList Exit Function End If totalPut = rsCustom.RecordCount If CurrentPage < 1 Then CurrentPage = 1 End If If (CurrentPage - 1) * MaxPerPage > totalPut Then If (totalPut Mod MaxPerPage) = 0 Then CurrentPage = totalPut \ MaxPerPage Else CurrentPage = totalPut \ MaxPerPage + 1 End If End If If CurrentPage > 1 Then If (CurrentPage - 1) * MaxPerPage < totalPut Then rsCustom.Move (CurrentPage - 1) * MaxPerPage Else CurrentPage = 1 End If End If Do While Not rsCustom.EOF strLink = "" strTemp = PE_Replace(strList, "{$AnnounceTitle}", rsCustom("Title")) strTemp = PE_Replace(strTemp, "{$AnnounceContent}", strLink & rsCustom("Content") & "") strTemp = PE_Replace(strTemp, "{$AnnounceAuthor}", rsCustom("Author")) strTemp = PE_Replace(strTemp, "{$AnnounceDateAndTime}", FormatDateTime(rsCustom("DateAndTime"), 1)) strCustomList = strCustomList & strTemp rsCustom.MoveNext iCount = iCount + 1 If iCount >= MaxPerPage Then Exit Do Loop rsCustom.Close Set rsCustom = Nothing GetCustomFromLabel = strCustomList End Function %>
  • 美国代表历史与现在,中国代表现在与未来。美国产品退出中国市场,几乎等于退出亚洲市场 2018-12-10
  • 高傲,名牌大学的人真的除了积累课本知识以外,确实啥也不懂!看:这些“高材生们”这些年来害怕艰难风险、不敢艰苦奋斗为人民,而去鼓吹资本主义现成的道路,称为胆小鬼不 2018-12-10
  • 不止消灭刘海屏 vivo NEX发布会看点汇总 2018-12-09
  • 湖南举办“公益体彩 走进社区”活动 2018-12-09
  • 创业女青年哈丽娟:世界是自己的 与他人没关系 2018-12-08
  • 湖南第六批短期援藏队联合中南大学湘雅医院在山南市开展“爱眼护眼”活动 2018-12-07
  • 任何大树都是从种子开始,掌门人揭开CES基业长青的密码 2018-12-06
  • 全新奥迪A1内饰谍照曝光 年内正式亮相 2018-12-05
  • 澳门修订《司法组织纲要法》,涉国安法案件限中国籍法官审理 2018-12-04
  • 重庆市公安局交通管理局互联网交通安全服务管理平台 2018-12-04
  • 成都:高新区知识产权服务业集聚发展试验区通过验收 2018-12-03
  • 成都一男子连撞3人 危害公共安全被刑拘 2018-12-03
  • 走进大凉山文章中国国家地理网 2018-12-02
  • 广美毕业展展现城市文化活力 2018-12-01
  • 中国农民骑行到巴西追逐奥运 2018-11-30