ASP.Net/Components/Add Link

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Add Link Form Demo (VB.net)

   <source lang="csharp">

<%-- Code revised from ASP.NET Tips & Techniques (Paperback) by Greg Buczek

  1. Publisher: McGraw-Hill/Osborne Media; 1st edition (May 21, 2002)
  2. Language: English
  3. ISBN: 0072225149

--%>


<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 

   Dim DBConn as OleDbConnection
   Dim DBCommand As OleDbDataAdapter
   Dim DSPageData as New DataSet
   DBConn = New OleDbConnection( _
       "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
       & "DATA SOURCE=" _
       & Server.MapPath _
       ("LinksDB.mdb;"))
   DBCommand = New OleDbDataAdapter _
       ("Select "<A HREF=""" & TheLink & """>" " _
       & "& LinkTitle & "</A>" as [Link], " _
       & "LinkDescription as [Description] From Links " _
       & "Order By LinkTitle", DBConn)
   DBCommand.Fill(DSPageData, _
       "Links")
   dgLinks.DataSource = _
       DSPageData.Tables("Links").DefaultView
   dgLinks.DataBind()

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Links Page</TITLE> </HEAD> <Body LEFTMARGIN="40"> <form runat="server">

<asp:label 

   id="lblMessage1" 
   font-size="12pt"
   font-bold="True"
   font-name="Lucida Console"
   text="Current Links List"
   runat="server"

/>

<asp:datagrid 

   id="dgLinks" 
   runat="server" 
   autogeneratecolumns="True"

/>

<A HREF="./addlink.aspx">Add a Link</A> </form> </BODY> </HTML>

<%-- File: addLink.aspx <%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub SubmitBtn_Click(Sender As Object, E As EventArgs) 

   Dim DBConn as OleDbConnection
   Dim DBAdd As New OleDbCommand
   DBConn = New OleDbConnection( _
       "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
       & "DATA SOURCE=" _
       & Server.MapPath _
       ("LinksDB.mdb;"))
   DBAdd.rumandText = "Insert Into Links " _
       & "(LinkTitle, TheLink, LinkDescription) " _
       & "values (" _
       & """ & Replace(txtLinkTitle.Text, """, """") _
       & "", " _
       & """ & Replace(txtTheLink.Text, """, """") _
       & "", " _
       & """ & Replace(txtLinkDescription.Text, """, """") _
       & "")"
   DBAdd.Connection = DBConn
   DBAdd.Connection.Open
   DBAdd.ExecuteNonQuery()
   Response.Redirect("./links.aspx")

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Add Link</TITLE> </HEAD> <form runat="server"> <asp:Label 

   id="lblMessage" 
   Font-Size="12pt"
   Font-Name="Tahoma"
   runat="server"
   Text="Complete each field to submit your link."

/>

Link Title:

<asp:textbox 

   id="txtLinkTitle" 
   columns="25"
   maxlength="50"
   runat=server

/>

Link Address:

<asp:textbox 

   id="txtTheLink" 
   columns="25"
   maxlength="100"
   runat=server

/>

Link Description:

<asp:textbox 

   id="txtLinkDescription" 
   columns="25"
   maxlength="255"
   runat=server

/>

<asp:button 

   id="butOK"
   text="  OK  "
   OnClick="SubmitBtn_Click" 
   runat="server"

/> </form> </BODY> </HTML> --%> 

      </source>

<A href="http://www.nfex.ru/Code/ASPDownload/LinksDB.zip">LinksDB.zip( 8 k)</a>

Источник — «http://www.nfex.ru/index.php?title=ASP.Net/Components/Add_Link&oldid=1953»