<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
' bind the data grid to the data
DataList1.DataSource=createdataview("Northwind.mdb","guestbook")
DataList1.DataBind()
End Sub
function createdataview( db as string , table as string ) as dataview
Dim connectionString As String
Dim queryString As String
Dim data As New DataSet()
Dim dbConnection As OleDbConnection
Dim dataAdapter As OleDbDataAdapter
' set the connection and query details
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath(db)
queryString = "SELECT*FROM"&table
' open the connection and set the command
dbConnection = New OledbConnection(connectionString)
dataAdapter = New OledbDataAdapter(queryString, dbConnection)
' fill the dataset with the data
Dim ds as DataSet = New DataSet()
dataAdapter.Fill(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 "I want to say"
foot.visible = true
case "read the content"
DataList1.SelectedIndex = E.Item.ItemIndex
case "close"
DataList1.SelectedIndex = -1
end select
DataList1.DataSource=createdataview("Northwind.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 connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\BegASPNET11\"& _
"lyb\Northwind.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "INSERT INTO [guestbook] ([username], [post_time], [content]) VALUES (Username.Val"& _
"ue, DataTime.Now, Content.Value)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
dbConnection.Open
dbCommand.ExecuteNonQuery
dbConnection.Close
Message.InnerHtml="<b>OK!</b>"
foot.Visible = false
End Sub
</script>
<html>
<head>
<title>guestbook</title>
</head>
<body>
<div id="Message" runat="server">
</div>
<h3>留言本
</h3>
<form runat="server">
<asp:DataList id="DataList1" runat="server" OnItemCommand="DataList_ItemCommand">
<Headertemplate>
<asp:LinkButton id="Tosay" runat="server" Text="I want to say" />
<a href="lyb.aspx">flash</a>
</Headertemplate>
<ITEMtemplate>
<%# Container.DataItem("book_id") %> <%# Container.DataItem("content") %>
<asp:LinkButton id="detail" runat="server" Text="read the content" />
</ITEMtemplate>
<SELECTEDITEMtemplate>
ID:<%# Container.DataItem("book_id") %>
<br />
name:<%# Container.DataItem("username") %>
<br />
time:<%# Container.DataItem("post_time") %> content:<%# Container.DataItem("content") %>
<div align="right">
<asp:LinkButton id="title" runat="server" Text="close"></asp:LinkButton>
</div>
</SELECTEDITEMtemplate>
</asp:DataList>
<table id="foot" runat="server" visible="false">
<tbody>
<tr>
<td>
<p>
name:
<input id="username" type="text" name="username" />
</p>
<p>
content:
</p>
<textarea id="content" name="content"></textarea>
<asp:LinkButton id="save" onclick="LinkButton1_Click" runat="server">save</asp:LinkButton>
<p>
<asp:LinkButton id="close" onclick="LinkButton2_Click" runat="server">close</asp:LinkButton>
</p>
</td>
</tr>
</tbody>
</table>
</form>
<hr />
<asp:Literal id="Literal1" runat="server"></asp:Literal>
<hr />
</body>
</html>
加好友 
发短信
Post By：2005/3/4 0:12:15
ぁ邊走邊愛ベ
