ASP动态网页设计：留言程序查看

查看留言程序guestlist.asp，提供给后来的访问者查看以前的留言信息的功能。从数据库中提取出所有的留言资料，然后显示在用户浏览器窗口中。显示的留言是按照时间降序来排列的，最新的留言将会出现在浏览器靠上的部分，如图8-4所示。

图8-4 查看留言页面

查看留言程序guestlist.asp的代码如下：

〈％@LANGUAGE＝″VBScript″％〉

〈HTML〉

〈HEAD〉〈TITLE〉留言簿〈/TITLE〉〈/HEAD〉

〈BODY text＝″#000000″bgcolor＝″#ffffff″>

〈H2 align＝center〉留言簿〈/H2〉

〈％

Dim conn，sql，rs

Set conn＝server .createobject （″adodb .connection″）

Set rs＝server .createobject （″adodb .recordset″）

Conn.ConnectionString＝″DRIVER＝｛Microsoft Access Driver （＊.mdb）｝；DBQ＝″&_

Server .MapPath （″aspdb .mdb″）

Conn.open

Sql＝″select ＊ from guestbook order by time desc″

Set rs＝conn.execute （sgl， ，adcmdtext ）

While not rs .eof

％〉(www.xing528.com)

〈TABLE border＝0 width＝″100％″becolor＝″#99FF66″〉

〈TR bgcolor＝″#00BB00″〉〈TD〉作者 ：〈％＝rs （″name″）％〉〈/TD〉〈/TR〉

〈TR〉〈TD〉E-mail ：〈a href＝″mailto：〈％＝rs （″email″）％〉″〉〈％＝rs （″email″）％〉〈/TD〉

〈/TR〉

〈/TR〉〈TD〉主题 ：〈％＝rs （″subject″）％〉〈/TD〉〈/TR〉

〈TR〉〈TD〉内容：〈％＝rs （″content″）％〉〈/TD〉〈/TR〉

〈TR〉〈TD〉时间：〈％＝rs （″time″）％〉〈/TD〉〈/TR〉

〈/TABLE〉

〈％

rs .movenext

wend

％〉

〈CENTER〉〈Ahref＝″guest.htm″〉返回留言记录单〈/A〉〈/CENTER〉

〈/BODY〉

〈/HTML〉

读者可以先通过留言程序留言，然后查看留言页面，就可以看到刚才的留言已经被显示到浏览器窗口中，这也说明刚才的留言已经被存储到数据库中。

至此，一个简单的留言板创建完成。本示例虽然简单，但是很实用，在很多个人网站中都得到了应用，建议大家仔细体会，并想想如何修改得更加完美。读者不妨在计算机上试试，如果把它作为用户主页的留言本，相信一定会给主页增色不少。