'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,CollectConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = CollectDBConnectionStr
Set CollectConn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>
if Not JudgePopedomTF(Session("Name"),"P080301") then Call ReturnError1()
'判断权限结束
Dim NewsIDStr,Result,RsNewsObj,Sql
Dim Title,Links,Content,AddDate,ClassID,SiteID,SysTemplet,Author,SourceStr
Result = Request("Result")
NewsIDStr = Request("NewsIDStr")
if Result = "Submit" then
Title = Request.Form("Title")
Links = Request.Form("Links")
Content = Request.Form("Content")
AddDate = Request.Form("AddDate")
ClassID = Request.Form("ClassID")
SiteID = Request.Form("SiteID")
SysTemplet = Request.Form("SysTemplet")
Author = Request.Form("Author")
SourceStr = Request.Form("Source")
if NewsIDStr "" then
Sql = "Select * from FS_News where ID=" & NewsIDStr
'On Error Resume Next
Set RsNewsObj = Server.CreateObject("ADODB.RecordSet")
RsNewsObj.Open Sql,CollectConn,3,3
RsNewsObj("Title") = Title
RsNewsObj("Links") = Links
RsNewsObj("Content") = Content
RsNewsObj("AddDate") = AddDate
RsNewsObj("ClassID") = ClassID
RsNewsObj("SysTemplet") = SysTemplet
RsNewsObj("Author") = Author
RsNewsObj("Source") = SourceStr
RsNewsObj("SiteID") = SiteID
RsNewsObj.UpDate
RsNewsObj.Close
Set RsNewsObj = Nothing
if Err.Number 0 then
%>
alert('修改失败');
else
Response.Redirect("Check.asp")
end if
else
%>
alert('修改的新闻不存在');
end if
else
if NewsIDStr "" then
Sql = "Select * from FS_News where ID=" & NewsIDStr
Set RsNewsObj = CollectConn.Execute(Sql)
if Not RsNewsObj.Eof then
Title = RsNewsObj("Title")
Links = RsNewsObj("Links")
Content = RsNewsObj("Content")
AddDate = RsNewsObj("AddDate")
ClassID = RsNewsObj("ClassID")
SiteID = RsNewsObj("SiteID")
SysTemplet = RsNewsObj("SysTemplet")
Author = RsNewsObj("Author")
SourceStr = RsNewsObj("Source")
else
%>
alert('新闻不存在');
end if
else
%>
alert('参数错误');
end if
end if
Dim TempClassListStr
TempClassListStr = ClassList
Function ClassList()
Dim ClassListObj,SelectStr
Set ClassListObj = Conn.Execute("Select ClassID,ClassCName from FS_NewsClass where ParentID='0' order by ClassID desc")
do while Not ClassListObj.Eof
if ClassListObj("ClassID") = ClassID then
SelectStr = "selected"
else
SelectStr = ""
end if
ClassList = ClassList & "" & ClassListObj("ClassCName") & ""
ClassList = ClassList & ChildClassList(ClassListObj("ClassID"),"")
ClassListObj.MoveNext
loop
ClassListObj.Close
Set ClassListObj = Nothing
End Function
Function ChildClassList(ClassID,Temp)
Dim TempRs,TempStr,SelectStr
Set TempRs = Conn.Execute("Select ClassID,ClassCName from FS_NewsClass where ParentID='" & ClassID & "' order by ClassID desc")
TempStr = Temp & " |- "
do while Not TempRs.Eof
if TempRs("ClassID") = ClassID then
SelectStr = "selected"
else
SelectStr = ""
end if
ChildClassList = ChildClassList & "" & TempStr & TempRs("ClassCName") & ""
ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
TempRs.MoveNext
loop
TempRs.Close
Set TempRs = Nothing
End Function
Dim SiteList,RsSiteObj
Set RsSiteObj = Server.CreateObject("Adodb.RecordSet")
RsSiteObj.Source = "Select ID,SiteName from FS_Site order by id desc"
RsSiteObj.open RsSiteObj.Source,CollectConn,1,3
do while Not RsSiteObj.Eof
if Clng(RsSiteObj("ID")) = Clng(SiteID) then
SiteList = SiteList & "" & RsSiteObj("SiteName") & ""
else
SiteList = SiteList & "" & RsSiteObj("SiteName") & ""
end if
RsSiteObj.MoveNext
loop
RsSiteObj.Close
Set RsSiteObj = Nothing
%>
修改新闻
.LableWindow
{
border-right: 1px solid;
border-left: 1px solid;
border-bottom: 1px solid;
border-color: Black;
cursor: default;
}
.LableDefault
{
border-right: 1px solid;
border-top: 1px solid;
font-size: 12px;
border-left: 1px solid;
border-bottom: 1px solid;
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
border-color: Black;
cursor: default;
}
.LableSelected
{
border-right: 1px solid;
border-top: 1px solid;
font-size: 12px;
border-left: 1px solid;
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
border-color: Black;
cursor: default;
}
.ToolBarButtonLine {
border-bottom: 1px solid;
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
border-color: Black;
}
保存
|
后退
新闻标题
新闻联接
目标栏目
新闻摸板
采集站点
作 者
来 源
采集日期
代 码
预
览
Set CollectConn = Nothing
Set Conn = Nothing
Set RsNewsObj = Nothing
%>
function SetEditAreaHeight()
{
var BodyHeight=document.body.clientHeight;
var EditAreaHeight=BodyHeight-200;
document.all.NewsContent.style.height=EditAreaHeight;
document.all.PreviewContent.height=EditAreaHeight;
}
SetEditAreaHeight();
window.onresize=SetEditAreaHeight;
function Preview()
{
var TempStr='';
document.all.EditCodeArea.style.display='none';
document.all.PreviewArea.style.display='';
PreviewContent.document.write('');
PreviewContent.document.body.innerHTML=document.all.Content.value;
document.all.PreviewBtn.className='LableSelected';
document.all.PreviewBtn.style.backgroundColor='#EFEFEF';
document.all.EditCodeBtn.className='LableDefault';
document.all.EditCodeBtn.style.backgroundColor='#FFFFFF';
}
function CodeContent()
{
document.all.EditCodeArea.style.display='';
document.all.PreviewArea.style.display='none';
document.all.EditCodeBtn.className='LableSelected';
document.all.EditCodeBtn.style.backgroundColor='#EFEFEF';
document.all.PreviewBtn.className='LableDefault';
document.all.PreviewBtn.style.backgroundColor='#FFFFFF';
}
