ASP动态网页设计帖子查看程序

在显示帖子的主页面上没有提供详细的发贴内容，而是提供了一个根据发贴的主题链接到帖子详细内容的超链接。单击发帖主题超链接就可以进入查看帖子的程序页面。查看帖子noteview.asp的程序如下：

〈！--#Include file＝″config.inc″--〉

〈％

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

Conn.open connstring

Set objnoters＝Server.createobject（″adodb.recordset″）

noteid＝request.querystring（″noteid″）

ssg1＝″select＊from notetable where noteid＝′″&noteid&″′″

Objnoters.open ssgl，conn，1，3

If Objnoters.eof Then

Response.write ″这条留言已经删除，不可看，请〈A href＝″″vbscript：window.close（）″″〉返回〈/A〉″

Response.End

End If

′下面计算出留言时间的表达式

temp＝split（objnoters（″notetime″），″，-1，1）

datetemp＝split（temp（0），″-″，-1，1）

notetime＝datetemp（0）&″年″&datetemp（1）&″月″&datetemp（2）&″日″

notetime＝notetime&temp（1）

timetemp＝split（temp（2），″：″，-1，1）

notetime＝notetime&timetemp（0）&″点″&timetemp（1）&″分″&timetemp（2）&″秒″

′notetime＝objnoters（″notetime″）

userid＝objnoters（″userid″）

email＝objnoters（″email″）

subject＝Objnoters （″subject ″）

content＝Objnoters （″content ″）

Objnoters .close

′此 留言的 阅读数要加上 1

ssql＝″update notetable set readnum＝readnum＋l where noteid＝′″&noteid & ″′″

Application .Lock

Objnoters .open ssgl，conn，1，3

Application .Unlock

′关 闭数据 库 连接

Conn.close

Set conn＝nothing

Set objnoters＝nothing

％〉

〈HTML〉

〈HEAD〉

〈TITLE〉查看帖子〈/TITLE〉

〈META http-equiv＝″Content-Type″content＝″text/html ；charset＝gb2312″〉

〈STYLE〉

〈！- -

.classl ｛font ：l0pt ：color ：#9900CC；｝

.class2｛font ：llpt ；｝

input ｛font ：l0pt ：background-color ：#eeeeee；border-style ：solid；border-color ：

#6666cc；border-width ：1；｝(www.xing528.com)

a ：hover ｛color ：#ff0000；text-decoration：none；｝

a ：link｛color ：#000000；text-decoration ：underline；｝

- - 〉

〈/STYLE〉

〈/HEAD〉

〈BODY style＝″font ：l0pt″〉

〈FORM〉

〈TABLE width＝400 border＝0 align＝″center″cellspacing＝″0″bgcolor＝″#b0cfef″〉

〈TR〉

〈TD colspan＝″2″ align＝center bgcolor＝″#D8F3FE″〉〈B〉〈FONT color＝#669900

class＝class2〉查看帖子〈/FONT〉〈/B〉〈/TD〉

〈/TR〉

〈TR becolor＝″#FFFFFF″〉

〈TD align＝″right″〉作者&nbsp〈/TD〉

〈TD align＝″left″〉〈INPUT name＝″text″ type＝text value＝〈％＝userid％〉 size＝26〉

〈/TD〉

〈/TR〉

〈TR bgcolor＝″#FFFFFF″〉

〈TD align＝″right″〉email&nbsp〈/TD〉

〈TD align＝″left″〉〈INPUT name＝″text2″type＝text value＝〈％＝email％〉 size＝26〉

〈/TD〉

〈/TR〉

〈TR bgcolor＝″#FFFFFF″〉

〈TD align＝″right″〉〈FONT class＝classl〉主题&nbsp〈/FONT〉〈/TD〉

〈TD align＝″left″〉〈INPUT name＝″text3″type＝text value＝〈％＝subject％〉size＝26〉

〈/TD〉

〈/TR〉

〈TR bgcolor＝″#FFFFFF″〉

〈TD align＝″right″〉〈FONT class＝classl〉时间&nbsp〈/FONT〉〈/TD〉

〈TDalign＝″left″〉〈INPUT name＝″text4″type＝text value＝〈％＝notetime％〉size＝26〉

〈/TD〉

〈/TR〉

〈TR bgcolor＝″#FFFFFF″〉

〈TD align＝″right″〉〈FONT class＝classl〉详细内容〈/FONT〉〈/TD〉

〈TD align＝″left″〉

〈TEXTAREA name＝″content″cols＝″31″rows＝″4″〉〈％＝content％〉〈/TEXTAREA〉〈/TD〉

〈/TR〉

〈TR〉〈TD colspan＝″2″align＝″center″〉〈a href＝″vbscript：window.close（）″〉关闭窗口〈/A〉&nbsp〈a href＝″noteback.asp？noteid＝〈％＝noteid％〉&subject＝〈％＝subject％〉″〉回复帖子〈/A〉〈/TD〉〈/TR〉

〈/TABLE〉〈/FORM〉

〈/BODY〉

〈/HTML〉

noteview.asp根据接收到的参数即发贴编号在notetable表中找到该条记录，然后将此记录的所有信息显示出来。该程序还有一点就是将用户查看的这条帖子被阅读的次数字段的值加1。

为了防止数据库错误，在程序的开始部分根据发贴编号查找数据库，并判断数据库中是否还有这一条记录。如果没有这条记录，说明管理员已经将此条记录删除，但是反映在用户浏览器中并没有刷新。

查看帖子程序运行结果如图8-8所示，此页面提供两个选择，即关闭窗口和回复帖子。如果选择回复帖子，则进入到回复信息填写页面noteback.asp。

图8-8 查看帖子程序运行结果