newssave_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 34 行

<%
	Dim Action,ID,rs,NewsTitle,NewsName,orderID,NewsContent,NewsDate,ReturnUrl
	
	Action=sqlchg(Request.QueryString("action"))
	ID=sqlcheck(Request.QueryString("ID"))
	
	NewsTitle=Request.Form("NewsTitle")              	'新闻名称
	NewsName=Request.Form("NewsName")              		'发布人
	orderID=Request.Form("orderID")						'排序号
	NewsContent=Request.Form("NewsContent")				'新闻内容
	NewsDate=Now()										'添加时间
	ReturnUrl="newsManage.asp"							'返回路径
	
		If Action="add" then 
			call CheckType(5)
			conn.execute("Insert into News (NewsTitle,NewsName,orderID,NewsContent,NewsDate) values ('"&NewsTitle&"','"&NewsName&"','"&orderID&"','"&NewsContent&"','"&NewsDate&"')")
			Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
			Response.End()
		End if
		
		If Action="edit" then 
			call CheckType(6)
			conn.execute("Update News set NewsTitle='"&NewsTitle&"',NewsName='"&NewsName&"',orderID='"&orderID&"',NewsContent='"&NewsContent&"' where NewsID="&ID&"")
			Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
			Response.End()
		End if
		
		If Action="del" then 
			call CheckType(7)
			conn.execute("Delete from News where NewsID="&ID&"")
			Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
			Response.End()
		End if
%>