直播中
工作時(shí)間
9:00 18:00
<!--編號(hào)模版-->
<template name="HeaderTemplate" >
<asp:LinkButton id="Tosay" runat="server" Text="我要發(fā)言" ForeColor="#ffffff"/>
<a href="temp.aspx"><font color="#ffffff">刷新界面</font></a>
<asp:LinkButton id="Mange" runat="server" Text="管理留言" ForeColor="#ffffff"/>
</template>
<!--內(nèi)容模版-->
<template name="ItemTemplate">
<%# Container.DataItem("book_id")%>
<%# Container.DataItem("content")%>
<asp:LinkButton id="Detail" runat="server" Text="查看詳細(xì)內(nèi)容" ForeColor="#333333"/>
</template>
<!--查看留言模版-->
<template name="SelectedItemTemplate">
編號(hào): <%# Container.DataItem("book_id")%><BR>
發(fā)言人: <%# Container.DataItem("username")%><BR>
時(shí)間: <%# Container.DataItem("post_time")%><BR>
內(nèi)容: <%# Container.DataItem("content")%><BR>
<div align="right"><asp:LinkButton id="Title" runat="server" Text="關(guān)閉" 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="關(guān)閉" 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="images/dn.gif" width=16></td>
</tr>
</table>
</Form>
<hr>
<asp:Label id="Label1" runat="server" />
</Body>
</Html>
<script 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 "我要發(fā)言"
foot.Visible = true
case "管理留言"
case "查看詳細(xì)內(nèi)容"
DataList1.SelectedIndex = e.Item.ItemIndex '查看留言模版被選中
case "關(guān)閉"
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
</script>
研究了好長時(shí)間，可最后那句Page.Navigate("temp.aspx")還是達(dá)不到及時(shí)刷新的效果：（，看精華區(qū)有篇C#編的是在PAGE_LOAD事件里面接收REQUEST.FORM對(duì)象后INSERT立即更新DATESET,不知道我這個(gè)怎么弄好...
桂公網(wǎng)安備45010502000253號(hào)
電子營業(yè)執(zhí)照
