pud_bclass.asp

网站的后台管理代码......内容比较全面....新手比较适合

<%
'====================================================================
'
'           中国企业平台后台管理系统  版权所有:中国企业平台
'
'                公司网址 http://www.cnept.net
'
'                        版权所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%

if request("action")="del" then
sql="delete * from nbigarea where id="&request("id")
conn.execute sql
sql="delete * from nsmallarea where nbigarea="&request("id")
conn.execute sql
sql="delete * from pud where nbigarea="&request("id")
conn.execute sql
end if

if request("action")="add" then

set rs=server.CreateObject("adodb.recordset")
sql="select * from nbigarea order by num desc"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
   num=rs("num")+1
else
   num=1
end if
rs.addnew
rs("num")=num
rs("nbigarea")=request("nbigarea")
rs.update
rs.close
set rs=nothing
end if


if request("action")="modi" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from nbigarea where id="&request("id")
rs.open sql,conn,1,3
rs("nbigarea")=request("nbigarea")
rs.update
rs.close
set rs=nothing

end if
%>
<%
if session("admin_name")="" then 
response.end
end if%>
<script language="javascript">
var lsdz = "";
function checkIn()
   {if(confirm("警告：删除此类将删除其所有子类及信息?"))
      return true
   else 
      return false;
}
</script>
<div align="center"> 
  <p><br>
  </p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <table width="450" border="1" cellpadding="1" bordercolor="#999999">
    
    <tr bgcolor="#666699"> 
      <td width="267" height="21" background="../images/pics/tile_sub.gif"><strong><font color="#FFFFFF">类别名称</font></strong></td>
      <td width="167" background="../images/pics/tile_sub.gif" bgcolor="#FFCC00"><strong><font color="#FFFFFF">操作</font></strong></td>
    </tr>
    <%
		set rs=server.createobject("adodb.recordset")
		sql="select * from nbigarea order by num asc "
	rs.open sql,conn,1,1
    i=0
	do while not rs.eof 
          i=i+1
	%>
    <tr> 
      <td><%=rs("nbigarea")%></td>
      <td align="center"><a href="pud_bclass.asp?action=rename&id=<%= rs("id") %>">修改</a><a href="pud_bclass.asp?action=del&id=<%= rs("id") %>" onClick="return checkIn();"> 删除 </a></td>
    </tr>
    <%
rs.movenext
loop

%>
  </table>
  <br>
  <form name="dataform" method="post" action="pud_bclass.asp" >
  <%
  if request("action")="rename" then
  set rec=conn.execute("select * from nbigarea where id="&request("id"))
	nbigarea=rec("nbigarea")
	action="modi"
	id=rec("id")
 rec.close
 set rec=nothing
	else
	action="add"
  end if
  
  
  
  
  %>
  
  
  
  
    <table width="624" border="1" cellpadding="1" bordercolor="#999999">
      <tr bgcolor="#666699"> 
        <td height="21" colspan="3" background="../images/pics/tile_sub.gif" bgcolor="#FFCC00"><strong><font color="#FFFFFF">添加/修改</font></strong></td>
      </tr>
      <tr> 
        <td width="126">名称</td>
        <td width="360"><input name="nbigarea" type="text" id="nbigarea" size="40" value="<%=nbigarea%>"></td>
        <td width="116"><input type="submit" name="Submit" value="提交" > 
          <input name="action" type="hidden" id="action" value="<%=action%>"> 
          <input name="id" type="hidden" id="id" value="<%=id%>"></td>
      </tr>
    </table>
  </form>
  <p>&nbsp;</p>
</div>
</BODY></HTML>