ASP同学录设计asp+sql(一)毕业论文(7)
2013-05-29 01:14
导读：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" % 删除
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)
（转载自http://zw.ＮＳＥaＣ.com科教作文网）
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
