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
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