asp图书管理系统+论文＋开题＋PPT(七)

asp图书管理系统+论文＋开题＋PPT(七) gt;
       <td><div align="center">作者</div></td>
       <td><div align="center">图书类别</div></td>
       <td><div align="center">内容简介</div></td>
       <td><div align="center">添加日期</div></td>
       </tr>
    <%
  do while not rs.eof
  %>
     <tr>
       <td><a href="fq.asp?tsm=<%=rs("tsm")%>"><%=rs("tsm")%></td>
       <td><%=rs("zz")%></td>
       <td><%=rs("tslb")%></td>
       <td><%=rs("nrjj")%></td>
       <td><%=rs("tjrq")%></td>
       </tr>
    <%
    rs.movenext
    loop
    %>
   </table>
<p align="center"><a href="add.asp"><font color="#FF00FF">
<strong>添加图书</strong></font></a>
</body>
</html>

（3）图书添加页
    在图书管理中可浏览图书与添加图书。

具体的设计如下：
<%
stsm=request.form("tsm")
szz=request.form("zz")
stslb=request.form("tslb")
snrjj=request.form("nrjj")
if request.form("tsm")<>""and request.form("zz")<>"" and request.form("tslb")<>"" and request.form("nrjj")<>""   then
dim db
set rs=server.CreateObject("adodb.recordset")
rs.activeconnection="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("books.mdb")
rs.source="select * from books where tsm=''"
rs.locktype=2
rs.open
dim fields(3),values(3)
fields(0)="tsm"
fields(1)="zz"
fields(2)="tslb"
fields(3)="nrjj"
values(0)=stsm
values(1)=szz
values(2)=stslb
values(3)=snrjj
rs.addnew fields,values
rs.update
rs.close
set rs=nothing
response.redirect("book.asp")
end if
%>
<%option explicit%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题论文</title>
<%
if request.form("tsm")<>"" and request.form("zz")<>"" and request.form("tslb")<>"" and request.form("nrjj")<>"" and request.form("tjrq")<>"" then
dim db
set db=server.CreateObject("ADODB.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("books.mdb")
dim strsql,stsm,szz,stslb,snrjj,stjrq
stsm=request.form("tsm")
szz=request.form("zz")
stslb=request.form("tslb")
snrjj=request.form("nrjj")
stjrq=request.form("tjrq")
strsql="insert into

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/11/11

asp图书管理系统+论文＋开题＋PPT(七)由免费论文网（www.jaoyuw.com）会员上传。