msg_sort_save.asp

本系统旨在帮助您快速建立自己的WEB短信平台

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="cook.asp"-->
<%dim msgsort

if request("action")="add" then
msgsort=request("msgsort")
if msgsort="" then
	response.write "<script>alert('对不起，分类不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from es_msgsort" 
rs.open sql,conn,1,3
rs.AddNew
rs("es_msgsort")=msgsort
rs.Update
rs.Close
set rs=nothing
Response.Redirect "msg_sort.asp"
end if

if request("action")="edit" then
msgsort=request("msgsort")
if msgsort="" then
	response.write "<script>alert('对不起，分类不能为空！');history.go(-1);</Script>"
	Response.End 
end if
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from es_msgsort where id="&request("id")
rs.open sql,conn,1,3
rs("es_msgsort")=msgsort
rs.Update
rs.Close
set rs=nothing
Response.Redirect "msg_sort.asp"
end if

if request("action")="aa" then
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from es_msgsort where id="&request("id")
rs.open sql,conn,1,3
rs("es_date")=now()
rs.Update
rs.Close
set rs=nothing
Response.Redirect "msg_sort.asp"
end if%>