<!--编号模版-->
<template name="HeaderTemplate" >
<asp:LinkButton id="Tosay" runat="server" Text="我要发言" ForeColor="#ffffff"/>
<a href="temp.aspx"><font color="#ffffff">刷新界面</font></a>
<asp:LinkButton id="Mange" runat="server" Text="管理留言" ForeColor="#ffffff"/>
</template>

<!--内容模版-->
<template name="ItemTemplate">
<%# Container.DataItem("book_id")%>
<%# Container.DataItem("content")%>
<asp:LinkButton id="Detail" runat="server" Text="查看详细内容" ForeColor="#333333"/>
</template>

<!--查看留言模版-->
<template name="SelectedItemTemplate">
编号: <%# Container.DataItem("book_id")%><BR>
发言人: <%# Container.DataItem("username")%><BR>
时间: <%# Container.DataItem("post_time")%><BR>
内容: <%# Container.DataItem("content")%><BR>
<div align="right"><asp:LinkButton id="Title" runat="server" Text="关闭" ForeColor="#333333"/></div>
</template>

</asp:DataList>
<table id="foot" cellspacing=0 cellpadding=0 width="776" border=0 runat="server" visible="false">
<tr>
<td bgcolor=#000000>
<table cellspacing=1 cellpadding=3 width="100%" border=0>
<tr bgcolor=#ffffff>
<td>大名：<Input Type="Text" id="Username" Size=20 runat="server" /><br>
留言：<Input Type="Text" id="Content" Size=20 runat="server" />
<asp:LinkButton id="save" runat="server" Text="保存" OnClick="LinkButton1_Click" AutoPostBack/><br>
<asp:LinkButton id="close" runat="server" Text="关闭" OnClick="LinkButton2_Click"/></td>
</tr>
</table>
</td>
</tr>
</table>

<table cellspacing=0 cellpadding=0 width="776" border=0>
<tr>
<td width="98%" bgcolor=#333333 align="center"><font face=宋体 color=#ffffcc><b> 　　　留言本</b></font></td>
<td width="2%"><img height=20 src="http://www.newasp.net/Article/net/integrated/2005/images/dn.gif" width=16></td>
</tr>
</table>

</Form>
<hr>

<asp:Label id="Label1" runat="server" />
</Body>
</Html>

<&#115cript Language="VB" runat="server">

Sub Page_Load(sender As Object, e As EventArgs)
DataList1.DataSource = CreateDataView( "data.mdb", "guestbook" )
DataList1.DataBind()
End Sub

Function CreateDataView( Db As String, Table As String ) As DataView
Dim Provider, ConnStr, SQL As String
Provider = "Microsoft.Jet.OLEDB.4.0;"
ConnStr = "Provider=" & Provider & _
"Data Source=" & Server.MapPath( Db )
Dim Cmd As ADODataSetCommand
Cmd = New ADODataSetCommand( "Select * from " & Table &" Order By post_time DESC", ConnStr )
Dim ds As DataSet = new DataSet()
Cmd.FillDataSet(ds, Table)
CreateDataView = new DataView(ds.Tables(Table))
End Function

Sub DataList_ItemCommand(sender As Object, e As DataListCommandEventArgs)
select case e.CommandSource.Text
case "我要发言"
foot.Visible = true

case "管理留言"

case "查看详细内容"
DataList1.SelectedIndex = e.Item.ItemIndex '查看留言模版被选中
case "关闭"
DataList1.SelectedIndex = -1
end select
DataList1.DataSource = CreateDataView( "data.mdb", "guestbook" )
DataList1.DataBind()
End Sub
Sub LinkButton2_Click(sender As Object, e As EventArgs)
foot.Visible = false
End Sub

