action.asp

来自「功能介绍： 文章管理」· ASP 代码 · 共 30 行

 <!--#include file="../function/tablefunction.asp" -->


  <%
	dim action,Messageid,msmax
	set msmax=new myclass
	action=request.querystring("action")
	Messageid=request.querystring("Messageid")
	
	if action="delMessage" then
		DelRs=msmax.DelRecord("message","Messageid",Messageid,"message_edit.asp?pageno="&session("pageno"))
	end if	
%>
	
		
	<%
		'------------------------按钮删除记录
		if action="butdel" then
			messageid=request.form("myselect")
			messageid=Replace(messageid," ","")			
			strsql="delete from message where messageid in (" & messageid & ")"
			'Response.Write strSql
			db.execute(strsql)			
			'response.write articleid
			response.redirect "message_edit.asp?pageno="&session("pageno")
		end if
		
	%>