步骤二:编写“加入精彩留言”的留言处理程序(wonderful.asp). < !--#include
file="adovbs.inc" --> < !--#include file="post.asp"
--> < % ID = Request.Querystring("ID") %> <
% Set conn = Server.CreateObject("ADODB.Connection") DBPath =
Server.MapPath("book2.mdb") conn.Open "driver={Microsoft Access
Driver (*.mdb)};dbq=" & DBPath sql ="DELETE * FROM perfect
WHERE (ID = " & Request.QueryString("id") & ")" Set rs =
conn.Execute( sql ) sql="insert into perfect select * from
guestbook where (ID = " & Request.QueryString("id") &
")" Set rs = conn.Execute( sql ) %>
'为了避免当我们在操作“加入精彩留言”的过程中,连续对某条留言重复了该项操作而引发的错误,我们可以不理它三七二十一,先将perfect数据表中凡是ID
= " & Request.QueryString("id") &
"的留言记录删除,再将留言数据表guestbook中ID = " & Request.QueryString("id")
& "的留言插入到数据表perfect中。 |