Sub LinkButton1_Click(sender As Object, e As EventArgs)
Dim ConnStr, SQL As String
SQL = "Insert Into GuestBook (userName,post_time,content) Values ('"& Username.Value &"','"& DateTime.Now &"','"& Content.Value &"')"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath( "data.mdb" )
Dim Cmd As ADOCommand = New ADOCommand( SQL, ConnStr )
Cmd.ActiveConnection.Open()
Cmd.Execute()
Message.InnerHtml = "<B>留言成功！</B>"
foot.Visible = false
Page.Navigate("temp.aspx")
End Sub
</&#115cript&gt;</P> <P>研究了好长时间，可最后那句Page.Navigate("temp.aspx")还是达不到及时刷新的效果：（，看精华区有篇C#编的是在PAGE_LOAD事件里面接收REQUEST.FORM对象后INSERT立即更新DATESET,不知道我这个怎么弄好...<br></P></font></div> <div></div> </div><div id="Message" class="Message"></div></font></div> <div></div> </td> <table width="575" border="0" cellpadding="0" cellspacing="0"> <tr> </tr> <tr> <td align="right" height=25 bgcolor=#F7F7F7 > <script type='text/javascript'> var __sogou_ad = new Array(); __sogou_ad["pid"] = 'jz123'; __sogou_ad["fmt"] = 'h_468_90' __sogou_ad["iw"] = '468'; __sogou_ad["ih"] = '90'; __sogou_ad["charset"] = 'gb2312'; __sogou_ad["c_bo"] = 'ACD8FF'; __sogou_ad["c_bg"] = 'F0F8FF'; __sogou_ad["c_li"] = '0434CF'; __sogou_ad["c_te"] = '000000'; __sogou_ad["c_bb"] = 'ACD8FF'; </script> <script src='http://images.sohu.com/cs/jsfile/js/SogouUnionCPC.js'></script> [<a href=javascript:window.print()>打 印</a>] </tr> </table> <table width="575" border="0" cellpadding="0" cellspacing="0"> <tr> </tr> <tr> <td align="right" height=25 bgcolor=#F7F7F7 style="display:block;padding:0px 10px"> <font color=#000000>[<script language=JavaScript src="/Article/Hits.Asp?ArticleID=5086"></script>]</font> [<a href="javascript:history.go(-1)">返回上一页</a>] [<a href="/user/favorite.asp?action=add&topic=用DataList 控制元件开发的一个简单的留言本程序">收 藏</a>]</td> </tr> <tr> <table width="575" border="0" cellpadding="0" cellspacing="0"> <tr> </tr> <tr> <td style="display:block;padding:0px 10px"><div><font color=#000000>上一篇文章：</font><a href=/Article/10/131/2005/200507205085.html>关于如何读取别人的网站使用NGWS NET classes</a></div><div><font color=#000000>下一篇文章：</font><font color=#000000><a href=/Article/10/131/2005/200507205087.html>如何使用C#访问POP3服务器</a></font></div></td> </tr> </table> <table width="575" border="0" cellpadding="0" cellspacing="0"> <tr> <td class="titlebg1">∷相关文章评论∷　　 　（评论内容只代表网友观点，与本站立场无关！） [<a href=/Article/comment.asp?ArticleID=5086 target=_blank>更多评论</a>...]</td> </tr> <tr valign="top"> <td></td> </tr> </table> </td> </tr> </table> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder"> <tr> <td height="23" align="right"> <table width="100%" border="0" cellspacing="0" class="tablebody8" cellpadding="0"> <tr> <td height="5"></td> </tr> <tr> <td height="23" align="right" valign="middle"><center><a href="/support/about.asp" class="navmenu2">关于本站</a> - <a href="/support/help.asp" class="navmenu2">网站帮助</a> - <a href="/support/advertise.asp" class="navmenu2">广告合作</a> - <a href="/support/declare.asp" class="navmenu2">下载声明</a> - <a href="/link/" target="_blank" class="navmenu2">友情连接</a> - <a href="/support/sitemap.asp" class="navmenu2">网站地图</a> - <a href="#" target="_blank" class="navmenu2">人才招聘</a> </tr> </table></td> </tr> <tr> <td height="1"></td> </tr> </table> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder"> <tr> <td height="60" align="center" class="tablebody1">网站合作、内容监督、商务咨询：QQ: 9576619 <br> Copyright ? 2005--2008 中国建站之家版权所有 <br> 未经授权禁止转载、摘编、复制或建立镜像.如有违反，追究法律责任. <br> 免责申明：中国建站之家(www.jz123.cn)上的所有提供下载的软件和资源<br>均来源于网络，为软件或程序作者提供和网友推荐收集整理而来，仅供学习<br>和研究使用。如有侵犯你的版权，请立即联系我们，本站将在3个工作日内删除。 <br><a href="http://www.miibeian.gov.cn" target="_blank" title="粤ICP备05092265号"><font color=#000000>粤ICP备05092265号 </font><br><script src='http://s6.cnzz.com/stat.php?id=44148&web_id=44148&show=pic' language='JavaScript' charset='gb2312'></script> </td> <script language="javascript" src="/inc/Std_StranJF.Js"></script> </table> </body> </html> <span id="naruco_ad_body" style="display:none;"> <script language=javascript src=/adfile/top.js></script> </span> <script type="text/javascript"> var naruco_ad = document.getElementById('naruco_ad'); if (naruco_ad != null) { naruco_ad.innerHTML=naruco_ad_body.innerHTML; naruco_ad_body.innerHTML=""; } </script>