admin_announce.asp

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

		<%
		Dim Node
		For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.selectNodes("channel[@channeltype<2]")
		Response.write "<option value=""" & Node.selectSingleNode("@channelid").text& """>" & Node.selectSingleNode("@channelname").text& "</option>"
		Next
		Set Node = Nothing%>
		</select></td>
    </tr>
    <tr class="tdbg"> 
      <td align="right">显示类型：</td>
      <td> 
        <input type="radio" name="ShowType" value="0" <%if ShowType=0 then response.write "checked"%> />
        全部&nbsp;&nbsp; 
        <input type="radio" name="ShowType" value="1" <%if ShowType=1 then response.write "checked"%> />
        滚动&nbsp;&nbsp; 
        <input type="radio" name="ShowType" value="2" <%if ShowType=2 then response.write "checked"%> />
        弹出&nbsp;&nbsp; </td>
    </tr>
    <tr class="tdbg"> 
      <td align="right">&nbsp;</td>
      <td> 
        <input name="IsSelected" type="checkbox" id="IsSelected" value="True" <% if IsSelected=True then response.write "checked"%> />
        设为最新公告</td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center"> 
        <input name="Action" type="hidden" id="Action" value="Save<%=Action%>" />
        <input type="submit" name="Submit" value=" <%=sSubmit%> " />
        <input name="ID" type="hidden" id="ID" value="<%=ID%>" />
      </td>
    </tr>
  </table>
</form>
<script language="JavaScript" type="text/javascript">
<!--
<%if IsLink=True then%>
document.getElementById('ChkIsLink').style.display = '';
document.getElementById('ChkNoLink').style.display = 'none';
<%end if%>
CheckSel('ChannelID','<%=ChannelID%>');
function ChkLink(){
if (document.getElementById('IsLink').checked == true) {
	document.getElementById('ChkIsLink').style.display = '';
	document.getElementById('ChkNoLink').style.display = 'none';
}else{
	document.getElementById('ChkIsLink').style.display = 'none';
	document.getElementById('ChkNoLink').style.display = '';
}
}
//-->
</script>
<%
end sub

Sub SaveAnnounceInfo()
	dim ID,Title,IsLink,LinkUrl,Content,Author,AddTime,ShowType,IsSelected
	ID		= Cl.GetClng(request("ID"))
	Title	= Trim(request("Title"))
	IsLink	= Trim(request("IsLink"))
	LinkUrl	= Trim(request("LinkUrl"))
	Content	= Trim(request("Content"))
	Author	= Trim(request("Author"))
	AddTime	= Trim(request("AddTime"))
	IsSelected= Trim(request("IsSelected"))
	ShowType= Cl.GetClng(request("ShowType"))
	if Title="" then
		Cl.ShowErr("<br /><li>公告标题不能为空！</li>")
	end if
	if Len(Title)>250 then
		Cl.ShowErr("<br /><li>公告标题过长（应小于250）！</li>")
	end if
	Title	= Cl.HTMLCode(Title)
'	Content	= Server.HTMLEncode(Content)
	Author	= Server.HTMLEncode(Author)
	if AddTime<>"" and IsDate(AddTime)=true then
		AddTime=Cdate(AddTime)
	else
		AddTime=now()
	end if
	if IsSelected="True" then
		IsSelected=True
	else
		IsSelected=false
	end if
	if IsLink="True" then
		if LinkUrl="" then
			Cl.ShowErr("<br /><li>公告内容不能为空！</li>")
		end if
		IsLink=True
	else
		if Content="" then
		Cl.ShowErr("<br /><li>公告内容不能为空！</li>")
		end if
		IsLink=False
	end if
	set rs=server.createobject("adodb.recordset")
	if Action="SaveAdd" then
		sql="select Top 1 * from Cl_Announce"
		OpenConn : rs.open sql,Conn,1,3
		rs.addnew
	else
		if ID=0 then Cl.ShowErr("<br /><li>请指定要修改的公告ID！</li>")
		sql="select * from Cl_Announce where ID=" & ID
		OpenConn : rs.open sql,Conn,1,3
		if rs.bof and rs.eof then
			rs.close : set rs=Nothing
			Cl.ShowErr("<br /><li>找不到指定的公告！</li>")
		end if
	end if
	rs("Title")		= Title
	rs("Content")	= Content
	rs("Author")	= Author
	rs("AddTime")	= AddTime
	rs("IsSelected")= IsSelected
	rs("ChannelID")	= ChannelID
	rs("ShowType")	= ShowType
	rs("IsLink")	= IsLink
	rs("LinkUrl")	= LinkUrl
	rs.update
	rs.close:set rs=Nothing
	RefreshAnnounceJs
	Cl.SaveAdminLog
	response.redirect FileName
end sub

sub SetNew()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		Cl.ShowErr("<br /><li>请指定公告ID</li>")
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			Cl.Execute "Update Cl_Announce set IsSelected="&TrueType&" Where ID=" & CLng(arrID(i))
		next
	else
		Cl.Execute "Update Cl_Announce set IsSelected="&TrueType&" Where ID=" & CLng(ID)
	end if
	Cl.SaveAdminLog
	response.redirect FileName
end sub

sub CancelNew()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		Cl.ShowErr("<br /><li>请指定公告ID</li>")
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			Cl.Execute "Update Cl_Announce set IsSelected="&FalseType&" Where ID=" & CLng(arrID(i))
		next
	else
		Cl.Execute "Update Cl_Announce set IsSelected="&FalseType&" Where ID=" & CLng(ID)
	end if
	RefreshAnnounceJs
	Cl.SaveAdminLog
	response.redirect FileName
end sub

sub SetShowType()
	dim ID,ShowType
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		Cl.ShowErr("<br /><li>请指定要移动的公告ID！</li>")
	end if
	ShowType=Trim(Request("ShowType"))
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			Cl.Execute "Update Cl_Announce set ShowType = "& ShowType & " where ID=" & CLng(arrID(i))
		next
	else
		Cl.Execute "Update Cl_Announce set ShowType = "& ShowType & " where ID=" & CLng(ID)
	end if
	RefreshAnnounceJs
	Cl.SaveAdminLog
	response.redirect FileName
end sub

sub MoveAnnounce()
	dim ID,MoveChannelID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		Cl.ShowErr("<br /><li>请指定要移动的公告ID！</li>")
	end if
	MoveChannelID=Trim(Request("MtChannelID"))
	if Not IsNumeric(MoveChannelID) then Exit Sub
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			Cl.Execute "Update Cl_Announce set ChannelID = "& MoveChannelID & " where ID=" & CLng(arrID(i))
		next
	else
		Cl.Execute "Update Cl_Announce set ChannelID = "& MoveChannelID & " where ID=" & CLng(ID)
	end if
	Cl.SaveAdminLog
	response.redirect FileName
end sub

sub DelAnnounce()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		Cl.ShowErr("<br /><li>请指定要删除的公告ID！</li>")
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			Cl.Execute "delete from Cl_Announce where ID=" & CLng(arrID(i))
		next
	else
		Cl.Execute "delete from Cl_Announce where ID=" & CLng(ID)
	end if
	RefreshAnnounceJs
	Cl.SaveAdminLog
	response.redirect FileName
End Sub

Sub RefreshAnnounceJs()
	if Cl.Web_Info(15) = "1" then
	Dim strJs,TempData,Node
	if Not Cl.CheckFolder(Cl.WebDir&"Js/Announce/",False) then Cl.CreateFolder(Cl.WebDir&"Js/Announce/")
	For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.SelectNodes("channel[@channeltype<2]")
		ChannelID=CLng(Node.SelectSingleNode("@channelid").text)
		'TempData=ShowAnnounce(1,5)
		'TempData=Replace(TempData,Chr(34),"\"&Chr(34))
		'TempData=Replace(TempData,vbcrlf,"\n")
		'strJs="document.write ('"&TempData&"');"
		'Cl.MakeHtml strJs,Cl.WebDir&"Js/Announce/"&ChannelID&"_1.Js"
		'TempData=ShowAnnounce(2,5)
		'TempData=Replace(TempData,Chr(34),"\"&Chr(34))
		'TempData=Replace(TempData,vbcrlf,"\n")
		'strJs="document.write ('"&TempData&"');"
		'Cl.MakeHtml strJs,Cl.WebDir&"Js/Announce/"&ChannelID&"_2.Js"
		Cl.MakeHtml OpenAnnounce(ChannelID),Cl.WebDir&"Js/Announce/"&ChannelID&"_3.Js"
	Next
	End if
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>