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 & "',zz='" & szz & "' where id=" & sid
conn.execute(sql)
response.Redirect"gly.asp"
%>
图书删除
<%
Dim db,connstr
connstr="Dbq="&Server.Mappath("books.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open connstr
dim sid,strsql
sid=request.QueryString("id")
strsql="delete from books where id=" &sid
db.execute(strsql)
response.Redirect "gly.asp"
%>
管理论坛页同图书页删除设计一致，就不在重复。
论坛首页可发表留言与回复流言，
具体设计：
<% Response.Buffer=True %>
<!--#Include file="odbc_connection.asp"-->
第一行是强制型变量申明
第二行则是把连接数据库的文件包含进来
下面是通过建立记录集来查询数据库：
发表留言
<%
If Request("title")<>"" And Request("user_name")<>"" Then
Dim title,body,layer,parent_id,child,hits,ip,user_name
首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/9/9
资料设计题目：图书管理系统(六)由毕业论文网（www.huoyuandh.com）会员上传。
