用ASP.Net編寫留言本_自動測試腳本語言

用ASP.Net編寫留言本

發表于：2007-07-14來源：作者：點擊數：標簽：

1、用Access建造一個數據庫 data.mdb，建立表Guest,結構如下: ID 自動編號標題字符串署名字符串正文備注。 2、guest.aspx %@ Import Namespace="System.Data" % %@ Import Namespace="System.Data.OleDb" % htmlhead style !-- body{font-size:9pt} p

1、用Aclearcase/" target="_blank" >ccess建造一個數據庫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）
  <html><head>
  <style>
  
  </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>

原文轉自：http://www.kjueaiud.com

軟件測試 > 測試開發技術 > 軟件測試開發語言 > 自動測試腳本語言 >