评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

毕业设计题目：图书管理系统(一)毕业论(6)

2013-07-25 01:16 lb=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 & "',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