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

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

用ASP.Net編寫留言本

發表時間：2024-02-05 來源：明輝站整理相關軟件相關文章人氣：

[摘要]1、用Access建造一個數據庫data.mdb，建立表Guest,結構如下: 　　ID 自動編號 　　標題 字符串 　　署名 字符串 　　正文 備注。 2、guest.aspx <%@ Import Namespace="System.Data" %> ...
1、用Access建造一個數據庫data.mdb，建立表Guest,結構如下:
　　ID 自動編號
　　標題 字符串
　　署名 字符串
　　正文 備注。
  2、guest.aspx
  <%@ Import Namespace="System.Data" %>
  <%@ Import Namespace="System.Data.OleDb" %>
  <html><head>
  <style>
  <!--
  body{font-size:9pt}
  p{font-size:9pt}
  td{font-size:9pt}
  //-->
  </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）
  <html><head>
  <style>
  <!--
  body{font-size:9pt}
  p{font-size:9pt}
  td{font-size:9pt}
  //-->
  </style>
  <title>察看留言</title></head>
  <body>
  <p align=right><font size=6>察看留言</font></p>
  <%
  id=request("id")
  set cn=server.createobject("ADODB.CONNECTION")
  cn.open "DBQ=" + server.mappath("data.mdb") + ";DefaultDir=; DRIVER={Microsoft Access Driver (*.mdb)};"
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from guest where id=" & id , cn
  %>
  ID:<% = id %><BR>
  標題:<% = rs("標題") %><br>
  署名:<% = rs("署名") %><br>
  內容:<Br><% = rs("內容") %><br>
  <a href="guest.aspx">返回</a>



主站蜘蛛池模板： 色老成人精品视频在线观看 | 日本不卡视频一区二区三区 | 亚洲欧美日韩在线精品一区二区 | 婷婷六月天激情 | 婷婷综合久久中文字幕一本 | 欧美综合图区亚欧综合图区 | 青青热久久国产久精品 | 欧美一级片网 | 亚洲专区在线播放 | 色吊丝国产永久免费网址 | 午夜神器成在线人成在线人免费 | 性做久久久久久 | 亚洲春色第一页 | 青青在线国产视频 | 在线免费h视频 | 日本激情视频在线观看 | 中日韩国语视频在线观看 | 亚洲欧美久久婷婷爱综合一区天堂 | 日本天堂在线 | 婷婷综合 在线 | 日韩99| 欧洲一级做a爱在线观看 | 亚洲 国产 图片 | 添人人躁日日躁夜夜躁夜夜揉 | 伊人久久婷婷丁香六月综合基地 | 偷偷干夜夜拍 | 欧美一级日韩 | 一二三四影院网在线观看免费 | 亚洲xx在线 | 日本亚洲乱码中文字幕影院 | 自拍三区 | 香蕉视频久久久 | 日韩在线a视频免费播放 | 午夜视频在线观看完整高清在线 | 中文字幕第九页 | 日本精品久久久久久久 | 天天躁夜夜躁很很躁麻豆 | 色综合欧美| 日本免费一区二区三区看片 | 亚洲高清视频一区 | 色噜噜综合网 |