book.asp

自己去看吧ASP的图书馆系统

          <option value="27">27</option>
          <option value="28">28</option>
          <option value="29">29</option>
          <option value="30">30</option>
          <option value="31">31</option>
        </select>
        日 
        <br>
        <font color="#000000"> 
        <select name="date11" id="date11">
          <% for i = 1970 to 2008 
		         Response.write "<option value='" & CStr(i) & "'>" & CStr(i) & "</option>"
					next
			%>
        </select>
        年 
        <select name="date22" id="select2">
          <option value="1" selected>1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="10">10</option>
          <option value="11">11</option>
          <option value="12">12</option>
        </select>
        月 
        <select name="date33" id="select3">
          <option value="1" selected>1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="10">10</option>
          <option value="11">11</option>
          <option value="12">12</option>
          <option value="13">13</option>
          <option value="14">14</option>
          <option value="15">15</option>
          <option value="16">16</option>
          <option value="17">17</option>
          <option value="18">18</option>
          <option value="19">19</option>
          <option value="20">20</option>
          <option value="21">21</option>
          <option value="22">22</option>
          <option value="23">23</option>
          <option value="24">24</option>
          <option value="25">25</option>
          <option value="26">26</option>
          <option value="27">27</option>
          <option value="28">28</option>
          <option value="29">29</option>
          <option value="30">30</option>
          <option value="31">31</option>
        </select>
        日  </td>
    </tr>
    <tr align="center"> 
      <td colspan="2"><input name="active" type="hidden" id="active" value="yes">
        <input type="submit" name="Submit" value="查询"> &nbsp; 
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form>
<%end if
'查询结束%>
<%'图书分类添加 过程：如果请求操作是分类增加，首先判断是否有请求类型，有的话执行添加，没有就执行输入类型
if request("query")="type_add" then
if request("booktype")<>"" then 
set rs=server.createobject("adodb.recordset")
sql="select * from booktype where booktype='"&request("booktype")&"'"
rs.open sql,db,1,3 
if not rs.eof or not rs.bof then
response.write "<script language=javascript>alert('已经有这个分类');history.back(-1)</script>"
else
rs.addnew
rs("booktype")=request("booktype")
rs.update
rs.close
set rs=nothing
response.redirect ("book.asp?query=all_type")
end if
else'如果分类增加得到确认但是没有数据,提示输入
if request("add")="add" then
response.write "<script language=javascript>alert('分类增加得到确认但是没有数据,提示输入~');history.back(-1)</script>"
end if
%>
<table width="88%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr>
    <td align="center" >添 加  分 类 &nbsp;&nbsp;&nbsp;&nbsp;</td>
  </tr><form name="form1" method="post" action="">
  <tr>
      <td height="61" align="center"> 
        <input name="booktype" type="text" id="booktype">
        &nbsp;&nbsp; 
        <input type="submit" name="Submit" value="添加">
		<input type="hidden" name="add" value="add">
        &nbsp;&nbsp;&nbsp; 
        
      </td>
  </tr></form>
</table>
<%end if%>
<%end if
'图书分类添加结素%>
<%'分类删除 确认该分类下已经没有图书了再删除该分类
if request("query")="type_del" then
if request("id")<>"" then
sql1="select * from booktype where id ="&request("id")
set rs1=db.execute(sql1)
qq="select * from book where booktype='"&rs1("booktype")&"'"
set rq=db.execute(qq)
if rq.eof or rq.bof then
sql="delete from booktype where id ="&request("id")
db.execute(sql)
response.write "<script>alert('删除成功');window.location.href='book.asp?query=all_type'</script>"
else '分类下存在书，跳到该分类下的书，如果还想继续删除该分类的话
response.write "<script>alert('分类下存在书，不能删除');window.location.href='book.asp?query=books_of_type&booktype="&rs1("booktype")&"'</script>"
end if
else
%>
<form action="" method="post">请输想删除的分类id:
<input name="id" type="text"  size="15" value="">
 <input type="submit"  value="删除">
              &nbsp; 
              <input type="reset"  value="重置">
</form><a href="book.asp?query=all_type" target="right">浏览所有分类</a>
<%end if %>
<%end if '分类删除结束%>

