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

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

用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,不知道我這個怎么弄好...
主站蜘蛛池模板： 日韩大片在线 | 日韩国产欧美 | 日韩黄在线观看免费视频 | 欧美在线xxx | 天天干天天操天天碰 | 欧美午夜精品久久久久免费视 | 一级成人a做片免费 | 亚洲综合图色40p | 日日干天天射 | 欧美在线中文字幕高清的 | 色噜噜狠狠狠狠色综合久 | 亚洲免费高清 | 星辰影院在线观看 | 综合久色| 一二三四手机在线观看视频播放 | 天天躁狠狠躁夜躁2021 | 午夜伦伦 | 天天成人综合网 | 青草资源视频在线高清观看 | 色吧在线视频 | 日韩中文字幕精品久久 | 婷婷色香| 四虎在线精品免费高清在线 | 中文字幕免费视频精品一 | 三级经典三级日本三级欧美 | 山河令彩蛋免费播放完整版 | 午夜在线免费观看 | 特黄一级视频 | 天啪 | 在线观看 一区二区 麻豆 | 日韩手机在线 | 青青草视频国产 | 日日射夜夜操 | 欧美性群另类大交人妖 | 色播放| 日日夜夜网 | 天天影视综合色区 | 侵犯希崎中文字幕在线 | 青青青青青在线视频播放 | 亚洲啪啪网 | 亚洲欧洲eeea在线观看 |