admin_logdel.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")="delnews" 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 [log] where l_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_log.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 [log] where l_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs("u_id")<>session("u_id") then
    errmsg=errmsg++"<br>"+"<li>操作非法！"
	call diserror()
	response.end
end if
%>
      <table width="80%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#000000" style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_logdel.asp">
          <tr> 
            <td align="center" bgcolor="#E8E8E8"><a name="delart" id="delaty" style="color: #FF0000"><span style="font-size: 9pt">删除故事</span></a></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"><span style="font-size: 9pt">标题</span>- <%=rs("l_title")%></td>
          </tr>
         
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"><%=ubb2html(formatStr(autourl(rs("l_content"))), true, true)%> 　</td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除"> 
              <span style="font-size: 9pt">[<a href="admin_log.asp">返回</a>]</span> </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("l_id")%>">
          <input type="hidden" name="action" value="delnews">
        </form>
</table>
<%rs.close
set rs=nothing%>
	  <%end if%>