pud_sclass.asp

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

<%
'====================================================================
'
'           中国企业平台后台管理系统  版权所有:中国企业平台
'
'                公司网址 http://www.cnept.net
'
'                        版权所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if session("admin_name")="" then 
response.end
end if%>
<%
nbigarea=request("nbigarea")
if nbigarea="" then
set rs=conn.execute("select id from nbigarea ")
if not (rs.eof and rs.bof) then
   nbigarea=rs("id")
else
   response.write "请先添加信息大类"
   response.end
end if
rs.close
set rs=nothing
end if


if request("action")="del" then
sql="delete * from nsmallarea where id="&request("id")
conn.execute sql
'xiaofeng 2006-03-01
'sql="delete * from nleastarea where nsmallarea="&request("id")
'conn.execute sql

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


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

set rs=server.CreateObject("adodb.recordset")
sql="select * from nsmallarea 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("nsmallarea")=request("nsmallarea")
rs("pailie")=request("pailie")
rs("lianjie")=request("lianjie")
rs.update
rs.close
set rs=nothing

end if

if request("action")="tuijian" then
sql="update nsmallarea set tuijian=true where id="&request("id")
conn.execute sql

end if
if request("action")="butui" then
sql="update nsmallarea set tuijian=false where id="&request("id")
conn.execute sql

end if

if request("action")="modi" then
sql="update nsmallarea set nsmallarea='"&request("nsmallarea")&"' where id="&request("id")
conn.execute sql
end if
%>
<%
function getstauts(rs,sid)
if rs=sid then getstauts="selected"
end function
function getstauts1(rs,sid)
if rs=sid then getstauts1="checked"
end function

%>
<script language="javascript">
var lsdz = "";
function checkIn()
   {if(confirm("警告：删除此类将删除其所有子类及信息?"))
      return true
   else 
      return false;
}
</script>



<style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
-->
</style>

<div align="center"> <br>
  <table width="375" border="1" cellpadding="1" bordercolor="#999999">
    <tr bgcolor="#666699"> 
      <td height="21" background="../images/pics/tile_sub.gif"><strong><font color="#FFFFFF">选择大类</font></strong></td>
    </tr>
    <tr> 
      <td>
	  <script>
	 function  gotourl(){
	 window.location.href="pud_sclass.asp?nbigarea="+document.all.nbigarea1.value;
	 }
	  </script>
	  
	  <select name="nbigarea1" onChange="gotourl()">
          <option selected>选择小类所属的大类</option>
         <%
		 set sr=conn.execute("select * from nbigarea order by num")
		 do while not sr.eof
		 %>
		  <option value="<%=sr("id")%>" <%=getstauts(cstr(nbigarea),cstr(sr("id")))%>><%=sr("nbigarea")%></option>
		  <%
		  sr.movenext
		  loop
		  %>
        </select></td>
    </tr>
  </table>
  <br>
  <table width="478" border="1" cellpadding="1" bordercolor="#999999">
    <tr bgcolor="#666699"> 
      <td width="310" height="21" background="../images/pics/tile_sub.gif"><strong><font color="#FFFFFF">类别名称</font></strong></td>
      <td width="152" background="../images/pics/tile_sub.gif"><strong><font color="#FFFFFF">操作</font></strong></td>
    </tr>
    <%
		set rs=server.createobject("adodb.recordset")
		
		sql="select * from nsmallarea where nbigarea="&nbigarea&" order by num asc"
	rs.open sql,conn,1,1
	i=0

	do while not rs.eof 
	i=i+1
	%>
    <tr> 
      <td><%=rs("nsmallarea")%></td>
      <td align="center"><a href="pud_sclass.asp?id=<%=rs("id")%>&action=rename&nbigarea=<%=rs("nbigarea")%>">修改</a> <a href="pud_sclass.asp?action=del&id=<%=rs("id")%>&nbigarea=<%=rs("nbigarea")%>" onClick="return checkIn();">删除</a></td>
    </tr>
    <%
rs.movenext
loop

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