admin_messagedel.asp

mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

<!--#include file="include/conn.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<%
if request.Form("action")="delmessage" then
if request.Form("id")="" then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
 else
  if not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的id参数。"
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from message where m_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
response.write"<script>alert(""删除成功，确认！"");location.href=""admin_message.asp"";</script>"
else%>

<% if request.querystring("id")="" then
           errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
           call diserror()
           response.end
  else
      if not isinteger(request.querystring("id")) then
           errmsg=errmsg+"<br>"+"<li>非法的id参数。"
	       call diserror()
	       response.end
      end if
  end if
sql="select * from message where m_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<span style="font-size: 9px"> </span>
<form name="form1" method="post" action="admin_messagedel.asp">
         <TABLE bgcolor="#000000" align=center border=0 cellPadding=0 cellSpacing=1 width=80% borderColor="#336666" >
             <tr>
               <td height="20" align="center" bgcolor="#FFFFFF" colspan="2"><span style="color: #FF0000; font-size: 9pt;">编号为<span style="color: #000000; font-size: 9pt;"><%=rs("m_id")%></span>的留言信息详单</span></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span  style="color: #009999; font-size: 9pt;">主题：</span><%=rs("m_title")%></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span style="color: #009999; font-size: 9pt;">姓名：</span><%=rs("m_name")%></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span  style="color: #009999; font-size: 9pt;">电话：</span><%=rs("m_tell")%></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span style="color: #009999; font-size: 9pt;">QQ：</span><%=rs("m_qq")%></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span  style="color: #009999; font-size: 9pt;">邮箱：</span><%=rs("m_email")%></td>
             </tr>
             <tr>
               <td height="20" bgcolor="#FFFFFF" colspan="2"><span  style="color: #009999; font-size: 9pt;">主页：</span><%=rs("m_page")%></td>
             </tr>
             <tr>
               <td width="15%" height="20" align="left" valign="middle" bgcolor="#FFFFFF" id=qq_595911><span style="color: #009999; font-size: 9pt;">留言内容：</span><br></td><td width="85%" bgcolor="#FFFFFF"><%=ubb2html(formatStr(autourl(rs("m_content"))),true,true)%></td>
             </tr>      
         </table>
		 <TABLE bgcolor="#000000" align=center border=0 cellPadding=0 cellSpacing=1 width=80% borderColor="#336666" >
		     <tr><td align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="button" id="Submit" value="确认删除">
		     <span style="font-size: 9pt">[<a href="admin_message.asp">返回</a>]</span></td>
		     </tr>
		 </table>
          <input type="hidden" name="id" value="<%=rs("m_id")%>">
          <input type="hidden" name="action" value="delmessage">
</form>
<%rs.close
set rs=nothing%>
<%end if%>