admin_newssave.asp

新闻发布系统

<!--#include file = "include.asp"-->
<!--#include file = "admin_CheckMana.asp"-->
<!--#include file = "inc/function.asp"-->
<!--#include file = "inc/Htmls.asp"-->
<!--#include file = "char.asp"-->
<% 
if EnoughPopedom("add")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'========================================================= 
 Sub Add()
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select * from News"
    rs.open sql,conn,3,3
      rs.addnew
      rs("Title")=replace(request.form("Title"),"'"," ")
      rs("Title")=trim(request.form("Title"))
	  rs("BiaotiNews")=request.Form("BiaotiNews")
	  rs("UBiaotiNews")=trim(request.form("UBiaotiNews"))
	  if request.Form("RemoteUrl")="1" then
      rs("Content")=ReplaceRemoteUrl(request.form("Content"))
	  else
	  rs("Content")=request.form("Content")
	  end if
      rs("Keyword")=replace(request.form("Keyword"),"'"," ")
      rs("Date")=replace(request.form("Date"),"'"," ")
      rs("Source")=replace(request.form("Source"),"'"," ")
      rs("Templet")=request.form("Templet")
      rs("Author")=replace(request.form("Author"),"'"," ")
      rs("Editer")=replace(request.form("Editer"),"'"," ")
      rs("click")=replace(request.form("Click"),"'"," ")
      rs("FileName")=FileName
      rs("Lpath")=year1&"/"&month1&"-"&day1&"/"
      rs("Recommend")=session("recommend")
      rs("SpeicalCn")=request.form("SpeicalCn")
      rs("ClassCN")=replace(request.form("ClassCN"),"'"," ")
      rs("ClassEN")=replace(request.form("ClassEN"),"'"," ")
      rs("picnews")=request.Form("picnews")
	  rs("DhWords")=request.Form("DhWords")
	  rs("PicNewsi")=request.Form("PicNewsi")
	  rs("PicNewsa")=request.Form("PicNewsa")
	  rs("PicNewsa1")=request.form("PicNewsa1")
	  rs("zimu")=request.Form("zimu")
	  rs("bingpai")=request.Form("bingpai")
	  rs("check")=request.Form("check")
      rs.update
	  rs.close
      set rs=nothing
  End Sub
  Sub Modify()
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select * from News where NewsID="&request.form("NewsID")
      rs.open sql,conn,3,3
      rs("Title")=replace(request.form("Title"),"'"," ")
	  rs("Title")=trim(request.form("Title"))
      rs("Content")=replace(request.form("Content"),"'"," ")
      rs("Keyword")=replace(request.form("Keyword"),"'"," ")
      rs("Date")=replace(request.form("Date"),"'"," ")
      rs("Source")=replace(request.form("Source"),"'"," ")
      rs("Templet")=request.form("Templet")
      rs("Author")=replace(request.form("Author"),"'"," ")
      rs("Editer")=replace(request.form("Editer"),"'"," ")
      rs("click")=replace(request.form("Click"),"'"," ")
      rs("Recommend")=session("recommend")
	  rs("SpeicalCn")=request.form("SpeicalCn")
	  rs("PicNews")=request.form("PicNews")
	  rs("PicNewsi")=request.form("PicNewsi")
	  rs("PicNewsa")=request.form("PicNewsa")
	  rs("PicNewsa1")=request.form("PicNewsa1")
	  rs("zimu")=request.form("zimu")
	  rs("bingpai")=request.form("bingpai")
	  rs.update
	Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
	if	MyFile.FileExists(Server.MapPath("..")&"\"&rs("lpath")&rs("FileName")&".html") then 
      MyFile.DeleteFile(Server.MapPath("..")&"\"&rs("lpath")&rs("FileName")&"*.html")
	end if
    rs.close
    set rs=nothing
	set MyFile=nothing
  End Sub

  Sub ModifyHtml(PageCount,PageContent,y)
    if request.Form("BiaotiNews")="false" then
    Set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from Templet Where TempletName='"&request.form("Templet")&"'"
    rs.open sql,conn,1,1
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="Select * from newsClass Where ClassCN='"&request.form("ClassCN")&"'"
    rs1.open sql1,conn,1,1
    Templet=CoRe(rs("TempletContent"),PageCount,PageContent,y)
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    Set rsnews=Server.CreateObject("adodb.recordset")
    sql="select lpath from news where newsid="&request.form("NewsId")
    rsnews.open sql,conn,1,1
    temp=split(rsnews(0),"/")
    if MyFile.FolderExists(Server.MapPath("..")&"\"&temp(0))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&temp(0))
    if MyFile.FolderExists(Server.MapPath("..")&"\"&temp(0)&"\"&temp(1))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&temp(0)&"\"&temp(1))
	if y>1 then
      Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsnews(0)&request.form("FileName")&"-"&y&".html")
	else
	  Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsnews(0)&request.form("FileName")&".html")	 
	end if
    session("FilePath")="<font color=red>新闻文件名：</font><a href=../"&rsnews(0)&FileName&".html target=_blank>"&FileName&".html</a><br>"
    '-----相关新闻处理开始
	set rshtml=Server.CreateObject("adodb.recordset")
    sqlKey="Select * from News Where Keyword like '%"&request.form("Keyword")&"%' and classen='"&request.Form("ClassEN")&"' order by Date Desc"
    rshtml.open sqlKey,conn,1,1
    for i=1 to rs1("MNCount")
      if rshtml.eof then exit for
	  if rshtml("title")=request.form("Title") then
        rshtml.MoveNext
	  end if
	  if rshtml.eof then exit for
	  if rshtml("BiaotiNews")=true then
	  correlation=correlation+""&rs1("MNTitle")&"<a href= "&rshtml("UBiaotiNews")&" target=_blank>"&BTitle(rshtml("title"))&"</a><br>"
	  else
      correlation=correlation+""&rs1("MNTitle")&"<a href= http://"&sowinpath&rshtml("lpath")&rshtml("FileName")&".html target=_blank>"&BTitle(rshtml("title"))&"</a><br>"
	  end if
      rshtml.MoveNext
    next
    Templet=replace(Templet,"[correlation]",""&correlation&"")
    Templet=replace(Templet,"[review]","<form method=post action=http://"&sowinpath&"add_review.asp><input type=hidden Name=FileName value="&request.form("FileName")&">共有评论：<font color=red><script src=http://"&sowinpath&"reviewcount.asp?filename="&filename&"></script></font>篇   "&replace(rs1("ReviewCSS"),"[morereview]","<a href="&request.form("Filename")&".asp target=_blank>查看评论</a>")&"</form>")
	Templet=replace(Templet,"[Sendmail]","<a href=../../sendmail.asp?filename="&filename&" target=_blank>发送给好友</a>")
	CrFi.Writeline(""&Templet&"")
    rsnews.close
    set rsnews=nothing
    rshtml.close
    set rshtml=nothing
    rs.close
    set rs=nothing
    rs1.close
    set rs1=nothing
    CrFi.close
	set MyFile=nothing
	else
	session("FilePath")="<font color=red>新闻文件名：</font><a href="&request.Form("UBiaotiNews")&" target=_blank>"&Request.Form("Title")&"</a><br>"
	end if
  End Sub

 '---------------------生成小类栏目调用新闻开始
  Sub CrIndexJs()
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="Select * from newsClass Where ClassCN='"&request.form("ClassCN")&"'"
    rs1.open sql1,conn,1,1
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select * from News Where ClassCN='"&request.form("ClassCN")&"' order by "&rs1("OrderRule")&" Desc"
    rs.open sql,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    Set CrJS=MyFile.CreateTextFile(Server.MapPath("..")&"\ClassJS\"&request.form("ClassEN")&"01.js")
	str="document.write('" 
    set rscon=Server.CreateObject("adodb.recordset")
    sqlcon="Select * from Config"
    rscon.open sqlcon,conn,1,1
    ShowPic1=rscon("ShowPic")
    rscon.close
    set rscon=nothing
    for i=1 to rs1("IndexJSCount")
	  if rs.eof then exit for
	  if len(rs("title"))>rs1("TitleNumber") then
	    title=gotTopic(rs("title"),rs1("TitleNumber"))
	  else
	    title=rs("title")
	  end if
	  ShowPic=""
	  if instr(1,rs("content"),"<img",1)<>0 then ShowPic=ShowPic1
      if rs1("TitleDate") then
	    if rs1("GDate")=2 then
		   if rs("BiaotiNews")=true then
		   str = str & ""&rs1("TitlePic")&"<a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&Month(rs("date"))&"/"&Day(rs("date"))&"</font><br>"
		   else
		   str = str & ""&rs1("TitlePic")&"<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&Month(rs("date"))&"/"&Day(rs("date"))&"</font><br>"
		   end if
		end if
		if rs1("GDate")=1 then
		   if rs("BiaotiNews")=true then
		   str = str & ""&rs1("TitlePic")&"<a href="&rs("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&rs("date")&"</font><br>"
		   else
		   str = str & ""&rs1("TitlePic")&"<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<font color="&rs1("DateColor")&" size="&rs1("DateSize")&">"&rs("date")&"</font><br>"
		   end if
		end if
      else
	    if rs("BiaotiNews")=true then
		str = str & ""&rs1("TitlePic")&"<a href="&rs("UBiaotiNews")&".html target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<br>"
		else
        str = str & ""&rs1("TitlePic")&"<a href=http://"&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(title)&"</a>"&ShowPic&"<br>"
        end if
	  end if
      rs.movenext
    next
    if rs.recordcount>rs1("IndexJSCount") then
      str = str & "<div align=right><a href=http://"&sowinpath&"Class/"&request.form("ClassEN")&"/"&request.form("ClassEN")&"01.html target=_blank>"&rs1("MorePic")&"</a></div>"
    end if
	str=str & "')"
    rs.close
	set rs=nothing
    rs1.close
	set rs1=nothing
	CrJs.Write str
    CrJs.close
	set MyFile=nothing