具体的设计如下：
<%
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>
