- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
[摘要]<%@ 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,不知道我这个怎么弄好...
推荐资讯 总人气榜
最新教程 本月人气
- 1Php调用Unix/Linux命令举例
- 2从VB中调入Outlook的高级电子邮件与文件夹技巧
- 3对于在ORACLE下开发JAVA的几个问题
- 4对于ASP源码暴露的补丁 (MS,补丁)
- 5JUnit使用经验(1) -- 转自PMT杂志
- 6VB.NET中的变量范围差异
- 7C++编程人员容易犯的10个C#错
- 8PHP完成文件下载
- 9动网论坛上传文件漏洞的原理以及攻击的代码完成
- 10PHP4实际应用经验篇
- 11用C#写vs插件中的一些Tip
- 12在ASP中取得服务器网卡的MAC地址、DNS地址等网络信息
- 1htc one max真机开箱试玩视频
- 2斗鱼tv直播yy多少 斗鱼tv直播yy频道
- 3lumia920 Amber更新新增技巧演示视频
- 43星s5电信版支持4g吗？3星galaxy s5电信版支持4g网络吗？
- 5锤子手机支持4g网络？锤子手机是否支持4g？
- 6剑灵玩的酷管家靠得住活动网址 启用管家锁得好礼
- 7剑灵进击的海盗活动网址 神兵图录之进击的海盗奖励领取地址
- 8魅族mx4设置如何？魅族mx4设置参数评测
- 9魅族mx4指纹识别如何用？魅族mx4指纹识别使用图文说明教程
- 10魅族mx4哪一个版本好？魅族mx4版本区别比较
- 11京东通信官网 京东通信网上营业厅网址
- 12小米3 art模式如何开？小米3打开art模式图文说明教程
