<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 books(tsm,zz,tslb,nrjj,tjrq) values('"& stsm & "','"& szz &"','"& stslb &"','"& snrjj &"','"& stjrq &"')"
db.execute(strsql)
response.redirect "glyy.asp"
else
response.write "请将所有信息填写完整,"
response.write "<a href='add.asp'>重新添加</a>"
end if
%>
</head>
<body>
</body>
</html>
（4）图书修改页
图书名，作者，图书类别都必须附以动态属性，如动态属性（tsm.value）,图书文本框中会出现初始值<%=rs("tsm")%>此是前提，便于将修改的图书传送到数据库中。
具体的设计如下：
首行强制变量声名
<% option explicit %>
连接修改程序
<%
dim stsm ,szz,stslb,sql,snrjj,conn,sid,rs
sid=request.QueryString("id")
session("id")=sid
stsm=request.QueryString("tsm")
snrjj=request.QueryString("nrjj")
sts
首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/9/9