<%'图书增加
if request("query")="book_add" then
sql="select * from booktype"
set rs=db.execute(sql)
%>
<%
  if request("active")="" then
  else
  if request("name")="" or request("money")="" or request("num")="" or request("publishing")="" or request("select")="" then
  response.write "<script>alert('输入错误');history.go(-1)</script>"
  else
  set rs2=server.createobject("adodb.recordset")
  date1=request("date1")
  date2=request("date2")
  date3=request("date3")
  qdate=date1&"-"&date2&"-"&date3
  sql="select * from book"
  rs2.open sql,db,1,3
  rs2.addnew
  rs2("bookname")=trim(request("name"))
  rs2("bookmoney")=trim(request("money"))
  rs2("num")=trim(request("num"))
  rs2("publishing")=trim(request("publishing"))
  rs2("pdate")=date1&"-"&date2&"-"&date3
  rs2("booktype")=trim(request("select"))
  rs2.update
  response.write "<script>alert('添加图书成功');window.location.href('book.asp?query=all_book')</script>"
  end if
  end if
  %>
  <form name="form1" method="post" action="">
  <tr> 
    <td height="20" colspan="2" valign="top">
        <br>
        
        <table class=1 width="333" border="0" align="center" cellpadding="3" cellspacing="0">
          <tr > 
            <td colspan="2" align="center">（添 加 图 书)</td>
          </tr>
          <tr align="center" > 
            <td width="35%">书名:</td>
            <td width="65%"> 
              <input name="name" type="text" id="name" size="15">
              </td>
          </tr>
          <tr align="center" > 
            <td>分类:</td>
            <td> 
              <select name="select">
                <%
				rs.movefirst
				do while not rs.eof%>
				<option value=<%=rs("booktype")%>><%=rs("booktype")%></option>
				<%
				rs.movenext
				loop
				rs.close
				set rs=nothing
				%>
              </select>
              </td>
          </tr>
          <tr align="center" > 
            <td>价格:</td>
            <td> 
              <input name="money" type="text" id="money"  size="10">
              元</td>
          </tr>
		  <tr align="center" > 
            <td>数量:</td>
            <td> 
              <input name="num" type="text"  size="15">
              </td>
          </tr>
          <tr align="center" > 
            <td>出版社:</td>
            <td> 
              <input name="publishing" type="text" id="publishing" size="15">
              </td>
          </tr>
          <tr align="center" > 
            <td>出版日期:</td>
            <td>
              <select name="date1" id="date1">
                    <% for i = 1970 to 2008 
		         Response.write "<option value='" & CStr(i) & "'>" & CStr(i) & "</option>"
					next
			%>
              </select>
              年 
              <select name="date2" id="date2">
                <option value="1" selected>1</option>
                <option value="2">2</option>
                <option value="3">3</option>
                <option value="4">4</option>
                <option value="5">5</option>
                <option value="6">6</option>
                <option value="7">7</option>
                <option value="8">8</option>
                <option value="9">9</option>
                <option value="10">10</option>
                <option value="11">11</option>
                <option value="12">12</option>
              </select>
              月 
              <select name="date3" id="date3">
                <option value="1" selected>1</option>
                <option value="2">2</option>
                <option value="3">3</option>
                <option value="4">4</option>
                <option value="5">5</option>
                <option value="6">6</option>
                <option value="7">7</option>
                <option value="8">8</option>
                <option value="9">9</option>
                <option value="10">10</option>
                <option value="11">11</option>
                <option value="12">12</option>
                <option value="13">13</option>
                <option value="14">14</option>
                <option value="15">15</option>
                <option value="16">16</option>
                <option value="17">17</option>
                <option value="18">18</option>
                <option value="19">19</option>
                <option value="20">20</option>
                <option value="21">21</option>
                <option value="22">22</option>
                <option value="23">23</option>
                <option value="24">24</option>
                <option value="25">25</option>
                <option value="26">26</option>
                <option value="27">27</option>
                <option value="28">28</option>
                <option value="29">29</option>
                <option value="30">30</option>
                <option value="31">31</option>
              </select>
              日</td>
          </tr>
          <tr align="center"> 
            <td colspan="2"> 
              <input type="submit"  value="添加">
              &nbsp; 
              <input type="reset"  value="重置">
              <input name="active" type="hidden" id="active" value="yes">
              </td>
          </tr>
        </table>
    </td>
  </tr></form>
