六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

用DataList 控制元件開發的一個容易的留言本程序

發表時間：2024-02-06 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.ADO" %><Html><Body BgColor="Whit...
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.ADO" %>
<Html>
<Body BgColor="White">
<H3>DataList 控制元件<HR></H3>
<div id=Message runat=server></div>
<Form runat="server">
<table cellspacing=0 cellpadding=0 width="776" border=0>
<tr>
<td width="2%"><img height=20 src="http://edu.chinaz.com/Get/Program/Net/images/up.gif" width=16></td>
<td width="98%" bgcolor=#333333 align="center"><font face=宋體 color=#ffffcc><b>留言本</b></font></td>
</tr>
</table>
<asp:DataList id="DataList1" runat="server"
Border="1" BorderColor="Black"
CellPadding="2" CellSpacing="0"
HeaderStyle-BackColor="#888888"
ItemStyle-BackColor="#eeeeee"
SelectedItemStyle-BackColor="#ffffff"
HeaderTemplate-ColSpan="3"
OnItemCommand="DataList_ItemCommand"
Width="776">

<!--編號模版-->
<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://edu.chinaz.com/Get/Program/Net/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 "我要發言"
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
</script>

研究了好長時間，可最后那句Page.Navigate("temp.aspx")還是達不到及時刷新的效果：（，看精華區有篇C#編的是在PAGE_LOAD事件里面接收REQUEST.FORM對象后INSERT立即更新DATESET,不知道我這個怎么弄好...
主站蜘蛛池模板： 香蕉在线观看999 | 综合久久综合 | 日韩色视频在线观看 | 欧美野外多人交3 | 亚洲第一区精品观看 | 青草福利视频 | 啪啪免费网| 综合88 | 日本免费高清 | 日韩毛片免费线上观看 | 天天爱添天天爱添天天爱添 | 欧美性猛交一区二区三区 | 天天看片天天干 | 欧美在线观看一区二区三区 | 亚洲成人第一 | 青青草原免费在线视频 | 人成精品 | 亚洲男女网站 | 日本一本久道 | 亚洲图片综合区另类图片 | 日本成人在线免费 | 天天躁夜夜躁狂狂躁综合 | 日日摸人人拍人人澡 | 在线观看亚洲精品专区 | 亚洲国产成人久久精品影视 | 香蕉狠狠干 | 欧美自拍亚洲 | 青娱极品盛宴国产精品分类 | 日本xxx在线观看免费播放 | 欧美写真视频一区 | 日本福利在线 | 日本一区不卡在线观看 | 欧美在线高清视频播放免费 | 日韩视频在线免费 | 天天看毛片 | 亚洲第一影视 | 日韩专区视频 | 人妖欧美一区二区三区四区 | 午夜资源在线 | 日日爱影视 | 日韩精品免费一线在线观看 |