第七章留言回复页的制作

发布者: spid 2010年01月21日围观次点赞:1

第七章    留言回复页的制作        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让管理员登陆。

       至此，管理员留言回复页制作完毕。