foldermanage.asp

asp图书管理系统 刚刚做的 希望帮助到人

<!--#include file="conn.asp"-->
<style>
BODY{
	font-family:verdana,arial,helvetica;
	margin:0;
}
td {
	font-family:Tahoma,Verdana, Arial;
	font-size:11px;
}
A:link, A:active,A:visited
{
	color: #CCCCCC;
	text-decoration: none;
	padding-left:6px;
	padding-right:6px;
}
A:hover
{
	color: #FF3300;
	text-decoration: none;
	padding-left:6px;
	padding-right:6px;
}
</style>
<script type="text/javascript">
function checkadd(){
if (document.form1.foldername.value==""){
alert('分类名称不能为空');
document.form1.foldername.select();
document.form1.foldername.focus();
return false;
}
}
</script>

<title>分类管理</title>
<%
Dim action,id
action=trim(request.QueryString("action"))
select case action
case "add"
foldername=cstr(request.Form("foldername"))
Set rs=server.CreateObject("adodb.recordset")
sql="select * from folder"
rs.open sql,conn,1,3
rs.addnew
rs("foldername")=foldername
rs("folderparentid")=0
rs.update
rs.close
set rs=nothing
response.Write "<script>alert('添加分类成功！');window.location.href='foldermanage.asp';</script>"

case "editfolder"
%>
  <p>&nbsp;</p>
  <table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
    <tr>
      <td width="410" height="21" bgcolor="#E4E4E4"><div align="center"><strong>分类名称</strong></div></td>
      <td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
    </tr>
<%
set rs=conn.execute("select * from folder order by folderid asc")
do while not rs.eof
%>
    <tr>
      <td bgcolor="#FFFFFF"><%=rs("foldername")%></td>
      <td align="center" bgcolor="#FFFFFF"><a href="foldermanage.asp?action=editfolder&id=<%=rs("folderid")%>">修改</a> | <a href="foldermanage.asp?action=del&id=<%=rs("folderid")%>" onclick="return confirm('删除分类，分类下所有图书都将删除！');">删除</a></td>
    </tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>    
    
  </table>
  <p>&nbsp;</p>
<%
id=cint(request.QueryString("id"))
set rs=conn.execute("select * from folder where folderid="&id)
if rs.eof or rs.bof then
response.Write "<script>alert('没有该分类！');window.location.href='foldermanage.asp';</script>"
else
%>  
  <form id="form1" name="form1" method="post" action="foldermanage.asp?action=edit&id=<%=id%>">
  <table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
    <tr>
      <td width="410" height="21" bgcolor="#E4E4E4"><div align="center"><strong>修改分类</strong></div></td>
      <td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
    </tr>
    <tr>
      <td align="center" bgcolor="#FFFFFF"><input type="text" name="foldername" id="foldername" value="<%=rs("foldername")%>" /></td>
      <td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="修改分类" onclick="return checkadd();" /></ td>
    </tr>
  </table>
  </form>
<%
end if
%>  
  <p>&nbsp;</p>
<%

case "edit"
id=cint(request.querystring("id"))
foldername=cstr(request.Form("foldername"))
Set rs=server.CreateObject("adodb.recordset")
sql="select * from folder where folderid="&id
rs.open sql,conn,1,3
rs("foldername")=foldername
rs.update
rs.close
set rs=nothing
response.Write "<script>alert('修改分类成功！');window.location.href='foldermanage.asp';</script>"

case "del"
id=cint(request.QueryString("id"))
conn.execute("delete from folder where folderid="&id)
conn.execute("delete From ebook where folderid="&id)
response.Write "<script>alert('删除分类成功！');window.location.href='foldermanage.asp';</script>"

case else
%>
  <p>&nbsp;</p>
  <table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
    <tr>
      <td width="410" height="21" bgcolor="#E4E4E4"><div align="center"><strong>分类名称</strong></div></td>
      <td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
    </tr>
<%
set rs=conn.execute("select * from folder order by folderid asc")
do while not rs.eof
%>
    <tr>
      <td bgcolor="#FFFFFF"><%=rs("foldername")%></td>
      <td align="center" bgcolor="#FFFFFF"><a href="foldermanage.asp?action=editfolder&id=<%=rs("folderid")%>">修改</a> | <a href="foldermanage.asp?action=del&id=<%=rs("folderid")%>" onclick="return confirm('删除分类，分类下所有图书都将删除！');">删除</a></td>
    </tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>    
    
  </table>
  <p>&nbsp;</p>
  <form id="form1" name="form1" method="post" action="foldermanage.asp?action=add">
  <table width="54%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#999999">
    <tr>
      <td width="410" height="21" bgcolor="#E4E4E4"><div align="center"><strong>添加分类</strong></div></td>
      <td width="127" bgcolor="#E4E4E4"><div align="center"><strong>操作管理</strong></div></td>
    </tr>
    <tr>
      <td align="center" bgcolor="#FFFFFF"><input type="text" name="foldername" id="foldername" /></td>
      <td align="center" bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="添加分类" onclick="return checkadd();" /></ td>
    </tr>
  </table>
  </form>
  <p>&nbsp;</p>
<%
end select
%>