| 以文本方式查看主题 - 堕落街论坛 (http://duoluojie.1314179.com.cn:443/index.asp) -- 游戏体育 (http://duoluojie.1314179.com.cn:443/list.asp?boardid=331) ---- 留言本代码 (http://duoluojie.1314179.com.cn:443/dispbbs.asp?boardid=331&id=59238) |
| -- 作者：万金油 -- 发布时间：2005/3/4 0:12:15 -- 留言本代码 <%@ 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> |
| -- 作者：万金油 -- 发布时间：2005/3/4 0:16:06 -- 数据库Northwind.mdb 表guestbook结构 book_id username post_time content |
| -- 作者：边走边爱 -- 发布时间：2005/3/4 13:03:22 -- 安装论坛程序不更好用````` |
| -- 作者：我最简单 -- 发布时间：2005/3/4 21:36:27 -- 最好把你的文件名分开注名 并说明安装和配置方法,那样或许好些 |