WEB(ASP,PHP,...)

Development Platform:

HTML/CSS

Deal_msg.asp：Code Content

							<!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../Ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/inc.asp"-->
<!-- #include file="Session.asp"-->
<%
if request("action")="del" then
if Trim(Request("ID"))="" then
	FoundErr=True
	Message=Message & "<li>请您选择要删除的信息！</li>"
else
	call Del()
end if
if FoundErr<>True then
	Sub Del()
		'删除信息
		sql = "delete from ku_msg where ID in ("& Trim(Request("ID")) &")"
		conn.execute (sql)
	End Sub
	'成功提示	   
	call performMsgmsg("操作成功！","")
end if
if FoundErr=True then
	call ErrMsg(Message)
end if
end if
%>
<%
if request("action")="huifu" then
if Trim(Request("ID"))="" then
	FoundErr=True
	Message=Message & "<li>请您选择要操作的信息！</li>"
else
	call strPeak()
end if
if FoundErr<>True then
	Sub strPeak()
		adoSQL="update ku_msg set huifu=1 where ID=" & Trim(Request("ID")) & ""
		conn.execute(adoSQL)
	End Sub
	'成功提示	   
	call performMsgmsg("操作成功！","")
end if
if FoundErr=True then
	call ErrMsg(Message)
end if
end if
%>

						