ASP同学录设计asp+sql

   Sql = Sql & ",email"
   sValues = sValues & ",'" & email & "'"


End If
  Sql = Sql & ",submit_date"
  sValues = sValues & ",'" & date & "'"
  Sql = Sql & ") " & sValues & ")"
  db.Execute(Sql)
  db.Close
  Response.Redirect "lyb.asp"
   %>
删除留言程序如下：
<% option explicit%>
<%Response.Buffer=True%>
<%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
%>
<html>
<head>
  <title>删除留言</title>
</head>
<body>
  <%
       Dim sql,guest_id
   guest_id=Request.QueryString("guest_id")
   sql="Delete From guest Where guest_id =" & guest_id
   db.Execute(sql)


db.Close
   Response.Redirect "lyb.asp"
  %>

</body>
</html>
5.2.3 bbs设计：
bbs.asp---bbs首页
brow.asp-详细信息页
dj.asp----点击次数
fb.asp----发表页
huifu.asp-回复页
BBS首页主要程序就是用来分页显示
详细信息页的程序如下：
      <%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<bod

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/14/14

ASP同学录设计asp+sql(七)