anage.asp
response.write ""
'连接数据库
set conn=Server.CreateObject("ADODB.Connection")
set listrs=server.createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
conn.Open sConnection
listrs.open "select * from guest",conn,2,2
'上面打开了数据库的guest表
i=1
'变量i开始记数
while not listrs.eof
response.write "来自:"&listrs("myname")&"----"&listrs("mytitle")&"时间:"&listrs("nowtime")&"
"&listrs("mybody")&"
"
i=i+1
'上面两步是关键处，输出每条留言的同时，输出一个checkbox复选框，此框功能是选中与不选中将返回不同值
listrs.movenext
wend
set listrs=Nothing
'输出提交按钮和表单结束标志
response.write
三、代码分析
代码不太好理解，且听我说来：
1.程序首次执行时，if request("delit"&i)<>empty then总是返回假值，因为复选框未被选中，接着输出所有的留言。
2.在选中了要删除的留言后，按下“删除按钮”，重新执行。
3.删除全部选中的留言后，再输出留言板。
上一页 [1] [2] |
