1、添加留言
<%
 If request("action")="add"  Then
 sql="insert into liuyan(biaoti,neirong,username,ltime) values(‘"+request("textfield")+"‘,‘"+request("textfield2")+"‘,‘"+request("textarea")+"‘,‘"+request("hiddenField")+"‘)"
 response.Write(sql)
conn.execute(sql)
response.Write("<script>alert(‘留言成功!‘)</script>")
 end if
%>
2、显示留言

 <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <%set rs=server.CreateObject("adodb.recordset")
         sql="select * from liuyan order by id desc"
         rs.open sql,conn,1,1
        do while(not rs.eof)
        %>
        <tr>
          <td>留言者：<%= rs("username") %></td><td>留言时间：<%= rs("ltime") %></td>
        </tr>
        <tr>
          <td colspan="2">留言标题：<%= rs("biaoti") %></td>
        </tr>
        <tr>
           <td colspan="2">留言内容：<%= rs("neirong") %></td>
        </tr>
        <tr>
           <td colspan="2">回复时间：<%= rs("rtime") %></td>
        </tr>
        <tr>
           <td colspan="2">回复内容：<%= rs("rneirong") %></td>
        </tr>
         <hr style="color:#009900"/>
        <%
           rs.movenext
           loop
     %>
      </table>