ASP进阶教程Ⅳ：加入精彩留言

　2000-07-30 09:45:35　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閻忔氨鈧凹鍓熷娲垂椤曞懎鍓伴梺閫炲苯澧紒澶婄秺瀵濡歌閸嬫捇妫冨☉娆忔殘闂佷紮缍€娴滎剟鍩€椤掑倹鏆柛瀣躬瀹曚即寮借閺嗭箓鏌ㄩ悤鍌涘

核心提示：当有一天你在你的留言簿的留言记录中看到了一条十分精彩的留言，为了介绍给你的网友们，ASP进阶教程Ⅳ：加入精彩留言，你是否会考虑将这些留言用单独的页面显示，让更多的上网者更容易地看到呢？假如真如我所说这样，先将perfect数据表中凡是ID = " & Request.QueryString("id&

当有一天你在你的留言簿的留言记录中看到了一条十分精彩的留言，为了介绍给你的网友们，你是否会考虑将这些留言用单独的页面显示，让更多的上网者更容易地看到呢？假如真如我所说这样，那么只要你看完这一章的内容即可使你如愿以偿。
　　要给留言簿加添“加入精彩留言”功能，同样可以通过三个步骤来实现。　
步骤一：首先，在留言数据库中新建一专门用来存放精彩留言的数据表（如perfect).
因为用来存放精彩留言的数据表的结构与存放留言的数据表的结构是相同的，因此创建perfect数据表最简单的方法是COPY留言数据表guestbook的结构，然后粘贴、确定后即可。如下图：
　　　　　　
步骤二：编写“加入精彩留言”的留言处理程序(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中。
步骤三：设计留言被加入到精彩留言数据表之后转入的页面（post.asp)。　