If action = "2" Then
cmd = New SqlCommand("sp_del_office_byID", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@OfficeID", SqlDbType.Int)
cmd.Parameters("@OfficeID").Value = officeid_pk
cmd.Parameters.Add("s", SqlDbType.Int)
cmd.Parameters("s").Direction = ParameterDirection.ReturnValue
cmd.ExecuteNonQuery()
s = cmd.Parameters("s").Value
If s = "0" Then
Label1.Text = ("成功!") 'dataviewdodelete.asp
End If
If s = "1" Then
Label1.Text = ("不允许!")
End If
If s = "2" Then
Label1.Text = ("不存在!")
End If
End If
If action = "3" Then
cmd = New SqlCommand("sp_del_contact_byID", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@ContactID", SqlDbType.Int)
cmd.Parameters("@ContactID").Value = contactid_pk
cmd.Parameters.Add("s", SqlDbType.Int)
cmd.Parameters("s").Direction = ParameterDirection.ReturnValue
cmd.ExecuteNonQuery()
s = cmd.Parameters("s").Value
If s = "0" Then
Label1.Text = ("成功!")
End If
If s = "1" Then
Label1.Text = ("不允许!")
End If
If s = "2" Then
Label1.Text = ("不存在!")
End If
End If
Label1.Text = Label1.Text & "<br><a href='dataviewdodelete.asp'>返回</a>"