DW MX实例：随笔管理及评论实现
<P> 实例 91 中详细讲解了 BLOG 中的日历事件，而随笔的发表及评论的实现则是本实例所要讲解的内容。 <BR><BR> 效果说明 其他用户可以在如图 92-1 所示的“ index.aspx ”页面中对当前随笔发表评论，单击【提交】按钮时，验证输入的验证码正确后就可以提交相关评论。图 92-2 所示是博客的随笔管理页面“ blogappear.aspx ”，博客可以在该页面中对随笔进行添加、编辑、删除等管理操作。 <BR><BR> </P><CENTER><IMG alt=Dreamweaver src="/bbs/attachments/websoft/20081209/20081299534448477801.jpg" border=0></CENTER>
<P> <BR><BR> 创作构思 利用按钮的“ OnClick ”事件处理过程，对相关数据表进行更新、编辑、删除等操作。 <BR><BR> </P>
<CENTER><IMG alt=Dreamweaver src="/bbs/attachments/websoft/20081209/20081299534453177802.jpg" border=0></CENTER>
<P> <BR><BR> 操作步骤 <BR><BR> 步骤一 实现回复 <BR><BR> （ 1 ） 打开“ index.aspx ”，在图 91-5 中圆角方框④所示的位置插入一个 7 行 1 列的表格，如图 92-3 中圆角方框所示。 <BR><BR> <BR><BR> <BR><BR> </P>
<CENTER><IMG alt=Dreamweaver src="/bbs/attachments/websoft/20081209/20081299534457877803.jpg" border=0></CENTER>
<P> <BR><BR> 提示：图 92-3 中所标的序号是新添加表格的行序号。 <BR><BR> （ 2 ）在新添加的表格中添加各 ASP.NET 控件。在新添加表格的第一行中插入水平线；在②行中添加“ asp ：文本框”，设 ID 为“ replytitle ”；在③行中添加“ asp ：文本框”，设 ID 为“ usename ”；在④行中添加“ asp ：文本框”，设 ID 为“ valicode ”；在⑥行中添加“ asp ：文本框”，设 ID 为“ reply ”，并设置文本模式为“多行”；在⑦行中添加“ asp ：按钮”，设 ID 为“ refer ”，文本为“提交”，并在新添加表格的相关行中输入相应文字，结果如图 92-4 所示。 <BR><BR> </P>
<CENTER><IMG alt=Dreamweaver src="/bbs/attachments/websoft/20081209/20081299534462577804.jpg" border=0></CENTER>
<P> <BR><BR> </P>
<CENTER><IMG alt=Dreamweaver src="/bbs/attachments/websoft/20081209/20081299534467177805.jpg" border=0></CENTER>
<P> <BR><BR> （ 3 ） 添加图像按钮。 在新添加表格的第四行中添加一个图片按钮，其图像 URL 为“ numdraw.aspx ”，该文件用于输入随机附加码，与在实例 81 中制作的“ numdraw.aspx ”文件是同一个文件，如图 92-5 所示。 <BR><BR> （ 4 ） 在“ ＜script runat="server"＞ ”中定义如下所述的“ refer_Click ”过程，该过程用于响应【提交】按钮的“ OnClick ”事件。 <BR><BR> Sub refer_Click(ByVal sender As Object, ByVal e As System.EventArgs) <BR><BR> Dim cpConn, Cpstring As String <BR><BR> Dim conn As OleDbConnection <BR><BR> Dim Cpadapter As OleDbDataAdapter <BR><BR> Dim Cpdat As System.Data.DataSet <BR><BR> Dim dt As DataTable <BR><BR> cpConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("dat\bad.mdb") <BR><BR> conn = New OledbConnection(cpConn) <BR><BR> Cpstring = "SELECT * from revert" <BR><BR> Cpadapter = new OleDbDataAdapter(Cpstring,conn) <BR><BR> Dim yy as OleDbCommandBuilder=new OleDbCommandBuilder (Cpadapter) <BR><BR> Cpdat = New System.Data.DataSet() <BR><BR> Cpadapter.Fill(Cpdat,"revert") <BR><BR> If valicode.Text=Session("DrNum") Then <BR><BR> Dim dr As DataRow = Cpdat.Tables("revert").NewRow() <BR><BR> dr("myblogID") =MyblogData.FieldValue("myblogID", nothing) <BR><BR> dr("usename") =usename.text <BR><BR> dr("replytitle") =replytitle.text <BR><BR> dr("reply") = reply.text <BR><BR> dr("RevertTm") = now <BR><BR> Cpdat.Tables("revert").Rows.Add(dr) <BR><BR> Cpadapter.Update(Cpdat, "revert") <BR><BR> conn.close <BR><BR> End If <BR><BR> Response.Redirect(Request.ServerVariables("SCRIPT_NAME")) <BR><BR> End Sub <BR><BR> （读者可打开【光盘】｜【源文件】｜【实例 92 】｜【 92.1.txt 】文件，直接复制） <BR><BR> 程序说明： <BR><BR> 上面的代码中有一个条件语句 valicode.Text=Session("DrNum") ，条件是当用户输入的附加码与输出的附加码相同时，才可以把回复添加到“ revert ”表中。新添加的记录中只有回复的标题“ replytitle ”、用户名“ usename ”、回复内容“ reply ”可以直接从相关的文本框中提取，而回复笔记的序号“ myblogID ”由数据集“ MyblogData ”中的“ myblogID ”字段值提取，发表回复时间“ RevertTm ”等于发表回复当时的时间（ now ）。 <BR><
页:
[1]