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")
stslb=request.QueryString("tslb")
szz=request.QueryString("zz")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("books.mdb")
conn.open
sql="select * from books where id=" &sid
set rs=conn.execute(sql)
%>
<%
dim sid
sid=session("id")
stsm=request.Form("tsm")
snrjj=request.Form("nrjj")
stslb=request.Form("tslb")
szz=request.Form("zz")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("books.mdb")
conn.open
sql="update books set tsm='"&stsm &"',tslb='" & stslb & "',zz='" & szz & "' where id=" & sid
conn.execute(sql)
response.Redirect"gly.asp"
%>
管理员登陆页
管理员登陆界面
具体实现为
<%
dim syhm,smm
syhm=request.form("yhm")
smm=request.form("mm")
if syhm="" or smm="" then
response.Redirect "login.htm"
else
if request.Form("syhm")<>"" and request.Form("smm")<>"" then
dim db
set db=server.createobject("adodb.connection")
db.open="driver={microsoft access driver (*.mdb)}; dbq="&server.mappath("books.mdb")
dim strsql,rs
strsql="select * from gly where yhm='"&syh&"' and mm='"&smm&"'"
set rs=db.execute(strsql)
if rs.bof or rs.eof then
response.write "qqqqq"
response.Redirect "login.htm"
else
response.Redirect "gl.asp"
end if
end if
end if
%>
</body>
</html>
登陆后页面
图书修改
<%
dim sid
sid=session("id")
stsm=request.Form("tsm")
snrjj=request.Form("nrjj")
stslb=request.Form("tslb")
szz=request.Form("zz")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("books.mdb")
conn.open
sql="update books set tsm='"&stsm &"',tslb='" & stslb & "',z