第七章 留言回复页的制作 admin_post.aspx留言回复
操作步骤：
1、创建并打开一个新admin_post.aspx，插入表单，切换到代码视图，给表单添加runat="server"属性：
<form id="form1" method="POST" runat="server" > </form>
2、在表单内按以下截图页面样式插入表格和文本域：
文本框：<textarea name="MessageAdmin" cols="60" rows="8" id="MessageAdmin" runat="server" ></textarea>提交按扭：<input type="submit" name="Submit" value="提交" runat="server" >重置按扭：<input type="reset" name="Submit2" value="重置" runat="server" >
普通标签加 runat="server"使其成为服务器控件。
3、切换到代码视图，把ResponseEncoding="gb2312"删除掉。
4、插入数据集
列选定id、title、MessageBook、MessageName这几个字段，其它设置如下图：
切换到“绑定”面板，把留言标题、留言人及留言内容绑定到页面。用一段函数来格式化留言本内容本文，使用恢复回车换行。
代码如下：
<script language="VB" runat="server"> function strbrvbs(messagetext as string) as string strbrvbs=Replace(messagetext，"<"， "<；") strbrvbs=Replace(strbrvbs，">"， ">；") strbrvbs=Replace(strbrvbs ，vbCrLf，"<br>") strbrvbs=Replace(strbrvbs，chr(32)&chr(32)， " ； ； ； ；") end function </script>
这段代码可以放在任何地方。
选定页面“留言内容”动态绑定字段，切换到源代码，把它改成：
<%# strbrvbs(DataSet1.FieldValue("MessageBook"， Container)) %>
打开留言本首页，然后点击“回复”图片，将ID号传递到admin_post.aspx页，并能筛出记录。
5、应用“更新记录”行为
留言回复是更新MessageAdmin字段。
在应用“更新记录”之前，应该在表单内添加一个隐藏域用来指定须要更新记录ID，这个ID可以是从URL参数获取，也可以由数据集中绑定。
添加的隐藏域代码如下：
<input name="id" type="hidden" id="ide" value="<%# DataSet1.FieldValue("id"， Container) %>" >
隐藏域名称为ID，注意，由于使用了数据集绑定变量，不可以添加runat="server"属性。
启动“更新记录”对话框：
设置ID和MessageAdmin字段及获得值，如下
记录更新后就转到index.aspx首页。好了，测试一下，可以回复了，没问题。
6、添加限制对页的访问代码
由于DW MX不提供ASP.NET的“限制对页的访问”行为，这样任何人都可以回复了。下面我们编写一小段简单的“限制对页的访问”代码，若未登陆就想访问该页，则将访客带到admin_loing.aspx登陆页。
代码以下：
Sub Page_Load(Src As Object， E As EventArgs) If Session("MM_Username") Is nothing Response.Redirect("admin_loing.aspx") End If End Sub </script>
把这段代码放在页面的第三句，在执行所有代码前，首选检查Session("MM_Username")是否有值，没的话，则转向admin_loing.aspx让管理员登陆。
至此，管理员留言回复页制作完毕。
