Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов

Для чего предназначена страница Удаление объявления, понятно из ее названия. Обязательным условием выполнения операции удаления является указание идентификатора и пароля, заданных на странице Новое объявление. В элементе управления Label отображается заголовок страницы:

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Comic Sans MS"
Тех1="<СЕМТЕК>Удаление объявления</СЕМТЕК>"
runat="server".
/>

<asp:ValidationSummary
ID="vsAllErrors"
DisplayMode="BulletList"
ShowMessageBox="True"
ShowSummary="False"
runat="server"
HeaderText="0бъявления не может быть обработано по следующим причинам:"
Font-Name="Comic Sans MS"
Font-Size="12"
/>

<asp:TextBox
id="txtID"
Columns="25"
MaxLength="50"
runat=server
/>

<asp:RequiredFieldValidator
id="rfvID"
ControlToValidate="txtID"
ЕггогМеззаде="Необходимо ввести код ID"
Display="Dynamic"
runat=server>
*
</asp:RequiredFieldValidator>

<аsр:CompareValidator
id="cvID"
ControlToValidate="txtID"
Operator="DataTypeCheck"
Type="Integer"
ErrorMessage=''Код ID должен выть целым числом"
Display="Dynamic"
runat="server">
*
</asp:CompareValidator>

<asp:TextBox
id="txtPassword"
Columns="25"
MaxLength="50"
runat=server
/>

<asp:RequiredFieldValidator
id="rfvPasswoi:d",
ControlToValidate="txtPassword"
ЕггогМеззаде-"Необходимо ввести пароль"
Display="Static"
runat=server>
*
</asp:RequiredFieldValidator>

<asp:button
id="butRemove"
text=" OK "
Type="Submit"
OnClick="SubmitRemove_Cliclc"
runat="server"
/>

Sub SubmitRemove_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBDelete As New OleDbCommand
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETC14;"
& "User Id=sa;"
t "Password=yourpassword;")
DBDelete,CommandText = "Delete From Classifieds Where " _
& "ClassifiedID = " _
& txtlD.Text _
& " and Password = '" _
& Replace(txtPassword.Text, "'", "''")
DBDelete.Connection = DBCpnn
DBDelete.Connection.Open
DBDelete.ExecuteNonQuery()
Response.Redirect("./index.aspx")
End Sub

DBDelete.CommandText = "Delete From Classifieds Where " _
& "ClassifiedID = "
& txtlD.Text _
& " and Password = '" _
& Replace(txtPassword.Text, "'", "''") _
& " ' "

Изменение кода для Access

Для обеспечения взаимодействия приложения с базой данных Access необхо димо внести в код два изменения. Первое изменение касается строки связи:

DBConn = New OleDbConnection('Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC14;"
& "User Id=sa;" _
& "Password=yourpassword;")

DBConn = New 01eDbConnection("PROVIDER-Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPathr/INetBbok/CH/Classifieds/" _! '
& "Access/Classifieds.mdb;"))

DBCommand = New OleDbDataAdapter _
("Select ClassifiedID, TitleText, " _
& "Convert(varchar(12),DatePlaced,107) " _
& "as TheDate, Price from Classifieds " _
& "Where CategorylD = " _
& Request.QueryString("CategorylD") _
& " Order By DatePlaced DESC"
, DBConn)

DBCommand = New OleDbDataAdapter _
("Select ClassifiedID, TitleText, "
& "Format(DatePlaced,""mmm dd, yyyy"") " _
& "as TheDate, Price from Classifieds " _ .
& "Where CategorylD = " _
& Request.QueryString("CategorylD") _
& " Order By DatePlaced DESC" _
, DBConn)