admin_newstojssave.asp

新闻发布系统

<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<%
'=========================================================
'产品目录：风讯产品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)
'=========================================================
   Copyright="\n\n Copyrights Foosun Computer System studios"
   Domain=Request.ServerVariables("SERVER_NAME")
   soFilePath=Request.ServerVariables("PATH_INFO")
   soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
   totoln=len(soFilePath)
   soFilePath=lcase(left(soFilePath,totoln-1))
   soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
   sowinpath="http://"+Domain&soFilePath
	
	function CovtTitle(content)
  if content<>"" then
        CovtTitle=content
	CovtTitle=replace(CovtTitle,"[粗]","<b>")
	if instr(1,CovtTitle,"<b>",1)<>0 then CovtTitle=CovtTitle+"</b>"
	CovtTitle=replace(CovtTitle,"[红]","<font color=ff0000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[蓝]","<font color=blue>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[绿]","<font color=green>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[紫]","<font color=990099>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[酱]","<font color=790000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[橙]","<font color=FF6600>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[建议]","<font color=red>[建议]</font>")
	CovtTitle=replace(CovtTitle,"[注意]","<font color=red>[注意]</font>")
	CovtTitle=replace(CovtTitle,"[下载]","<font color=red>[下载]</font>")
	CovtTitle=replace(CovtTitle,"[公告]","<font color=red>[公告]</font>")
	CovtTitle=replace(CovtTitle,"[转载]","<font color=red>[转载]</font>")
	CovtTitle=replace(CovtTitle,"[焦点]","<font color=red>[焦点]</font>")
	CovtTitle=replace(CovtTitle,"[社会]","<font color=red>[社会]</font>")
	CovtTitle=replace(CovtTitle,"[推荐]","<font color=red>[推荐]</font>")
	CovtTitle=replace(CovtTitle,"[原创]","<font color=red>[原创]</font>")
  end if
  End function
  function BTitle(content)
  if content<>"" then
    BTitle=content
    BTitle=replace(BTitle,"[粗]","")
    BTitle=replace(BTitle,"[红]","")
    BTitle=replace(BTitle,"[蓝]","")
    BTitle=replace(BTitle,"[绿]","")
    BTitle=replace(BTitle,"[紫]","")
    BTitle=replace(BTitle,"[酱]","")
    BTitle=replace(BTitle,"[橙]","")
  end if
  End function

  if request.form("WordNews")<>"" then
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="select * from JSFile where FileName='"&request.form("FileName1")&"' and JSName='"&request.form("WordNewsName")&"'"
    rs1.open sql1,conn,3,3
    session("errormsg")=""
    if not rs1.eof then session("errormsg")="JS列表已存在此条新闻，请另选其它的JS列表"    
    if session("errormsg")="" then
      set rs3=Server.CreateObject("adodb.recordset")
      sql3="Select * from JS where Type='文字新闻' and JSNameCN='"&request.form("WordNewsName")&"'"
      rs3.open sql3,conn,1,1
      IndexCount=rs3("IndexCount")
      rs3.close
      set rs3=nothing
      set rs2=Server.CreateObject("adodb.recordset")
      sql2="select * from JSFile where JSType='文字新闻' and JSName='"&request.form("WordNewsName")&"'"
      rs2.open sql2,conn,3,3
      if not rs2.eof then rs2.movefirst
      if rs2.recordcount>=IndexCount then rs2.delete:rs2.update
      set rs=Server.CreateObject("adodb.recordset")
      sql="select * from News Where FileName='"&request.form("FileName1")&"'"
      rs.open sql,conn,1,1
      ClassCN=rs("ClassCN")
      ClassEN=rs("ClassEN")
      rs1.addnew
      rs1("Title")=rs("title")
      rs1("ClassEN")=rs("ClassEN")
      rs1("ClassCN")=rs("ClassCN")
      rs1("lpath")=rs("lpath")
      rs1("FileName")=rs("FileName")
      rs1("Date")=rs("Date")
      rs1("JSType")="文字新闻"
      rs1("JSName")=request.form("WordNewsName")
      rs1.update
      rs.close
      set rs=nothing
    end if
    rs1.close
    set rs1=nothing
    Call WordNews
    Call result
  elseif request.form("PhotoNews")<>"" then
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="select * from JSFile where FileName='"&request.form("FileName2")&"' and JSName='"&request.form("PhotoNewsName")&"'"
    rs1.open sql1,conn,3,3
    session("errormsg")=""
    if not rs1.eof then session("errormsg")="JS列表已存在此条新闻，请另选其它的JS列表"
    if request.form("PhotoPath")="" then session("errormsg")="图片新闻必须填写图片的路径"
    if session("errormsg")="" then
      set rs3=Server.CreateObject("adodb.recordset")
      sql3="Select * from JS where Type='图片新闻' and JSNameCN='"&request.form("PhotoNewsName")&"'"
      rs3.open sql3,conn,1,1
      IndexCount=rs3("IndexCount")
      PhotoCSS=rs3("PhotoCSS")
      rs3.close
      set rs3=nothing
      set rs2=Server.CreateObject("adodb.recordset")
      sql2="select * from JSFile where JSType='图片新闻' and JSName='"&request.form("PhotoNewsName")&"'"
      rs2.open sql2,conn,3,3
      if not rs2.eof then rs2.movefirst
      if rs2.recordcount>=IndexCount then rs2.delete:rs2.update
      set rs=Server.CreateObject("adodb.recordset")
      sql="select * from News Where FileName='"&request.form("FileName2")&"'"
      rs.open sql,conn,1,1
      ClassCN=rs("ClassCN")
      ClassEN=rs("ClassEN")
      rs1.addnew
      rs1("Title")=rs("title")
      rs1("ClassEN")=rs("ClassEN")
      rs1("ClassCN")=rs("ClassCN")
      rs1("lpath")=rs("lpath")
      rs1("FileName")=rs("FileName")	  
      rs1("Date")=rs("Date")
      rs1("JSType")="图片新闻"
      rs1("JSName")=request.form("PhotoNewsName")
      rs1("PhotoPath")=request.form("PhotoPath")
      rs1.update
      rs.close
      set rs=nothing
    end if
    rs1.close
    set rs1=nothing
    select case PhotoCSS
    case "CSS1" Call CSS1
    case "CSS2" Call CSS2
    case "CSS3" Call CSS3
	case "CSS4" Call CSS4
    end select
    Call result
  End if

  Sub WordNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="select * from JSFile where JSType='文字新闻' and JSName='"&request.form("WordNewsName")&"'"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select IndexCount,JSNameEN from JS where Type='文字新闻' and JSNameCN='"&request.form("WordNewsName")&"'"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\Otherjs\"&rs3("JSNameEN")&".js")
    set CrHNHt=MyFile.CreateTextFile(Server.MapPath("..")&"\Otherjs\"&rs3("JSNameEN")&".htm")
    CrHNHt.WriteLine("<script src="&rs3("JSNameEN")&".js></script>")
    for i=1 to rs3("IndexCount")
      if rs.eof then exit for
      Content="<a href="&sowinpath&rs("lpath")&rs("FileName")&".html target=_blank>"&CovtTitle(rs("Title"))&"</a><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing