asp图书管理系统+论文＋开题＋PPT(九)

asp图书管理系统+论文＋开题＋PPT(九) z='" & 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 %>

第一行是强制型变量申明
第二行则是把连接数据库的文件包含进来
下面是通过建立记录集来查询数据库：
发表留言

<%
If Request("title")<>"" And Request("user_name")<>"" Then
Dim title,body,layer,parent_id,child,hits,ip,user_name
title=Request.Form("title")
body=Request.Form("body")
user_name=Request.Form("user_name")
layer=1
parent_id=0
child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dim sql,svalues
sql="Insert Into bbs(title,layer,parent_id,child,hits,ip,user_name,submit_date"
  svalues = "Values('" & title & "'," & layer & "," & parent_id & "," &child & "," & hits & ",'" & ip & "','" & user_name & "','" & date() & "'"
  If body<>"" Then
   sql = sql & ",body"
   svalues = svalues & "," & "'" & body & "'"
  End If
  sql = sql & ") " & svalues & ")"
  db.Execute(sql)
  db.Close
  Response.Redirect "ltindex.asp"
End If
%>
回复留言

<%
If Request("title")<>"" And Request("user_name")<>"" Then
  Dim body,layer,parent_id,child,hits,ip,user_name
  title=Request.Form("title")
  body=Request.Form("body")
  user_name=Request.Form("user_name")
  layer=2
  parent_id=bbs_id
  child=0                 &n

首页上一页 6 7 8 9 10 11 下一页尾页 9/11/11

asp图书管理系统+论文＋开题＋PPT(九)由免费论文网（www.jaoyuw.com）会员上传。