★需要在查看文章的页面下方增加用户留言功能，求类似功能例子

Question

这个功能比较常见吧？大家有做过类似的吗？能否提供源码看看？
或者推荐几个方便修改的留言本。谢谢！

Answer 1

可以参考IBUYSPY的REVIEW 用户控件的写法

Answer 2

比较简单的功能，就是用二个控件，二个都是repeater控件：）

Answer 3

1. XML 文档操作 
  1.1 加载一个XML文档 
  Dim objDoc As New XmlDocument() 
  '-- Load xml document Sample.xml 
  objDoc.Load("Sample.xml") 
   
  1.2 加载一个XML数据 
   Dim objDoc As New XmlDocument() 
   Dim strXML As String 
   strXML = "<Employees><Employee id=”12345”><Employee_ID>12345</Employee_ID><Name>Zhang Bin</Name></Employee></Employees>" 
   
   '-- Load xml data 
   objDoc.Load(strXML) 
   
  1.3 保存文档 
  '—Save xml document 
  objDoc.Save("Sample.xml") 
   
  2 XML 数据的查询 
  最常见的XML数据类型有：Element, Attribute，Comment, Text. 
  Element, 指形如<Name>Tom<Name>的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference. 
  Attribute, 指在<Employee id=”12345”>中的粗体部分。 
  Comment，指形如：<!-- my comment --> 的节点。 
  Text，指在<Name>Tom<Name>的粗体部分。 
  在XML中，可以用XmlNode对象来参照各种XML数据类型。 
  2.1 查询已知绝对路径的节点（集） 
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee”) 
  或者 
  objNodeList = objNode.SelectNodes(“/Company/Department/Employees/Employee”) 
  以上两种方法可返回一个NodeList对象，如果要返回单个节点可使用SelectSingleNode方法，该方法如果查询到一个或多个节点，返回第一个节点；如果没有查询的任何节点返回 Nothing。例如： 
  objNode = objNode.SelectSingleNode(“/Company/Department/Employees/Employee”) 
  If Not (objNode is Nothing) then 
   ‘- Do process 
  End If 
  2.2 查询已知相对路径的节点（集） 
  可使用类似于文件路径的相对路径的方式来查询XML的数据 
  objNode = objDoc.SelectSingleNode(“Company/Department”) 
  objNodeList = objNode.SelectNodes(“../Department) 
  objNode = objNode.SelectNode(“Employees/Employee”) 
  2.3 查询已知元素名的节点（集） 
  在使用不规则的层次文档时，由于不知道中间层次的元素名，可使用//符号来越过中间的节点，查询其子，孙或多层次下的其他所有元素。例如： 
  objNodeList = objDoc.SelectNodes(“Company//Employee”) 
  2.4 查询属性（attribute）节点 
  以上的各种方法都返回元素（element)节点（集），返回属性（attribute），只需要采用相应的方法，在属性名前加一个@符号即可，例如： 
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee/@id”) 
  objNodeList = objDoc.SelectNodes(“Company//@id”) 
  2.5 查询Text节点 
  使用text()来获取Text节点。 
  objNode = objDoc.SelectSingleNode(“Company/Department/Deparmt_Name/text()”) 
  2.6 查询特定条件的节点 
  使用[]符号来查询特定条件的节点。例如： 
  a. 返回id号为 10102的Employee节点 
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee[@id=’10102’]”) 
  b. 返回Name为Zhang Qi的Name 节点 
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee/Name[text()=’Zhang Qi’]”) 
  c. 返回部门含有职员22345的部门名称节点 
  objNode = objDoc.SelectSingleNode("Company/Department[Employees/Employee/@id='22345']/Department_Name") 
  2.7 查询多重模式的节点 
  使用 | 符号可以获得多重模式的节点。例如： 
  objNodeList = objDoc.SelectNodes(“Company/Department/Department_Name | Company/Department/Manager”) 
  2.8 查询任意子节点 
  使用*符号可以返回当前节点的所有子节点。 
  objNodeList = objDoc.SelectNodes(“Company/*/Manager) 
  或者 
  objNodeList = objNode.ChildNodes 
   
  3 XML数据的编辑 
  3.1 增加一个元素的属性（attribute）节点 
  Dim objNodeAttr As XmlNode 
   objNodeAttr = objDoc.CreateAttribute("id", Nothing) 
   objNodeAttr.InnerXml = "101" 
  objNode.Attributes.Append(objNodeAttr) 
  3.2 删除一个元素的属性 
  objNode.Attributes.Remove(objNodeAttr) 
  3.3 增加一个子元素（Element） 
  Dim objNodeChild As XmlNode 
  objNodeChild = objDoc.CreateElement(Nothing, "ID", Nothing) 
  objNodeChild.InnerXml = "101" 
  objNode.AppendChild(objNodeChild) 
  3.4 删除一个子元素 
  objNode.RemoveChild(objNodeChild) 
  3.5 替换一个子元素 
  objNOde.ReplaceChild(newChild,oldChild) 
   
  4 参考数据 
  <?xml version="1.0" encoding="UTF-8"?> 
  <Company> 
   <Department id="101"> 
   <Department_Name>Cai WuBu</Department_Name> 
   <Manager>Zhang Bin</Manager> 
   <Employees> 
   <Employee id="12345"> 
   <Employee_ID>12345</Employee_ID> 
   <Name>Zhang Bin</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="10101"> 
   <Employee_ID>10101</Employee_ID> 
   <Name>Zhang QI</Name> 
   <Gender>female</Gender> 
   </Employee> 
   <Employee id="10102"> 
   <Employee_ID>10102</Employee_ID> 
   <Name>Zhang Xia</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="10201"> 
   <Employee_ID>10201</Employee_ID> 
   <Name>ZhangChuang</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="10202"> 
   <Employee_ID>10202</Employee_ID> 
   <Name>Zhang Jun</Name> 
   <Gender>male</Gender> 
   </Employee> 
   </Employees> 
   </Department> 
   <Department id="102"> 
   <Department_Name>KaiFa Bu</Department_Name> 
   <Manager>Wang Bin</Manager> 
   <Employees> 
   <Employee id="22345"> 
   <Employee_ID>22345</Employee_ID> 
   <Name>Wang Bin</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="20101"> 
   <Employee_ID>20101</Employee_ID> 
   <Name>Wang QI</Name> 
   <Gender>female</Gender> 
   </Employee> 
   <Employee id="20102"> 
   <Employee_ID>20102</Employee_ID> 
   <Name>Wang Xia</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="20201"> 
   <Employee_ID>20201</Employee_ID> 
   <Name>Wang Chuang</Name> 
   <Gender>male</Gender> 
   </Employee> 
   <Employee id="20202"> 
   <Employee_ID>20201</Employee_ID> 
   <Name>Wang Jun</Name> 
   <Gender>male</Gender> 
   </Employee> 
   </Employees> 
   </Department> 
  </Company> 

Answer 4

本人站点留言的例子
     <asp:Repeater id="ShowComments" runat="server">
        <ItemTemplate>
          <tr bgcolor="#FFD780">
            <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
            <td width="33%">评论人：<b><%# (string)DataBinder.Eval(Container.DataItem, "UserName")%></b></td>
            <td>电子邮件：<b><%# HttpContext.Current.Server.HtmlEncode((string)DataBinder.Eval(Container.DataItem, "email")).Replace("@","＠").Replace(".","．") %></b></td>
            <td width="33%">评论日期：<%# DataBinder.Eval(Container.DataItem, "CreateDate","{0:yyyy年MM月dd日 hh:mm:ss}") %></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
            <td colspan="3"><%# DataBinder.Eval(Container.DataItem, "Content").ToString().Replace("\r\n","<br>").Replace(" ","&nbsp;") %></td>
          </tr>
          <tr bgcolor="#f46240">
            <td width="20" bgcolor="#FFFFFF" height="1"></td>
            <td colspan="3" height="1"></td>
          </tr>
        </ItemTemplate>
        <HeaderTemplate>
          <table border="0" cellpadding="2" cellspacing="1" align="center" bgcolor="" width="100%"
            style="word-wrap:break-word;word-break:break-all;font-size:9pt">
            <tr bgcolor="#FF9801">
              <td colspan="4"><b>&nbsp;&nbsp;本文评论(Comments)：</b>为了保护您的电子邮件不被骚扰，地址中的个别符号转换成了全角字符！</td>
            </tr>
        </HeaderTemplate>
        <FooterTemplate>
          </table>
        </FooterTemplate>
      </asp:Repeater>
      <table cellSpacing="1" width="100%" bgColor="#ffd780">
        <tr>
          <td style="FONT-SIZE: 9pt" height="22"><b>&nbsp;&nbsp;发表评论(Add Comments)</b> [注意：如果您输入电子邮件，将有利于您得到及时的回复。]<font color="red" size="font-size:9pt">【请勿发表国家法律不允许的言论，谢谢！！】</font></td>
        </tr>
        <tr bgcolor="#ffffff">
          <td>
            <asp:TextBox Runat="Server" Rows="5" TextMode="MultiLine" ID="Comments"></asp:TextBox>
          </td>
        </tr>
        <tr bgcolor="#ffffff">
          <td align="middle" style="font-size:9pt">
            用户名：<asp:TextBox Runat="server" ID="UserName" MaxLength="25" BorderWidth="1" BorderColor="gray" Height="18"
              Width="220px"></asp:TextBox>
            电子邮件：<asp:TextBox Runat="server" ID="email" MaxLength="25" BorderWidth="1" BorderColor="gray" Height="18"
              Width="220px"></asp:TextBox>
            <asp:Button Runat="server" Text="发表评论" ID="AddComments" Height="20" BackColor="#cfd5e5" />
          </td>
        </tr>
      </table>

Answer 5

http://www.wqds.gov.cn/webdiyer/files.asp