msg_delete.cgi

学生信息系统,这个程序设置非常简单

$pagetitle="删除短消息";
&error("没有选择要删除的短消息！") if (!$fields{'msg'});
sub msg_delete {
@deldata =split(/§/,$fields{'msg'});
	foreach (@deldata) {
		do "$cgihead/writeumsg.cgi";&dmsg("$_");
	}
&redirect("$indexurl?job=msg_inbox$userinfo","删除指定消息成功！");
}