news_ok.asp

来自「狼道公司源码下载」· ASP 代码 · 共 46 行

<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->

<%
     act=Request("act")
     Flag=Request("Flag")
     FlagHot=Request("FlagHot")	 
	 FlagLan=Request("FlagLan")	
     Title=Request("Title")
	 Content=Request("Content")
	 ID=Request("ID")
	 

select case act
   case "mod"
		 Set rs=server.CreateObject("adodb.recordset")
		 rs.open "select * from News where ID="&ID,Conn,3,3
			rs("Title")=Title
			Rs("Flag")=Flag
			Rs("FlagHot")=FlagHot
			Rs("FlagLan")=FlagLan
			rs("Content")=Content
			Rs("UpdateTime")=Date()
		 rs.update
		 rs.close
		 Set rs=nothing
   case "add"
	    Set rs=server.CreateObject("adodb.recordset")
	    rs.open "select * from News where ID is null",Conn,3,3   
		rs.addnew
			rs("Title")=Title
			Rs("Flag")=Flag
			Rs("FlagHot")=FlagHot
			Rs("FlagLan")=FlagLan
			rs("Content")=Content
			Rs("UpdateTime")=Date()
		 rs.update
		 rs.close
		 Set rs=nothing
   case "del"
	  Conn.Execute("delete from News where ID="&ID)   	  
end select

Response.Redirect("News.asp")

%>