</table>
<%end if
'图书增加结束%>
<%'实现图书的删除,如果删除操作执行后书数量=0，删除书的所有信息 
if request("query")="del" then
if request("id")<>"" then 'id存在 直接执行删除
sql="update book set [num]=[num]-1 where id=" & request("id")
sql1="select * from book where id="&request("id")
db.execute(sql)
set rs1=db.execute(sql1)
db.execute("delete from book where id="&request("id"))
response.write "<script>alert('成功删除');history.go(-1)</script>"
else'id不存在，输入它
if request("del")<>"" then'如果删除请求有但是没有id，提示输入id
response.write "<script>alert('删除请求有但是没有id')</script>"
end if
%>
<form action="" method="post">请输想删除的图书id:
<input name="id" type="text"  size="15" value="">
 <input type="submit"  value="删除">
              &nbsp; 
              <input type="reset"  value="重置">
              <input type="hidden" name="del" value="del">
</form><a href="book.asp?query=all_book" target="right">浏览所有图书</a>
<%
end if
end if 
'图书删除结束%>
<%'图书修改
if  request("query")="mod" then
if request("id")<>"" then '如果请求id存在,导出该ID的图书信息,否则返回错误
if  request("active")="yes" then'如果确认更改操作,执行更改,否则依然出现图书信息.
sql="update book set bookname='"&request("name")&"',booktype='"&request("type")&"',publishing='"&request("publishing")&"',pdate='"&request("date")&"',bookmoney='"&request("money")&"',num='"&request("num")&"' where id="&request("id")
db.execute(sql)
response.write "<script>alert('修改成功');window.location.href='book.asp?query=all_book'</script>"
end if
set rs1=db.execute("select * from book where id="&request("id"))
%>
<form action="" method="post">
<table width="200" align="center">
<tr>图书修改
  </tr>
  <tr>
    <td>书名:</td>
    <td><input name="name" type="text" id="name" size="15" value="<%=rs1("bookname")%>"></td>
  </tr>
  
  <tr>
    <td>分类:</td>
    <td>
	<select name="type">
	<%
	q="select * from booktype"
	set rs=db.execute(q)
	 %>
	 <option value="<%=rs1("booktype")%>"><%=rs1("booktype")%></option>
	 <%
	 do while not rs.eof 
	 %>
	 <%if rs("booktype")<>rs1("booktype") then '防止分类重复出现%>
	 <option value="<%=rs("booktype")%>"><%=rs("booktype")%></option>
	 <%end if%>
	<%
	rs.movenext
	loop
	%>
	
	</select></td>
  </tr>
  <tr>
    <td>价格:</td>
    <td><input name="money" type="text" id="money" size="10" value="<%=rs1("bookmoney")%>"></td>
  </tr>
   <tr>
    <td>数量:</td>
    <td><input name="num" type="text" id="money" size="10" value="<%=rs1("num")%>"></td>
  </tr>
  <tr>
    <td>出版社:</td>
    <td><input name="publishing" type="text" id="publishing" size="15" value="<%=rs1("publishing")%>" ></td>
  </tr>
  <tr>
    <td>出版日期:格式<%=rs1("pdate")%></td>
    <td><input name="date" type="text" id="date" size="15" value="<%=rs1("pdate")%>" ></td>
  </tr>
  <tr>
    <td><input type="submit" name="Submit3" value="修改">
              &nbsp; 
              <input name="id" type="hidden" id="id" value="<%=rs1("id")%>">
              <input name="active" type="hidden" id="active" value="yes"></td>
    <td><input type="reset"  value="重置"></td>
  </tr>
  </table></form>
  <%else response.Write"<script>alert('没有指定图书id');history.go(-1)</script>"
  end if%><%end if'图书修改结束%>
<br><br><br>
<div><a href="index.asp" target="right">首页</a>
&nbsp;&nbsp;&nbsp;<a href="javascript:history.go(-1)" target="right">返回</a>
</div>