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

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

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

[摘要]<%@ 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,不知道我這個怎么弄好...





主站蜘蛛池模板: 日韩第六页 | 一区二区网站在线观看 | 性欧美大战久久久久久久野外 | 视频一区二区不卡 | 亚洲男人的天堂在线视频 | 在线精品亚洲 | 图片区亚洲 | 欧美亚洲春色系列 | 日韩日韩日韩手机看片自拍 | 日本视频在线 | 日韩精品一区二区三区乱码 | 新香蕉视频在线 | 亚洲视频在线观 | 中文在线观看免费网站 | 婷婷5月天 | 日韩精品视频美在线精品视频 | 亚洲精品乱码久久久久久麻豆 | 四虎永久免费在线观看 | 日本精品a在线观看 | 五月香福利 | 日韩三级一区二区三区 | 欧美亚洲春色系列 | 中文字幕永久在线视频 | 日韩经典中文字幕 | 午夜色影院 | 色福利网 | 亚洲天码中文字幕第一页 | 伊人久久中文 | 天天射色综合 | 午夜精品久久久久久中宇 | 欧美性猛交xxxx | 香港三级欧美国产精品 | 天天夜夜操 | 亚洲综合精品一二三区在线 | 我看黄色一级片 | 日韩三级视频在线观看 | 亚洲欧美中日韩中文字幕 | 欧美亚洲三级 | 最新版天堂中文官网 | 日本视频一区二区免费播放 | 午夜影院在线观看视频 |