newssave.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 52 行

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../cook.asp"-->
<%if fla5<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if%>
<%title=request("title")
news=request("news")
ly=request("ly")
addr=request("addr")
newssort=request("newssort")

page=request("page")
if page="" then page=1

if request("action")="add" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news"
rs.open sql,conn,1,3
rs.addnew
rs("SMT_title")=title
rs("SMT_news")=news
rs("SMT_ly")=ly
rs("SMT_addr")=addr
rs("SMT_key")=1
rs("SMT_key1")=1
rs("SMT_key2")=1
rs("SMT_yp_id")=0
rs("SMT_enrol")=2
rs("SMT_newssort")=newssort
rs.update
rs.close
set rs=nothing
response.redirect"news_add.asp"

elseif request("action")="edit" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_title")=title
rs("SMT_news")=news
rs("SMT_ly")=ly
rs("SMT_addr")=addr
rs("SMT_key1")=1
rs("SMT_key2")=1
rs("SMT_newssort")=newssort
rs.update
rs.close
set rs=nothing
Response.Redirect "news.asp?page="&page
end if%>