第七章 留言回复页的制作

2004-7-19 6:20:00　　作者：李飞　　来源：未知　网友评论 0 条　论坛

　　第七章    留言回复页的制作        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,"<", "&lt;") strbrvbs=Replace(strbrvbs,">", "&gt;") strbrvbs=Replace(strbrvbs ,vbCrLf,"<br>") strbrvbs=Replace(strbrvbs,chr(32)&chr(32), "&nbsp;&nbsp;&nbsp;&nbsp;") 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让管理员登陆。

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

>> 相关文章