announce.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Conn.asp"-->
<!--#include file="inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="inc/Cl_ClsUbb.asp"-->
<%
Dim ChannelID
Dim ID,sqlAnnounce,rsAnnounce
Dim AnnounceNum
ID		= Cl.GetClng(request("ID"))
ChannelID = Cl.GetClng(request("ChannelID"))
Cl.Get_ChannelSetting(ChannelID)
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; " & Cl.ChannelName
CurrentPath = Replace(Cl.Language.selectSingleNode("//AnnounceTitle").text,"创力",CurrentPath)
sqlAnnounce = "select * from Cl_Announce where IsSelected="&TrueType&" "
if ID>0 Then
	sqlAnnounce = sqlAnnounce & " and ID=" & ID 
ElseIf channelid>0 Then
	sqlAnnounce = sqlAnnounce & " and (ChannelID=-1 or ChannelID=" & ChannelID & ") and (ShowType=0 or ShowType=1) and ID=" & ID 
Else
	sqlAnnounce = sqlAnnounce & " and IsLink="&FalseType&" "
end if
sqlAnnounce = sqlAnnounce & " order by ID Desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
OpenConn : rsAnnounce.open sqlAnnounce,Conn,1,1
Template.ProjectID	= Cl.ProjectID
Template.TemplateID	= 0
Template.CssID		= Cl.CssID
Call Template.Load(0,4)
TempStr = Template.Html
Dim LoopStr,ReplaceStr
LoopStr = Template.GetPartContent(TempStr,"[Cl_Loop]","[/Cl_Loop]")
ReplaceStr = "[Cl_Loop]" & LoopStr & "[/Cl_Loop]"
if rsAnnounce.bof and rsAnnounce.eof then
	TempStr = Replace(TempStr,ReplaceStr,Cl.Language.SelectSingleNode("//NoAnnounce").text)
else
	if ID>0 then
		If rsAnnounce("IsLink")=True then
			Dim sUrl
			sUrl = rsAnnounce("LinkUrl")
			rsAnnounce.close : set rsAnnounce=Nothing
			Response.Redirect sUrl
			Response.end
		end if
	end if
	AnnounceNum = rsAnnounce.recordcount
	Dim TTempStr, TBodyStr
	TTempStr = ""
	Set ClUbb= New Cls_UbbCode
	do while not rsAnnounce.eof
		TTempStr = LoopStr
		TTempStr = Replace(TTempStr,"{$announcetitle}",rsAnnounce("title"))
		TTempStr = Replace(TTempStr,"{$announcecontent}",ClUbb.UbbCode(rsAnnounce("Content")))
		TTempStr = Replace(TTempStr,"{$announceauthor}",rsAnnounce("Author"))
		TTempStr = Replace(TTempStr,"{$announcetime}",FormatDateTime(rsAnnounce("AddTime"),1))
		rsAnnounce.movenext
		TBodyStr = TBodyStr & TTempStr
	loop
	Set ClUbb=Nothing
	TempStr = Replace(TempStr,ReplaceStr,TBodyStr)
end if
rsAnnounce.close:set rsAnnounce=Nothing
Response.write Template.ReplaceAllFlag(TempStr)
CloseAllObj
%>
<%
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>