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(七)由毕业论文网（www.huoyuandh.com）会员上传。
