admin_newssave.asp

本文通过分析国内外网上购物系统的发展现状

<!--#include file="Admin_function.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../char.asp"-->
<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<%
action=request("action")
News_Id=Request("News_Id")
News_Type=Request("News_Type")
News_Title=Trim(Request.Form("News_Title"))
News_Author=Request.Form("News_Author")
News_Best=Request.Form("News_Best")
News_Images=Trim(Request.Form("News_Images"))
News_Content=htmlencode(Request.Form("News_Content"))
if News_Best and News_Images="" then
	errmsg="<li>只有图片新闻才可以首页推荐"
	founderr=true
end if
if founderr=true then
	call error()
	Response.End
else
			  set rs=server.createobject("adodb.recordset")
	select case (action)
		case "add"  call add()
		case "edit" call edit()
	end select
end if

sub add()
sql="select News_Title,News_Type,News_Author,News_Best,News_Images,News_Content from News where (News_Id IS NULL)" 
rs.open sql,conn,1,3
rs.addnew
rs("News_Title")=News_Title
rs("News_Type")=News_Type
if News_Author<>"" then
rs("News_Author")=Trim(request.form("News_From"))&News_Author
end if
rs("News_Images")=News_Images
if News_Best then
	rs("News_Best")=now()
else
	rs("News_Best")=null
end if
rs("News_Content")=News_Content
rs.update
rs.close
end sub

sub edit()
sql="select News_Title,News_Author,News_Best,News_Images,News_Content from News where News_Id="&News_Id

rs.open sql,conn,1,3
if not rs.EOF then
rs("News_Title")=News_Title
rs("News_Author")=News_Author
rs("News_Images")=News_Images
if News_Best then
	rs("News_Best")=now()
else
	rs("News_Best")=null
end if
rs("News_Content")=News_Content
rs.update
rs.close
end if
end sub

Response.Redirect "Admin_Newsmana.asp?News_Type="&News_Type
set rs=nothing
conn.close
set conn=nothing
%>