<%
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/char.asp"-->
<!--#include file="../inc/const.asp"-->
<%
	dim id
	dim newsname
	dim newsnote
	dim sql
	dim rs
	dim founderr
	founerr=false
	'if trim(request.form("newsname"))="" then
  	'	founderr=true
  	'	errmsg="<li>新闻名称不能空</li>"
	'end if
	if trim(request.form("newsnote"))="" then
  		founderr=true
  		errmsg=errmsg+"<li>新闻内容不能为空</li>"
	end if
	if founderr=false then
	'	newsname=request("newsname")		
		newsnote=htmlencode2(request("newsnote"))
		
	set rs=server.createobject("adodb.recordset")
	if request("action")="add" then
		call newsoft()
	elseif request("action")="edit" then
		call editsoft()
	end if
sub newsoft()
	sql="select * from njnews where (id is null)" 
	rs.open sql,conn,1,3
	rs.addnew
	'rs("newsname")=newsname	
	rs("newsnote")=newsnote
	rs("addtime")=date()
	rs.update
end sub
sub editsoft()
	sql="select * from njnews where id="&request("id")
	rs.open sql,conn,1,3
	'rs("newsname")=newsname	
	rs("newsnote")=newsnote
	'rs("lasthits")=date()
	rs.update
end sub

	if makejs=1 then
		UpdateJs(news)
	end if
	set rs=nothing
	conn.close
	set conn=nothing
%>
<html>

<head>
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">

</head>

<body bgcolor="#800000">
<br><br>
  
<table width="50%" border="0" cellpadding="3" cellspacing="1" align="center">
  <tr>
    
<td width="100%" height="20" bgcolor="#008000">
<p align="center"><font color="#FFFFFF">
 <%if request("action")=add then%>
 添加
 <%else%>
 修改
 <%end if%>
 程序成功</font>
</td>
  </tr>
  <tr>
    
<td width="100%" bgcolor="#008000">
<p align="left"><br>
   
<font color="#FFFFFF">
   
    新闻内容为：<%=newsnote%></font></p>
<font color="#FFFFFF">
    您可以进行其他操作</font>
    </td>
  </tr>
</table>
<%
else
 response.write "由于以下的原因不能保存数据："
 response.write errmsg
end if
%>

</body>
</html>
