實例編程：用ASP.Net和Access編寫留言本

2024-07-10 13:07:44

字體：大中小

來源：轉載

供稿：網友

　1、用access建造一個數據庫data.mdb，建立表guest,結構如下:

　　id 自動編號
　　標題字符串
　　署名字符串
　　正文備注。

2、guest.aspx

<%@ import namespace="system.data" %>
  <%@ import namespace="system.data.oledb" %>
  <html><head>
  <style>
  
  </style>
  <title>留言本</title></head>
  <body>
  <p align=right><font size=6>留言本</font></p>
  <script language=vb runat=server>
  sub page_load(source as object, e as eventargs)
   dim myconn as new oledbconnection("provider=microsoft.jet.oledb.4.0 ;data source=" & server.mappath("data.mdb"))
   dim myadapter as new oledbdataadapter
   dim myoledbcommandbuilder as oledbcommandbuilder = new oledbcommandbuilder(myadapter)
   dim ds as dataset = new dataset
   myadapter.selectcommand = new oledbcommand("select id, 標題, 署名 from guest order by id desc", myconn)
   myconn.open()
   myadapter.fill(ds, "guest")
   ml.datasource=ds.tables("guest").defaultview
   ml.databind()
  end sub
  </script>
   <asp:datagrid id="ml" runat="server"
   width="100%"
   bordercolor="black"
   showfooter="false"
   cellpadding=3
   cellspacing="0"
   font-name="宋體"
   font-size="9pt"
   headerstyle-backcolor="#ddaacc"
   enableviewstate="false"
   >
  <columns>
   <asp:hyperlinkcolumn
   datanavigateurlfield="id"
   datanavigateurlformatstring="see.asp?id={0}"
   text="see!"
   target="_new"
   />
  </columns>

  </asp:datagrid>
  <br><br><font size=5>我要留言</font><br>
  <form method=post action=send.aspx>
  標題:<input type=text name=title><br>
  署名:<input type=text name=name><br>
  內容:<textarea name=body></textarea><br>
  <input type=submit>
  </form>

3、send.aspx

  <%@ import namespace="system.data" %>
  <%@ import namespace="system.data.oledb" %>
  <script language=vb runat=server>
  sub page_load(source as object, e as eventargs)
   dim myconn as new oledbconnection("provider=microsoft.jet.oledb.4.0 ;data source=" & server.mappath("data.mdb"))
   dim myinsertquery as string = "insert into guest (標題, 署名, 內容) values (@#" & request("title") & "@#, @#" & request("name") & "@#, @#" & request("body") & "@#)"
   dim myoledbcommand as new oledbcommand(myinsertquery)
   myoledbcommand.connection = myconn
   myconn.open()
   myoledbcommand.executenonquery()
   myoledbcommand.connection.close()
   response.redirect("guest.aspx")
  end sub
  </script>

4、see.asp（顯示單個數據不如用asp）