admin_newssave.asp

新闻发布系统

  End Sub
 '---------------------生成大类js调用新闻开始
  Sub CrBigClassJS()
    Set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from newsClass where ClassCN='"&request.form("ClassCN")&"'"
    rs.open sql,conn,1,1
    if rs("depth")>0 then
	  sql1="select * from newsclass where id in ("&rs("parentstr")&")"
    else
      rs.close
      set rs=nothing
      exit sub
    end if
    rs.close
    rs.open sql1,conn,1,1
    do while not rs.eof
    set rs1=Server.CreateObject("adodb.recordset")
    childtemp=getchild(rs("id"))
    sql1="Select * from news Where ClassCN in ("&childtemp&") order by Date Desc"
    rs1.open sql1,conn,1,1     
    set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    Set CrBCJS=MyFile.CreateTextFile(Server.MapPath("..")&"\ClassJS\"&rs("ClassEN")&"_1.js")
	str="document.write('" 
    for i=1 to rs("iNews")
      if rs1.eof then exit for
	     if len(rs1("title"))>rs("Ttitle") then
	       title=gotTopic(rs1("title"),rs("Ttitle"))&"."
	     else
	      title=rs1("title")
	     end if
		 if rs("Tdate")=2 then
		    if rs1("BiaotiNews")=true then
			str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href="&rs1("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a><br>"
		    else
            str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href=http://"&sowinpath&rs1("lpath")&rs1("FileName")&".html target=_blank>"&CovtTitle(title)&"</a><br>"
		    end if
		 end if
		 if rs("Tdate")=1 then
		 if rs("GDate")=2 then
		    if rs1("BiaotiNews")=true then
			  str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href="&rs1("UBiaotiNews")&" target=_blank>"&CovtTitle(title)&"</a>["&Month(rs1("date"))&"/"&Day(rs1("date"))&"]<br>"
			else
		      str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href=http://"&sowinpath&rs1("lpath")&rs1("FileName")&".html target=_blank>"&CovtTitle(title)&"</a>["&Month(rs1("date"))&"/"&Day(rs1("date"))&"]<br>"
			end if  
		 else
		     if rs1("BiaotiNews")=true then
			 str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href="&rs1("UBiaotiNews")&" target=_blank>"&CovtTitle(Title)&"</a><font color="&rs("TColor")&" size="&rs("Datesize")&">["&rs1("date")&"]</font><br>"
			 else
             str = str & "[<a href=http://"&sowinpath&"Class/"&rs1("ClassEN")&" target=_blank>"&rs1("ClassCN")&"</a>]"&rs("DirPic")&"<a href=http://"&sowinpath&rs1("lpath")&rs1("FileName")&".html target=_blank>"&CovtTitle(Title)&"</a><font color="&rs("TColor")&" size="&rs("Datesize")&">["&rs1("date")&"]</font><br>"
		     end if
	     end if
		 end if
        rs1.movenext
    next
    rs.movenext
    loop
	str=str & "')"
	CrBCJS.Write str
    rs.close
    rs1.close
    set rs=nothing
    set rs1=nothing
	set MyFile=nothing
	CrBCJS.close
  End Sub
'-------------------删除新闻开始
  Sub Del()
    session("FilePath")=""
    Num=request.form("DelID").count
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    for i=1 to Num
      set rs=Server.CreateObject("adodb.Recordset")
      sql="Select * from News where NewsID="&request.form("DelID")(i)
      rs.open sql,conn,1,1
      FileName=rs("FileName")
      lpath=rs("lpath")
      rs.close
      set rs=nothing
      conn.execute("Delete From News Where NewsID="&request.form("DelID")(i))
      conn.execute("Delete From Review Where FileName='"&FileName&"'")
      if MyFile.FileExists(Server.MapPath("..")&"\"&lpath&FileName&".html") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&lpath&FileName&"*.html")
      end if
      if MyFile.FileExists(Server.MapPath("..")&"\"&lpath&FileName&".asp") then
        MyFile.DeleteFile(Server.MapPath("..")&"\"&lpath&FileName&".asp")
      end if
    next
	set MyFile=nothing
  End Sub
  Sub Warn()
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body>
<form method=post action=admin_NewsManage.asp?ClassCN=<%=request.form("ClassCN")%>>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center background=pic/err_bg1.gif border=0>
    <TBODY>
      <TR> 
        <TD width=10 height=23><IMG height=23 src="pic/err1.gif" width=24 border=0></TD>
        <TD width=348 height=23>&nbsp;<b>
          <%
           if session("errormsg")<>"" then
	     response.write("操作错误")
	   else
	     response.write result
	   end if
	  %>
          </b></TD>
        <TD vAlign=baseline width=37 height=23 align=right>&nbsp;</TD>
        <TD width=5 height=23><IMG height=23 src="pic/err2.gif" width=5 border=0 name=errr1_c4></TD>
      </TR>
    </TBODY>
  </TABLE>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center border=0>
    <TBODY>
      <TR vAlign=bottom> 
        <TD background=pic/err_bg.gif height=120> <BLOCKQUOTE> 
            <DIV id=base> 
              <font color=red><%=session("errormsg")%></font> 
              <% if session("errorMsg")<>"" then %>
              <br>
                       <input name="button" type="button" onclick="javascript:history.back()" value=" 返 回 " class=Anbutc>
              <br>
              <br>
              <% else  %>
              <br>
              按返回"新闻管理"<br>
              <%=session("FilePath")%> <%=session("source")%> <%=session("author")%> 
              <%=session("Keyword")%> 　 <br>
              <A href="admin_NewsModify_f1.asp?ClassCN=<%=request.form("ClassCN")%>&ClasseN=<%=request.form("ClasseN")%>"> 
              <img src="pic/err_but4.gif" width="73" height="20" border="0"></A>　<a href="Admin_AddQu.asp"><img src="pic/err_but5.gif" width="73" height="20" border="0"></a>　<a href="admin_NewsAdd.asp?ClassCN=<%=request.form("ClassCN")%>"><img src="pic/err_but3.gif" width="73" height="20" border="0"></a><br>
              <br>
              <a href="Admin_RefreshClass.asp">是否现在生成分类?</a> 
              <% end if %>
            </DIV>
          </BLOCKQUOTE>
          </TD>
      </TR>
      <TR> 
        <TD height=2><IMG height=5 src="pic/err_bot.gif" width=400></TD>
      </TR>
    </TBODY>
  </TABLE>
  <p>&nbsp;</p>
</form>
</body>
<% end Sub %>
<%
    result=request.querystring("result")
    select case result
    case "ADD"
      Call CheckText      
      Call Add
      call checknews
      Call Pagination("CreateHtml")
      Call CrIndexJs
      Call HotNews
      Call RecommendNews
      Call CrBigClassJS
	  Call LastNews
	  Call special
	  Call specialmore
	  Call Topjs
	  Call marquee
      result="添加新闻成功"
      Call Warn
    case "Modify"
      Call CheckText      
      Call Modify
      Call Pagination("ModifyHtml")
      Call CrIndexJs
      Call HotNews
      Call RecommendNews
      Call CrBigClassJS
	  Call LastNews
	  Call special
	  Call specialmore
	  Call Topjs
	  Call marquee
      result="修改新闻成功"
      Call Warn
    case "kimove"
	 if request.Form("Newsaction")="NewsDel" then
      Call Del
      Call CrIndexJs
      Call HotNews
      Call RecommendNews
      Call CrBigClassJS
	  Call LastNews
	  Call special
	  Call specialmore
	  Call Topjs
	  Call marquee
   result="删除新闻成功！"	 
      Call Warn
	elseif request.Form("Newsaction")="Move" then
	  Call CheckMove
	  Call MoveNews
      Call HotNews
      Call RecommendNews
	  Call CrBigClassJS
	  result="转移新闻成功[转移新闻后，需要刷新栏目]"
	  Call Warn
	else
	  Response.write"<script>alert(""请选择需要执行的操作！"");location.href=""javascript:history.back()"";</script>"
      Response.end
	  Call Warn
	  end if
    end select
%>