asp图书管理系统+论文＋开题＋PPT(一)毕业(7)
2013-07-30 01:03
导读：gt; tddiv align="center"作者/div/td tddiv align="center"图书类别/div/td tddiv align="center"内容简介/div/td tddiv align="center"添加日期/div/td /tr % do while not rs.eof % tr tda href="f
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
