ASP.Net/Components/Contact Page

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

Contact Page (VB.net)

   <source lang="csharp">

<%@ 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 _
       ("ContactDB.mdb;"))
   DBAdd.rumandText = "Insert Into Contacts " _
       & "(ContactName, ContactEmail, Topic, " _
       & "TheMessage, DateTimeEntered) values (" _
       & """ & Replace(txtContactName.Text, """, """") _
       & "", " _
       & """ & Replace(txtContactEmail.Text, """, """") _
       & "", " _
       & """ & ddlTopic.SelectedItem.Text & "", " _
       & """ & Replace(txtTheMessage.Text, """, """") _
       & "", Now)"
   DBAdd.Connection = DBConn
   DBAdd.Connection.Open
   DBAdd.ExecuteNonQuery()
   lblMessage.Text = "Your request has been submitted."

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Contact Us Page</TITLE> </HEAD> <form runat="server"> <asp:Label 

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

/>

Your Name:

<asp:textbox 

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

/> <asp:requiredfieldvalidator 

   id="rfvContactName"
   controltovalidate="txtContactName"
   display="Dynamic"
   font-name="Tahoma"
   font-size="10pt"
   runat=server>
   User Name is Required!

</asp:RequiredFieldValidator>

Your Email:

<asp:textbox 

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

/> <asp:requiredfieldvalidator 

   id="rfvContactEmail"
   controltovalidate="txtContactEmail"
   display="Dynamic"
   font-name="Tahoma"
   font-size="10pt"
   runat=server>
   User Name is Required!

</asp:RequiredFieldValidator>

Select Topic:

<asp:dropdownlist 

   id="ddlTopic" 
   runat=server

> 

   <asp:listitem>Web Site</asp:listitem>
   <asp:listitem>Order Status</asp:listitem>
   <asp:listitem>Other</asp:listitem>

</asp:dropdownlist>

Your Message:

<asp:textbox 

   id="txtTheMessage" 
   columns="25"
   rows=5
   textmode="multiline"
   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/ContactDB.zip">ContactDB.zip( 8 k)</a>

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