以下是引用片段：
1.在GuestBook\newguest.asp中约21行找到：
Dim tlen, num, order, KindID
在其后面添加GuestReply即改为：
Dim tlen, num, order, KindID, GuestReply
2.继续查找：
Do While Not rsGuest.EOF
在这一行下面添加以下代码：
Response.write "document.write(' <table width=100% border=0 cellpadding=0 cellspacing=0><tr><td>');" 'jgxx_zb添加
3.继续查找：
Case 4 '时间
Response.Write "document.write('[<font color=green>" & FormatDateTime(rsGuest("GuestDatetime"), 4) & "</font>]');"
在其下面添加以下代码：
Case 5 'XXX已回复
if len(rsGuest("GuestReply")) >0 then
Response.write "document.write('</td><td align=right><font color=#999999> " & "<font color=#3366cc>" & rsGuest("GuestReplyAdmin") & "</font>" & "已回复 </font>');" 'jgxx_zb添加 （显示管理员“XXX已回复”字样）
Else
Response.write "document.write('</td><td align=right><font color=#999999> " & "<font color=#3366cc>" & rsGuest("GuestName") & "</font>" & "的留言</font>');" 'jgxx_zb添加 （没有管理员回复时显示用户“XXX的留言”字样）
4.继续查找：
response.write "document.write('<br>');"
改为：
response.write "document.write(' </a></td></tr></table>');" 'jgxx_zb修改
5.进入网站后台管理：系统设置----网站首页模板管理----修改默认模板----在模板代码区中找到最新留言的调用代码：
<script src="guestbook/newguest.asp?KindId=0&KindName=0&num=10&tlen=12&order=0&info=0"></script>
将info=0改为info=5 然后保存模板。更新缓存。如果使用生成HTML,请重新生成网站首页。
=================================================================== 附：我修改过的文件：
 点击浏览该文件 (10月10日更新)
====================================================================
留言调用函数说明：
'num 显示数量
'tlen 留言长度
'order 如果为1 则按留言时间排序 其它按ID排序
'info 留言主题后面的信息 0 不显示 1 用户名 2 短日期+长时间 3 短日期 4 时间 5 显示[XXX已回复]
'KindId KindId=0表示调用所有类别的最新留言，KindId为不同的值对应不同类别。
'KindName 为0不显示留言类别,为1显示留言类别,注意:设置了KindID为0,这个才有效
 此主题相关图片如下：
| 
★给首页最新留言加上[XXX已回复]字样2006-4-3 10:45:05★给首页最新留言加上[XXX已回复]字样2006-4-3 10:45:05★给首页最新留言加上[XXX已回复]字样